blob: dfd9fcb226ff6ea950fddbfa4326fcd7d98f86ca (
plain)
1
2
3
4
5
6
7
8
9
10
|
module Cmdwave where
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
|
