13 lines
432 B
Scheme
13 lines
432 B
Scheme
|
;; (lf-pulse rate freq iphase width)
|
||
|
|
|
||
|
|
;; A non-band-limited pulse oscillator. outputs a high value of one
|
||
|
|
;; and a low value of zero. Note that the iphase argument was not
|
||
|
|
;; present in SC2.
|
||
|
|
|
||
|
|
;; freq - frequency in Hertz
|
||
|
|
;; iphase - initial phase offset in cycles ( 0..1 )
|
||
|
|
;; width - pulse width duty cycle from zero to one.
|
||
|
|
|
||
|
|
(let ((f (mul-add (lf-pulse kr 3 0 0.3) 200 200)))
|
||
|
|
(audition (out 0 (mul (lf-pulse ar f 0 0.2) 0.1))))
|