;;; Continuing from my digest of my synth yesterday (check my phlog ..)
(setq *notes*
(loop for f in '(50 320 190 460)
for lf = (let ((n 0)) (lambda () (+ f (* 30 (sin (incf n 0.001))))))
for n = (synote (lambda () 1.5d0) lf (lambda () 0.2d0))
collect n))
(setq *notes-2*
(loop for f in '(50 320 190 460)
for lf = (let ((n 0)) (lambda () (+ f (incf n 0.001))))
for n = (synote (lambda () 1.5d0) lf (lambda () 0.2))
collect n))