Mercurial > hg > jslab

annotate examples/sound/sampled/rec.scm @ 2:74cc9e431818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert change to MidiSynth
author samer
date Fri, 05 Apr 2019 16:43:56 +0100
parents bf79fb79ee13
children
rev   line source
samer@0 1 ; shows how to record from audio input to standard output in WAV format
samer@0 2 (load "audio.scm")
samer@0 3 (load "lineout.scm")
samer@0 4
samer@0 5 (put "regulated" #f)
samer@0 6 (define fmt (mono 44100))
samer@0 7 (lineout (filesnk System.out$ fmt) (linein (linesrc fmt) 2048 2048))
samer@0 8 (expose)
samer@0 9 (start)