Mercurial > hg > jslab

view examples/sound/sampled/record.scm @ 0:bf79fb79ee13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial Mercurial check in.
author samer
date Tue, 17 Jan 2012 17:50:20 +0000
parents
children
line wrap: on
line source
; shows how to record from audio input a wav file
(load "audio.scm")
(load "lineout.scm")

(put "regulated" #f)
(define fmt (mono 44100))
(lineout (filesnk "out.wav" fmt) (linein (linesrc fmt) 1024 1024))
(expose)
(start)