Mercurial > hg > jslab

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial Mercurial check in.
author samer
date Tue, 17 Jan 2012 17:50:20 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sound/sampled/powspec.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,15 @@
+(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)