diff examples/misc/meters.scm @ 1:5df24c91468d

Oh my what a mess.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/misc/meters.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -0,0 +1,20 @@
+(load "filelist.scm")
+(load "lineout.scm")
+(load "audio.scm")
+(load "models.scm")
+(load "functions.scm")
+
+(put "scale.meter" #t)
+(put "E.meter" #t)
+(put "regulated" #f)
+(put "lineout.meter" #f)
+
+(tasks)
+(define f (linein (filesource) 1024 512))
+(define x (norm f))
+(define y (ft-power (ft-vec x)))
+
+;(set-playlist (ls "/Users/samer/Music/Classical/Bach/The Well Tempered Clavier/Book I/Gould/11kmono"))
+(lineout (linesnk (mono 11025)) (get "LineIn"))
+(expose)
+