comparison examples/sound/sampled/powspec.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

+(load "audio.scm")
+(load "functions.scm")
+(load "models.scm")
+
+(define fmt (mono 22050))
+(define size 2048)
+(define hop 512)
+; get low latency input line with a buffer size of 4096
+(define X (ft-power (ft-vec (norm (linein (linesrc-buf fmt 4096) size hop)))))
+(define Y (diffscale X cauchy-spec))
+
+(exec Y "trace")
+
+(expose)
+(start)