20 lines
645 B
Scheme
20 lines
645 B
Scheme
;; (pm-osc rate carfreq modfreq index modphase)
|
|
|
|
;; Phase modulation oscillator pair.
|
|
|
|
;; carfreq - carrier frequency in cycles per second.
|
|
;; modfreq - modulator frequency in cycles per second.
|
|
;; index - modulation index in radians.
|
|
;; modphase - a modulation input for the modulator's phase in radians
|
|
|
|
(let* ((f (line kr 600 900 5 remove-synth))
|
|
(o (mul (pm-osc ar f 600 3 0) 0.1)))
|
|
(audition (out 0 o)))
|
|
|
|
(let* ((mf (line kr 600 900 5 remove-synth))
|
|
(o (mul (pm-osc ar 300 mf 3 0) 0.1)))
|
|
(audition (out 0 o)))
|
|
|
|
(let* ((i (line kr 0 20 8 remove-synth))
|
|
(o (mul (pm-osc ar 300 550 i 0) 0.1)))
|
|
(audition (out 0 o)))
|