#N canvas 57 173 394 240 10;
#X text 76 -36 The ghost of Mozart;
#N canvas 0 0 832 781 ghostofmozart 0;
#X obj 174 315 cos~;
#X obj 77 320 cos~;
#X obj 147 688 dac~;
#X obj 77 289 phasor~ 1200;
#X obj 173 288 phasor~ 800;
#X obj 148 657 *~ 0.6;
#X obj 147 603 *~;
#X obj 148 630 *~ 0.1;
#X obj 164 520 *~;
#X obj 165 497 ead~ 1 7000;
#X obj 110 538 cos~;
#X obj 110 517 +~;
#X obj 127 495 sig~;
#X obj 165 476 sel 0;
#X obj 165 453 mod 4;
#X obj 238 447 r \$0-period;
#X obj 237 468 * 16;
#X obj 164 433 r \$0-envtime;
#X obj 111 363 +~;
#X obj 110 564 hip~ 50;
#X obj 321 447 *~;
#X obj 337 423 sig~;
#X obj 369 465 *~;
#X obj 370 442 ead~ 1 7000;
#X obj 370 421 sel 0;
#X obj 442 392 r \$0-period;
#X obj 369 360 r \$0-envtime;
#X obj 442 413 * 8;
#X obj 352 489 *~;
#X obj 352 515 hip~ 500;
#X obj 369 402 mod 2;
#X obj 369 381 + 2;
#X obj 144 177 unpack f f f f f f f f f f f;
#N canvas 0 0 797 266 param 0;
#X obj 114 149 f 0;
#X obj 143 148 + 1;
#X obj 114 128 metro 200;
#X obj 132 50 s \$0-period;
#X obj 114 195 /;
#X obj 114 222 s \$0-modtime;
#X obj 21 195 s \$0-envtime;
#X obj 472 152 s \$0-note;
#X obj 420 70 mod 8;
#X obj 420 93 sel 0 1 2 3 4 5 6 7;
#X obj 420 48 r \$0-modtime;
#X obj 520 124 f;
#X obj 472 123 f;
#X obj 421 123 f;
#X obj 397 9 inlet note1;
#X obj 487 9 inlet note2;
#X obj 572 9 inlet note3;
#X obj 172 8 inlet period;
#X obj 276 9 inlet barlength;
#X obj 73 8 inlet start;
#X obj 114 73 loadbang;
#X msg 114 94 1;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 4 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 13 0;
#X connect 9 3 12 0;
#X connect 9 6 11 0;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 13 0 7 0;
#X connect 14 0 13 1;
#X connect 15 0 12 1;
#X connect 16 0 11 1;
#X connect 17 0 2 1;
#X connect 17 0 3 0;
#X connect 18 0 4 1;
#X connect 19 0 2 0;
#X connect 20 0 21 0;
#X connect 21 0 2 0;
#X restore 266 220 pd param sequencer;
#N canvas 0 0 579 553 freq 0;
#X obj 145 337 /;
#X obj 145 314 t b f;
#X obj 145 291 /;
#X obj 135 179 mod 2;
#X obj 177 179 mod 2;
#X obj 161 250 +;
#X obj 162 224 random 1;
#X obj 102 88 r \$0-modtime;
#X obj 49 294 mtof;
#X obj 49 273 r \$0-note;
#X obj 177 155 +;
#X obj 135 202 + 1;
#X text 50 151 early evaluation;
#X obj 161 270 + 1;
#X obj 102 111 t b f f;
#X obj 162 202 t b;
#X obj 80 19 inlet pos;
#X obj 152 19 inlet num;
#X obj 223 19 inlet den;
#X obj 294 19 inlet rand;
#X obj 49 362 outlet f1;
#X obj 145 363 outlet f2;
#X text 221 154 <- sequence 2 offset;
#X text 238 180 <- two modulo counters;
#X text 228 225 <- add a random int to divisor;
#X text 50 134 kludge: deliberate;
#X text 182 294 <- ratio to divide first harmonic by;
#X connect 0 0 21 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 1 0;
#X connect 3 0 11 0;
#X connect 4 0 5 1;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 14 0;
#X connect 8 0 0 0;
#X connect 8 0 20 0;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 11 0 2 0;
#X connect 13 0 2 1;
#X connect 14 1 10 0;
#X connect 14 2 3 0;
#X connect 14 2 15 0;
#X connect 15 0 6 0;
#X connect 16 0 10 1;
#X connect 17 0 3 1;
#X connect 18 0 4 1;
#X connect 19 0 6 1;
#X restore 95 252 pd freq seq;
#N canvas 0 0 450 300 programmer 0;
#X obj 156 88 nbx 5 14 1 20 0 0 empty empty num 0 -6 1 10 -262144 -1
-1 1 256;
#X obj 209 88 nbx 5 14 1 20 0 0 empty empty den 0 -6 1 10 -262144 -1
-1 1 256;
#X obj 262 87 nbx 5 14 0 5 0 0 empty empty rand 0 -6 1 10 -262144 -1
-1 0 256;
#X obj 155 42 nbx 5 14 1 16 0 0 empty empty pos 0 -6 1 10 -262144 -1
-1 1 256;
#X restore 404 220 pd programmer unfinished;
#X obj 105 101 list split 1;
#X symbolatom 105 140 25 0 0 0 - - -;
#X msg -14 48 slow-shift 16 4 2 0 0.48 0 80 1 33 55 61;
#X msg -5 74 meltdown 3 2 4 2 0.48 0 120 1 36 36 37;
#X msg 277 48 move-out 2 1 2 1 0.48 0 60 4 40 42 42;
#X msg 277 73 The-ghost-of-Mozart 16 5 9 3 0.48 0.29 153 3 56 57 61
;
#X obj 168 -16 r \$0-patch;
#X obj 168 11 sel 0 1 2 3;
#X obj 221 119 hradio 15 1 1 4 \$0-patch empty patch 0 -6 1 8 -262144
-1 -1 3;
#X text 180 676 ajf;
#X connect 0 0 18 1;
#X connect 1 0 18 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 4 0 20 0;
#X connect 5 0 2 0;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 6 1;
#X connect 9 0 8 0;
#X connect 9 0 8 1;
#X connect 10 0 19 0;
#X connect 11 0 10 0;
#X connect 12 0 11 1;
#X connect 13 0 9 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 9 2;
#X connect 17 0 14 0;
#X connect 18 0 11 0;
#X connect 19 0 6 0;
#X connect 20 0 28 0;
#X connect 21 0 20 1;
#X connect 22 0 28 1;
#X connect 23 0 22 0;
#X connect 23 0 22 1;
#X connect 24 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 31 0;
#X connect 27 0 23 2;
#X connect 28 0 29 0;
#X connect 29 0 5 0;
#X connect 30 0 24 0;
#X connect 31 0 30 0;
#X connect 32 0 34 0;
#X connect 32 1 34 1;
#X connect 32 2 34 2;
#X connect 32 3 34 3;
#X connect 32 4 12 0;
#X connect 32 5 21 0;
#X connect 32 6 33 1;
#X connect 32 7 33 2;
#X connect 32 8 33 3;
#X connect 32 9 33 4;
#X connect 32 10 33 5;
#X connect 34 0 3 0;
#X connect 34 1 4 0;
#X connect 36 0 37 0;
#X connect 36 1 32 0;
#X connect 38 0 36 0;
#X connect 39 0 36 0;
#X connect 40 0 36 0;
#X connect 41 0 36 0;
#X connect 42 0 43 0;
#X connect 43 0 38 0;
#X connect 43 1 39 0;
#X connect 43 2 40 0;
#X connect 43 3 41 0;
#X coords 0 -1 1 1 200 60 1 100 100;
#X restore 60 -8 pd ghostofmozart;