From bc4c25e742d5e26aacf749372ce706bbfd899734 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 24 Apr 2019 22:32:06 -0700 Subject: cmdwave experiment --- apex/Cmdwave.hs | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 apex/Cmdwave.hs (limited to 'apex/Cmdwave.hs') 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 -- cgit v1.2.3