samer@0: ; shows how to generate a signal using an oscillator, buffer it,
samer@0: ; and send it to the sound card
samer@0: (load "audio.scm")
samer@0: (load "lineout.scm")
samer@0: (load "synthesis.scm")
samer@0: 
samer@0: ; this uses the default linesnk, which will be a lineout returned
samer@0: ; by the AudioSystem. Could easily choose a different lineout or
samer@0: ; even a file sink. (eg see record.scm)
samer@0: (lineout (linesnk (mono 44100)) (gen->vector 512 (oscillator 0.1)))
samer@0: (expose)