22 lines
500 B
Scheme
22 lines
500 B
Scheme
;; (pulse rate freq width)
|
|
|
|
;; Bandlimited pulse wave generator.
|
|
|
|
;; Modulate frequency
|
|
|
|
(audition
|
|
(let ((f (x-line kr 40 4000 6 remove-synth)))
|
|
(out 0 (mul (pulse ar f 0.1) 0.2))))
|
|
|
|
;; modulate pulse width
|
|
|
|
(audition
|
|
(let ((w (line kr 0.01 0.99 8 remove-synth)))
|
|
(out 0 (mul (pulse ar 200 w) 0.2))))
|
|
|
|
;; two band limited square waves thru a resonant low pass filter
|
|
|
|
(audition
|
|
(out 0 (rlpf (mul (pulse ar (mce2 100 250) 0.5) 0.1)
|
|
(x-line kr 8000 400 5 remove-synth)
|
|
0.05)))
|