diff options
Diffstat (limited to 'apex')
| -rw-r--r-- | apex/Cmdwave.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/apex/Cmdwave.hs b/apex/Cmdwave.hs new file mode 100644 index 0000000..315f57a --- /dev/null +++ b/apex/Cmdwave.hs @@ -0,0 +1,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 |