19 lines
516 B
Racket
19 lines
516 B
Racket
#lang racket
|
|
;; status - working as of 20220820
|
|
|
|
(require rsc3)
|
|
|
|
;; drummer (thor magnusson)
|
|
|
|
(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 30 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))
|