Mercurial > hg > jslab

diff src/scheme/spectro.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/src/scheme/spectro.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,17 @@
+(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")))