Mercurial > hg > jslab

view examples/sound/sampled/meters.scm @ 8:5e3cbbf173aa tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reorganise some more
author samer
date Fri, 05 Apr 2019 22:41:58 +0100
parents examples/misc/meters.scm@79922c7f2475
children
line wrap: on
line source
(load "props.scm")
(load "filelist.scm")
(load "lineout.scm")
(load "audio.scm")
(load "models.scm")
(load "functions.scm")

(push-properties "args")
(put "scale.meter" #t)
(put "E.meter" #t)
(put "lineout.meter" #f)

(tasks)
; (define f (linein (linesrc (mono 11025)) 1024 512))
(define f (linein (filesource) 1024 512))
(set-playlist (ls "/Users/samer/audio/Music/bach-wtc-book1/Gould/11kmono"))
(define y (ft-power (ft-vec (norm f))))
(exec y "trace")

(lineout (linesnk (mono 11025)) (get "LineIn"))
(expose)