samer@8: (load "props.scm")
samer@1: (load "filelist.scm")
samer@1: (load "lineout.scm")
samer@1: (load "audio.scm")
samer@1: (load "models.scm")
samer@1: (load "functions.scm")
samer@1: 
samer@8: (push-properties "args")
samer@1: (put "scale.meter" #t)
samer@1: (put "E.meter" #t)
samer@1: (put "lineout.meter" #f)
samer@1: 
samer@1: (tasks)
samer@8: ; (define f (linein (linesrc (mono 11025)) 1024 512))
samer@8: (define f (linein (filesource) 1024 512))
samer@8: (set-playlist (ls "/Users/samer/audio/Music/bach-wtc-book1/Gould/11kmono"))
samer@8: (define y (ft-power (ft-vec (norm f))))
samer@8: (exec y "trace")
samer@1: 
samer@1: (lineout (linesnk (mono 11025)) (get "LineIn"))
samer@1: (expose)
samer@1: