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

Reorganise some more

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sound/sampled/meters.scm	Fri Apr 05 22:41:58 2019 +0100
@@ -0,0 +1,22 @@
+(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)
+