diff options
| author | Ben Sima <ben@bsima.me> | 2019-04-24 22:32:06 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-04-24 22:32:06 -0700 |
| commit | bc4c25e742d5e26aacf749372ce706bbfd899734 (patch) | |
| tree | 0a71834d4edb1f03954a3df02dd40e88852be8d2 /apex/Cmdwave.hs | |
| parent | cb791831bc009827f797035ccc2e8c07db252349 (diff) | |
cmdwave experiment
Diffstat (limited to 'apex/Cmdwave.hs')
| -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 |