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

Oh my what a mess.

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