samer@0: (load "audio.scm")
samer@0: (load "filelist.scm")
samer@0: (load "lineout.scm")
samer@0: (load "functions.scm")
samer@0: (load "models.scm")
samer@0: 
samer@0: (define hop 512)
samer@0: (define fs  22050)
samer@0: 
samer@0: (put "regulator.target" (* 1.04 (/ fs hop)))
samer@0: (put "regulator.regulated" "true")
samer@0: (put "trace.map.symmetric" #f)
samer@0: (put "trace.map.log" #t)
samer@0: (put "trace.scroll" #t)
samer@0: (put "ft.power.trace.map.maximum" 60)
samer@0: (put "ft.power.trace.map.minimum" 0.005)
samer@0: (put "diffScaler.offsetRate" 0)
samer@0: (put "diffScaler.scaleRate" 0.01)
samer@0: (put "scaler.scaleRate" 0.01)
samer@0: 
samer@0: (define f (mono fs))
samer@0: (define s (filesource f))
samer@0: (define lin (linein s 1024 hop))
samer@0: (define lou (lineout (linesnk-buf f 1024) lin hop))
samer@0: (exec lin "plotter")
samer@0: 
samer@0: (set-playlist (map File. '(
samer@0: 		"Tesri-A.mp3"
samer@0: 		"Tesri-B.mp3"
samer@0: 		"The Amateur View-A.mp3"
samer@0: 		"The Amateur View-B.mp3"
samer@0: 		"HotelMorgen-A.ogg"
samer@0: 		"HotelMorgen-B.ogg"))) 
samer@0: 
samer@0: (define x (norm lin))
samer@0: (define y (ft-power (ft-vec x)))
samer@0: (define z (smoothscale y genexp-spec))
samer@0: (exec z "trace")
samer@0: 
samer@0: (exec (viewable "ft.power.diffScaler.w") "load")
samer@0: (exec (viewable "ft.power.diffScaler.genexp.alpha") "load")
samer@0: (expose)
samer@0: 
samer@0: ;(start)