#N canvas 67 38 1326 791 10;
#X obj 238 349 +~;
#X floatatom 131 276 10 0 0 0 - - -;
#X obj 275 265 osc~;
#X obj 274 303 *~;
#X floatatom 406 275 5 0 0 0 - - -;
#X floatatom 275 233 8 0 0 0 - - -;
#X obj 251 437 *~;
#X floatatom 277 410 5 0 0 0 - - -;
#X obj 90 456 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 4300 1;
#X obj 215 395 osc~;
#X obj 212 487 dac~;
#X obj 131 114 vsl 32 128 0 120 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 6400 1;
#X obj 275 69 vsl 32 128 0 120 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 6700 1;
#X obj 406 131 vsl 32 128 0 1024 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 11700 1;
#X obj 131 253 mtof;
#X obj 275 207 mtof;
#X text 121 88 carrier;
#X text 258 36 modulator;
#X text 404 107 index;
#X text 267 694 ephemm sentheses (ge@ccrma);
#X text 324 495 volume;
#X msg 281 652 \; pd dsp 1;
#X msg 355 654 \; pd dsp 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array E01-signal 882 float 0;
#X coords 0 5 882 -5 800 200 1;
#X restore 483 508 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array E01-spectrum 128 float 0;
#X coords 0 4300 127 -40 800 400 1;
#X restore 484 84 graph;
#X obj 138 659 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 113 697 tabwrite~ E01-signal;
#X obj 284 544 s~ signal;
#X obj 13 629 r~ signal;
#N canvas 378 249 466 316 fft 0;
#X obj 19 62 inlet~;
#X obj 85 214 inlet;
#X obj 19 92 rfft~;
#X obj 19 125 *~;
#X obj 50 125 *~;
#X obj 19 155 sqrt~;
#X obj 85 248 tabwrite~ E01-spectrum;
#X obj 193 128 block~ 4096 1;
#X obj 19 181 biquad~ 0 0 0 0 1;
#X text 83 93 Fourier series;
#X text 88 146 magnitude;
#X text 86 131 calculate;
#X text 83 62 signal to analyze;
#X text 182 166 delay two samples;
#X text 181 182 for better graphing;
#X text 135 216 "bang" into this inlet to graph it;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 1 4 0;
#X connect 2 1 4 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 8 0 6 0;
#X restore 60 696 pd fft;
#X text 95 582 comment;
#X obj 153 614 metro 100;
#X obj 152 567 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 74 662 *~;
#X floatatom 90 628 5 0 0 0 - - -;
#X floatatom 212 580 5 0 0 0 - - -;
#X obj 337 356 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 6600 1;
#X obj 277 388 / 127;
#X obj 90 600 / 8;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 6 0 10 0;
#X connect 6 0 10 1;
#X connect 6 0 27 0;
#X connect 7 0 6 1;
#X connect 8 0 38 0;
#X connect 9 0 6 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 13 0 4 0;
#X connect 14 0 1 0;
#X connect 15 0 5 0;
#X connect 25 0 26 0;
#X connect 25 0 29 1;
#X connect 28 0 33 0;
#X connect 31 0 25 0;
#X connect 32 0 31 0;
#X connect 33 0 29 0;
#X connect 33 0 26 0;
#X connect 34 0 33 1;
#X connect 35 0 31 1;
#X connect 36 0 37 0;
#X connect 37 0 7 0;
#X connect 38 0 34 0;