apex/Cmdwave.hs


1
2
3
4
5
6
7
8

import Sound.Pulse.Simple

main :: IO ()
main = do
  s <- simpleNew Nothing "example" Record Nothing "this is an example application"
       (SampleSpec (F32 LittleEndian) 44100 1) Nothing Nothing
  _ <- simpleRead s $ 44100*10 :: IO [Float]
  simpleFree s