Mercurial > hg > jslab

view examples/sound/sampled/stacker.scm @ 5:b67a33c44de7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove some crap, etc
author samer
date Fri, 05 Apr 2019 21:34:25 +0100
parents bf79fb79ee13
children
line wrap: on
line source
(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)