12 lines
312 B
Scheme
12 lines
312 B
Scheme
|
;; one-line (lance putnam)
|
||
|
|
|
||
|
|
(import (rnrs) (rsc3))
|
||
|
|
|
||
|
|
(define one-line
|
||
|
|
(let* ((lfs (mul-add (lf-saw ar (mce2 1 0.99) (mce2 0 0.6)) 2000 2000))
|
||
|
|
(lfs-t (mul (trunc lfs (mce2 400 600)) (mce2 1 -1)))
|
||
|
|
(f (one-pole (mix lfs-t) 0.98)))
|
||
|
|
(pan2 (sin-osc ar f 0) 0 0.1)))
|
||
|
|
|
||
|
|
(audition (out 0 one-line))
|