Mercurial > hg > jslab

diff examples/sound/sampled/stacker.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 diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sound/sampled/stacker.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,16 @@
+(load "audio.scm")
+(load "functions.scm")
+(load "models.scm")
+
+(put "image.width" 256)
+(put "image.height" 16)
+(put "image.map.log" true)
+
+
+(define audioTasks (seq))
+(with-tasks audioTasks
+	(define x (ft-mag (ft-vec (norm 
+		(linein (linesrc (mono 11025)) 512 256))))))
+
+(addtasks (Stacker. x audioTasks 16 1))
+(expose)