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@1: (put "scale.meter" #t)
samer@1: (put "E.meter" #t)
samer@1: (put "regulated" #f)
samer@1: (put "lineout.meter" #f)
samer@1: 
samer@1: (tasks)
samer@1: (define f (linein (filesource) 1024 512))
samer@1: (define x (norm f))
samer@1: (define y (ft-power (ft-vec x)))
samer@1: 
samer@1: ;(set-playlist (ls "/Users/samer/Music/Classical/Bach/The Well Tempered Clavier/Book I/Gould/11kmono"))
samer@1: (lineout (linesnk (mono 11025)) (get "LineIn"))
samer@1: (expose)
samer@1: