samer@0: (load "audio.scm")
samer@0: (load "functions.scm")
samer@0: (load "models.scm")
samer@0: 
samer@0: (put "image.width" 256)
samer@0: (put "image.height" 16)
samer@0: (put "image.map.log" true)
samer@0: 
samer@0: 
samer@0: (define audioTasks (seq))
samer@0: (with-tasks audioTasks
samer@0: 	(define x (ft-mag (ft-vec (norm 
samer@0: 		(linein (linesrc (mono 11025)) 512 256))))))
samer@0: 
samer@0: (addtasks (Stacker. x audioTasks 16 1))
samer@0: (expose)