The proteaaudio package

[ Tags: bsd3, library, sound ] [ Propose Tags ]

Simple audio library for Windows, Linux, OSX. Supports Ogg and Wav playback and multichannel mixing.


[Skip to Readme]

Properties

Versions 0.6.2, 0.6.3, 0.6.4, 0.6.5, 0.7.0, 0.7.0.1
Change log CHANGELOG.md
Dependencies base (==4.*), bytestring (==0.10.*), filepath (>=1.4 && <2), proteaaudio [details]
License BSD3
Author Csaba Hruska
Maintainer csaba.hruska@gmail.com
Category Sound
Source repository head: git clone https://github.com/csabahruska/proteaaudio
Uploaded Sun Jun 18 10:10:24 UTC 2017 by CsabaHruska
Distributions NixOS:0.7.0.1
Executables proteaaudio-play
Downloads 492 total (13 in the last 30 days)
Rating (no votes yet) [estimated by rule of succession]
Your Rating
  • λ
  • λ
  • λ
Status Docs available [build log]
Last success reported on 2017-06-18 [all 1 reports]
Hackage Matrix CI

Modules

[Index]

Flags

NameDescriptionDefaultType
example

Build with example

DisabledAutomatic

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

Downloads

Maintainer's Corner

For package maintainers and hackage trustees


Readme for proteaaudio-0.7.0.1

[back to package description]

Overview

ProteaAudio is a stereo audio mixer/playback library for

  • Linux (PulseAudio)
  • Macintosh OS X (CoreAudio)
  • Windows (DirectSound)

Example

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

import Sound.ProteaAudio

waitPayback = do
  n <- soundActive
  when  (n > 0) $ do
    threadDelay 1000000
    waitPayback

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

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

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

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

    finishAudio