Mercurial > hg > jslab

view examples/sound/sampled/stacker.scm @ 3:15b93db27c04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get StreamSource to compile, update args for demo
author samer
date Fri, 05 Apr 2019 17:00:18 +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)