pd/abs/pmVoice~.pd

#N canvas 572 50 549 407 12;
#X obj 12 101 inlet~;
#X obj 12 130 phasor~;
#X obj 30 213 cos~;
#X obj 60 242 *~;
#X obj 208 111 inlet~;
#X obj 12 330 outlet~;
#X obj 12 301 cos~;
#X obj 30 189 *~ 12;
#X obj 160 213 cos~;
#X obj 160 189 *~ 21;
#X obj 190 242 *~;
#X obj 208 145 *~;
#X obj 208 174 *~ 0.5;
#X text 12 81 Inlet 1: Frequency;
#X text 208 91 Inlet 2: Modulation index;
#X text 236 142 <- = [pow 2];
#X text 50 300 <- Carrier;
#X text 220 204 <- Modulators with freq. ratio 12 & 21;
#X text 12 350 Outlet 1: Oscillator output;
#X text 13 11 Phase modulated voice with a single oscillator \, two modulators derived from the same oscillator with freq. ratio 12 and 21 with different modulation index curves \, see [pow 2] and [*~ 0.5].;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 0 7 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 4 0 11 0;
#X connect 4 0 11 1;
#X connect 6 0 5 0;
#X connect 7 0 2 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 6 0;
#X connect 11 0 12 0;
#X connect 12 0 10 1;