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

Initial Mercurial check in.

(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)