view examples/sound/sampled/stacker2.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

;;; Example of how to use Stacker2, which buffers several
;;; vectors into one big vector.

(load "audio.scm")
(load "functions.scm")
(load "models.scm")


;;; Buffers the last n vectors from x. Adds the appropriate
;;; task and returns the big composite vector.
(define (stack n x)
	(define stacker (node (.getNode x) (Stacker2. x n)))
	(addtasks stacker)
	(.output stacker))


(stack 16 
	(diffscale 
		(ft-mag (ft-vec (norm (linein (linesrc (mono 11025)) 512 256))))
		cauchy-spec))

(expose)

(put "image.width" 256)
(put "image.height" 16)
(put "image.map.log" true)