diff examples/sound/sampled/audio-player/test.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sound/sampled/audio-player/test.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,44 @@
+(load "audio.scm")
+(load "filelist.scm")
+(load "lineout.scm")
+(load "functions.scm")
+(load "models.scm")
+
+(define hop 512)
+(define fs  22050)
+
+(put "regulator.target" (* 1.04 (/ fs hop)))
+(put "regulator.regulated" "true")
+(put "trace.map.symmetric" #f)
+(put "trace.map.log" #t)
+(put "trace.scroll" #t)
+(put "ft.power.trace.map.maximum" 60)
+(put "ft.power.trace.map.minimum" 0.005)
+(put "diffScaler.offsetRate" 0)
+(put "diffScaler.scaleRate" 0.01)
+(put "scaler.scaleRate" 0.01)
+
+(define f (mono fs))
+(define s (filesource f))
+(define lin (linein s 1024 hop))
+(define lou (lineout (linesnk-buf f 1024) lin hop))
+(exec lin "plotter")
+
+(set-playlist (map File. '(
+		"Tesri-A.mp3"
+		"Tesri-B.mp3"
+		"The Amateur View-A.mp3"
+		"The Amateur View-B.mp3"
+		"HotelMorgen-A.ogg"
+		"HotelMorgen-B.ogg"))) 
+
+(define x (norm lin))
+(define y (ft-power (ft-vec x)))
+(define z (smoothscale y genexp-spec))
+(exec z "trace")
+
+(exec (viewable "ft.power.diffScaler.w") "load")
+(exec (viewable "ft.power.diffScaler.genexp.alpha") "load")
+(expose)
+
+;(start)