#N canvas 601 155 652 605 10;
#X obj 164 80 table out 480;
#X obj 497 32 loadbang;
#X msg 497 51 \; go 1 \;;
#X text 320 2 Use Fs = 48k;
#X obj 156 386 pdist~;
#X obj 157 531 output~;
#X obj 219 132 tgl 15 0 empty go empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 156 405 tabwrite~ out;
#X obj 190 272 cos~;
#X obj 38 277 tgl 15 0 empty go empty 17 7 0 10 -262144 -1 -1 1 1;
#X obj 38 332 line~;
#X obj 38 294 metro 2000;
#X obj 38 351 *~;
#X msg 219 168 0;
#X obj 219 149 metro 20;
#X msg 38 313 1 0 \, 0 2000;
#X obj 190 253 -~ 0.25;
#X obj 156 188 phasor~ 100;
#X obj 190 234 *~ 3;
#X text 36 79 look at the output >;
#X text 222 272 input waveform;
#X text 61 272 envelope;
#X obj 38 370 *~ 1;
#X floatatom 72 354 5 0 0 1 mod_index - -;
#X text 264 203 try large or negative values for the modulation index
\, etc...;
#X connect 1 0 2 0;
#X connect 4 0 7 0;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 6 0 14 0;
#X connect 8 0 4 2;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 10 0 12 1;
#X connect 11 0 15 0;
#X connect 12 0 22 0;
#X connect 13 0 17 1;
#X connect 14 0 13 0;
#X connect 14 0 7 0;
#X connect 15 0 10 0;
#X connect 16 0 8 0;
#X connect 17 0 4 0;
#X connect 17 0 18 0;
#X connect 18 0 16 0;
#X connect 22 0 4 1;
#X connect 23 0 22 1;
