Mercurial > hg > jslab

view examples/sound/sampled/rec.scm @ 6:f0fa855432af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove stuff
author samer
date Fri, 05 Apr 2019 21:49:42 +0100
parents bf79fb79ee13
children
line wrap: on
line source
; shows how to record from audio input to standard output in WAV format
(load "audio.scm")
(load "lineout.scm")

(put "regulated" #f)
(define fmt (mono 44100))
(lineout (filesnk System.out$ fmt) (linein (linesrc fmt) 2048 2048))
(expose)
(start)