comparison examples/sound/sampled/meters.scm @ 8:5e3cbbf173aa tip

Reorganise some more

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