view 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)