Mercurial > hg > jslab

view src/scheme/spectro.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 "filelist.scm")
(load "functions.scm")
(load "models.scm")

(put "map.symmetric" false)

(define (spectro source n m)
	(define x (ft-mag (ft-vec (offset (linein source n m)))))
	(define z (diffscale x genexp-spec))

	(expose)
	(node (child x "diffScaler")
		(exec (viewable "genexp.e") "trace")
		(exec (viewable "w") "load")
		(exec (viewable "mu") "load")
		(viewable "output")))