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