35 lines
742 B
Racket
35 lines
742 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(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
|
|
|
|
|
|
@racketblock[
|
|
(let* ((f (line kr 600 900 5 remove-synth))
|
|
(o (mul (pm-osc ar f 600 3 0) 0.1)))
|
|
(audition (out 0 o)))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(let* ((mf (line kr 600 900 5 remove-synth))
|
|
(o (mul (pm-osc ar 300 mf 3 0) 0.1)))
|
|
(audition (out 0 o)))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(let* ((i (line kr 0 20 8 remove-synth))
|
|
(o (mul (pm-osc ar 300 550 i 0) 0.1)))
|
|
(audition (out 0 o)))
|
|
]
|
|
|
|
|