16 lines
475 B
Scheme
16 lines
475 B
Scheme
;; drummer (thor magnusson)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(define drummer
|
|
(let* ((tempo 4)
|
|
(n (white-noise ar))
|
|
(tr (impulse ar tempo 0))
|
|
(tr-2 (pulse-divider tr 4 2))
|
|
(tr-4 (pulse-divider tr 4 0))
|
|
(snare (mul n (decay2 tr-2 0.005 0.5)))
|
|
(bass (mul (sin-osc ar 60 0) (decay2 tr-4 0.005 0.5)))
|
|
(hihat (mul (hpf n 10000) (decay2 tr 0.005 0.5))))
|
|
(pan2 (add3 snare bass hihat) 0 0.4)))
|
|
|
|
(audition (out 0 drummer))
|