samer@0: (load "audio.scm")
samer@0: (load "filelist.scm")
samer@0: (load "functions.scm")
samer@0: (load "models.scm")
samer@0: 
samer@0: (put "map.symmetric" false)
samer@0: 
samer@0: (define (spectro source n m)
samer@0: 	(define x (ft-mag (ft-vec (offset (linein source n m)))))
samer@0: 	(define z (diffscale x genexp-spec))
samer@0: 
samer@0: 	(expose)
samer@0: 	(node (child x "diffScaler")
samer@0: 		(exec (viewable "genexp.e") "trace")
samer@0: 		(exec (viewable "w") "load")
samer@0: 		(exec (viewable "mu") "load")
samer@0: 		(viewable "output")))