proteaaudio-sdl: Simple audio library for SDL.

[ bsd3, library, sound ] [ Propose Tags ]

Simple audio library for SDL. Supports PCM, Ogg, Mp3 and Wav playback and multichannel mixing.


[Skip to Readme]

Modules

[Index] [Quick Jump]

Flags

Automatic Flags
NameDescriptionDefault
example

Build with example

Disabled

Use -f <flag> to enable a flag, or -f -<flag> to disable that flag. More info

Downloads

Maintainer's Corner

Package maintainers

For package maintainers and hackage trustees

Candidates

  • No Candidates
Versions [RSS] 0.9.0, 0.9.1, 0.9.2, 0.9.3, 0.10.0, 0.10.1
Change log CHANGELOG.md
Dependencies base (>=4 && <5), bytestring (>=0.10 && <0.12), filepath (>=1.4 && <2), proteaaudio-sdl, system-cxx-std-lib [details]
License BSD-3-Clause
Author Csaba Hruska, Michael Karg
Maintainer csaba.hruska@gmail.com
Category Sound
Source repo head: git clone https://github.com/csabahruska/proteaaudio
Uploaded by CsabaHruska at 2023-10-22T15:34:34Z
Distributions NixOS:0.10.1
Reverse Dependencies 1 direct, 0 indirect [details]
Executables proteaaudio-play-sdl
Downloads 452 total (20 in the last 30 days)
Rating (no votes yet) [estimated by Bayesian average]
Your Rating
  • λ
  • λ
  • λ
Status Docs uploaded by user
Build status unknown [no reports yet]

Readme for proteaaudio-sdl-0.10.1

[back to package description]

Overview

ProteaAudio-SDL is a stereo audio mixer/playback library for SDL (platform independent).

Supported audio formats:

  • Wav
  • Ogg
  • Mp3
  • Raw linear PCM

Samples can be loaded from file or memory.

Setup

On Linux you need to install the SDL2 library:

sudo apt install libsdl2-dev

Build

Stack

stack setup
stack build

Nix:

stack --nix build

Example

import Control.Monad
import System.Environment
import System.FilePath
import qualified Data.ByteString as SB
import Control.Concurrent

import Sound.ProteaAudio.SDL

waitPlayback = do
  n <- soundActiveAll
  when  (n > 0) $ do
    threadDelay oneSec
    waitPlayback

oneSec :: Int
oneSec = 1000000 -- micro seconds

main = do
  args <- getArgs
  filename <- case args of
    a : _ -> pure a
    _ -> fail "usage: proteaaudio-play SAMPLE_FILE_NAME"

  result <- initAudio 64 44100 1024 -- max channels, mixing frequency, mixing buffer size
  unless result $ fail "failed to initialize the audio system"

  -- (A) load sample from file
  sampleA <- sampleFromFile filename 1.0 -- volume

  -- start two sound tracks with shared sample data
  sndTrkA <- soundPlay sampleA 1 1 0 1 -- left volume, right volume, time difference between left and right, pitch factor for playback
  threadDelay oneSec -- wait 1 sec
  sndTrkB <- soundPlay sampleA 1 1 0 1 -- left volume, right volume, time difference between left and right, pitch factor for playback
  soundActive sndTrkB >>= print
  -- play 3 sec
  threadDelay $ 3 * oneSec
  soundStop sndTrkB
  soundActive sndTrkB >>= print

  soundUpdate sndTrkA True 1 1 0 1
  putStrLn "pause sound, press enter to continue"
  getLine
  soundUpdate sndTrkA False 1 1 0 1

  -- wait sndTrkA to finish
  waitPlayback

  -- (B) load from memory buffer
  buffer <- SB.readFile filename
  sampleB <- case takeExtension filename of
    ".ogg" -> sampleFromMemoryOgg buffer 1.0
    ".wav" -> sampleFromMemoryWav buffer 1.0
    ".mp3" -> sampleFromMemoryMp3 buffer 1.0

  soundPlay sampleB 1 1 0 1 -- left volume, right volume, time difference between left and right, pitch factor for playback
  waitPlayback

  sampleDestroy sampleB
  soundPlay sampleB 1 1 0 1 -- we have invalidated the handle; nothing should happen now
  waitPlayback

  finishAudio