samer@0: ; shows how to record from audio input a wav file
samer@0: (load "audio.scm")
samer@0: (load "lineout.scm")
samer@0: 
samer@0: (put "regulated" #f)
samer@0: (define fmt (mono 44100))
samer@0: (lineout (filesnk "out.wav" fmt) (linein (linesrc fmt) 1024 1024))
samer@0: (expose)
samer@0: (start)