minimoog.pd

#N canvas -8 -8 1920 1007 10;
#X obj 704 437 cnv 15 400 250 empty empty Mixer 20 12 0 14 -233017
-66577 0;
#X obj 744 593 tgl 15 1 empty osc1_on Osc1_On 17 7 0 10 -204800 -1
-1 1 1;
#X obj 607 226 cnv 15 600 200 empty empty Oscillator_Bank 20 12 0 14
-233017 -66577 0;
#X obj 711 306 vradio 15 1 1 6 empty osc1_wave Waveform 0 -8 0 10 -262144
-1 -1 0;
#X text 727 304 Triangle;
#X text 727 336 Sawtooth;
#X text 727 351 Square;
#X text 727 320 Saw-Triangle;
#X text 727 365 Wide Pulse;
#X text 727 378 Narrow Pulse;
#X obj 723 478 vsl 15 128 0 1 0 1 empty osc1_vol Osc1_Vol 0 -9 0 10
-262144 -1 -1 12700 0;
#X obj 1021 594 tgl 15 1 empty noise_on Noise_On 17 7 0 10 -204800
-1 -1 0 1;
#X obj 993 478 vsl 15 128 0 1 0 1 empty noise_vol Noise_Vol 0 -9 0
10 -262144 -1 -1 12700 0;
#X obj 766 15 cnv 15 300 200 empty empty Controllers 20 12 0 14 -228856
-66577 0;
#X obj 658 1170 cnv 15 500 250 empty empty Output 20 12 0 14 -233017
-66577 0;
#X obj 730 1330 tgl 15 1 empty output_on Main_Output 17 7 0 10 -204800
-1 -1 1 1;
#X obj 713 1228 vsl 15 128 0 1 0 1 empty master_vol Volume 0 -9 0 10
-262144 -1 -1 7300 0;
#X obj 747 1345 tgl 15 1 empty a440_on A_440 17 7 0 10 -204800 -1 -1
0 1;
#X obj 1077 15 cnv 15 200 200 empty empty Note_Input 20 12 0 14 -233017
-66577 0;
#X obj 1205 131 s velocity;
#X obj 778 959 cnv 15 250 200 empty empty Loudness_Contour 20 12 0
14 -233017 -66577 0;
#X obj 835 1017 hsl 128 15 10 10000 1 1 empty l_atk_time Attack_Time
-2 -8 0 10 -262144 -1 -1 0 1;
#X obj 860 1054 hsl 128 15 10 10000 1 1 empty l_decay_time Decay_Time
-2 -8 0 10 -262144 -1 -1 0 1;
#X obj 885 1091 hsl 128 15 0 1 0 1 empty l_sus_lvl Sustain_Level -2
-8 0 10 -262144 -1 -1 12700 1;
#N canvas 988 128 701 717 l-envelope 0;
#X obj 216 543 *~;
#X obj 231 179 timer;
#X obj 258 235 +;
#X obj 231 151 t b b;
#X obj 231 319 >= 0;
#X obj 231 291 t f f;
#X obj 231 459 f;
#X msg 231 487 0 \$1;
#X obj 250 375 f;
#X obj 250 403 pack f f f;
#X obj 231 515 vline~;
#X obj 231 347 sel 0 1;
#X msg 297 431 \$1 \$2 \, 0 \$3 \$2;
#X obj 231 263 expr $f2-$f1;
#X obj 278 291 min;
#X obj 278 319 min;
#X obj 112 457 pack f f f f f;
#X obj 139 401 *;
#X obj 112 374 t f f;
#X obj 318 347 *;
#X obj 231 123 sel 1 0;
#X obj 112 346 sel 0;
#X obj 258 207 f;
#X obj 216 571 outlet~;
#X obj 379 151 s \$0-a;
#X obj 513 151 s \$0-s;
#X obj 446 151 s \$0-d;
#X obj 62 429 r \$0-a;
#X obj 193 429 r \$0-a;
#X obj 393 319 r \$0-s;
#X obj 154 373 r \$0-s;
#X obj 172 401 r \$0-d;
#X obj 318 263 r \$0-d;
#X obj 291 207 r \$0-d;
#X obj 138 515 inlet~ signal;
#X obj 379 123 inlet A;
#X obj 513 123 inlet S;
#X obj 446 123 inlet D;
#X obj 380 233 spigot;
#X obj 413 205 r decay_on;
#X obj 431 261 10;
#X obj 431 233 select 0;
#X obj 413 177 f;
#X obj 446 179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 431 289 s \$0-r;
#X obj 318 291 r \$0-r;
#X obj 307 375 r \$0-r;
#X obj 246 431 r \$0-r;
#X msg 122 487 \$1 \$2 \, \$3 \$4 \$5;
#X obj 231 95 r velocity;
#X obj 112 318 r velocity;
#X obj 318 319 r velocity;
#X connect 0 0 23 0;
#X connect 1 0 13 0;
#X connect 2 0 13 1;
#X connect 3 0 1 0;
#X connect 3 1 22 0;
#X connect 4 0 11 0;
#X connect 5 0 4 0;
#X connect 5 1 14 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 0 1;
#X connect 11 0 6 0;
#X connect 11 1 8 0;
#X connect 12 0 10 0;
#X connect 13 0 5 0;
#X connect 14 0 15 0;
#X connect 15 0 9 1;
#X connect 16 0 48 0;
#X connect 17 0 16 2;
#X connect 18 0 16 0;
#X connect 18 1 17 0;
#X connect 19 0 8 1;
#X connect 20 0 3 0;
#X connect 20 1 1 1;
#X connect 21 1 18 0;
#X connect 22 0 2 0;
#X connect 27 0 16 1;
#X connect 28 0 16 4;
#X connect 29 0 19 1;
#X connect 30 0 17 1;
#X connect 31 0 16 3;
#X connect 32 0 14 1;
#X connect 33 0 2 1;
#X connect 34 0 0 0;
#X connect 35 0 24 0;
#X connect 36 0 25 0;
#X connect 37 0 26 0;
#X connect 37 0 42 0;
#X connect 38 0 44 0;
#X connect 39 0 38 1;
#X connect 39 0 41 0;
#X connect 39 0 43 0;
#X connect 40 0 44 0;
#X connect 41 0 40 0;
#X connect 42 0 38 0;
#X connect 43 0 42 0;
#X connect 45 0 15 1;
#X connect 46 0 9 2;
#X connect 47 0 6 1;
#X connect 48 0 10 0;
#X connect 49 0 20 0;
#X connect 50 0 21 0;
#X connect 51 0 19 0;
#X restore 807 1118 pd l-envelope;
#X obj 925 148 hsl 128 15 50 0.05 1 1 empty glide_amt Glide -2 -8 0
10 -262144 -1 -1 1914 1;
#X obj 922 174 s glide_time;
#X obj 530 15 cnv 15 225 200 empty empty Left-Hand_Keyboard_Panel 20
12 0 14 -228856 -66577 0;
#X obj 647 48 tgl 15 1 empty glide Glide 17 7 0 10 -262130 -1 -1 0
1;
#X obj 662 63 s glide_on;
#X obj 848 101 s osc1_tune;
#X obj 851 75 hsl 128 15 -2 2 0 1 empty tune Osc1_Tuning -2 -8 0 10
-262144 -1 -1 6350 1;
#X obj 1106 172 s note;
#X obj 630 307 vradio 15 1 1 6 empty osc1_range Range 0 -8 0 10 -262144
-1 -1 3;
#X obj 1050 553 vradio 15 1 1 2 empty noise_type empty 0 -8 0 10 -204800
-1 -1 0;
#X text 1066 551 White;
#X text 1066 566 Pink;
#X obj 551 141 hradio 15 1 1 6 empty bend_amt Num_Semitones 0 -8 0
10 -262144 -1 -1 1;
#N canvas 424 506 450 300 pitchbend 0;
#X obj 222 110 inlet semitones;
#X obj 120 138 bendin 1;
#X obj 120 218 s bend;
#X obj 222 138 + 1;
#X obj 120 163 - 8192;
#X obj 171 163 /;
#X obj 120 191 /;
#X obj 183 138 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 171 110 f 8192;
#X floatatom 175 221 5 0 0 0 - - -;
#X obj 171 82 loadbang;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 6 0;
#X connect 4 0 9 0;
#X connect 5 0 6 1;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 10 0 8 0;
#X restore 551 165 pd pitchbend;
#N canvas 80 122 888 660 oscillator1 0;
#X obj 390 160 -~ 0.5;
#X obj 390 188 abs~;
#X obj 390 216 *~ 4;
#X obj 390 244 -~ 1;
#X obj 566 188 -~ 1;
#X obj 567 160 *~ 2;
#X obj 630 188 *~ 2;
#X obj 629 218 -~ 1;
#X obj 693 188 *~ 2;
#X obj 692 218 -~ 1;
#X text 692 113 Wide Pulse;
#X obj 390 272 multiplex~ 0 1 2 3 4 5;
#X obj 762 188 *~ 2;
#X obj 761 218 -~ 1;
#X text 761 113 Narrow Pulse;
#X obj 390 300 outlet~;
#X text 387 114 Triangle;
#X text 566 115 Sawtooth;
#X text 628 114 Square;
#X obj 288 243 inlet waveform;
#X obj 113 114 r osc1_tune;
#X obj 179 444 mtof~;
#X obj 62 114 r note;
#X obj 98 157 +;
#X obj 194 87 inlet range;
#X obj 179 472 phasor~;
#X obj 194 114 - 3;
#X obj 179 199 +;
#X obj 179 168 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 98 137 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 466 116 Saw-Triangle;
#X obj 631 160 >~ 0.5;
#X obj 694 160 >~ 0.35;
#X obj 763 160 >~ 0.15;
#X obj 179 497 s~ \$0-n1;
#X obj 389 132 r~ \$0-n1;
#X obj 568 132 r~ \$0-n1;
#X obj 631 132 r~ \$0-n1;
#X obj 694 132 r~ \$0-n1;
#X obj 764 132 r~ \$0-n1;
#X obj 237 215 sig~;
#X obj 237 243 lop~ 5;
#X obj 276 215 r glide_time;
#X obj 104 247 r glide_on;
#X obj 179 275 multiplex~;
#X obj 179 247 sig~;
#X obj 194 138 * 12;
#X obj 252 276 r~ mod_osc;
#X obj 110 389 r osc_mod;
#X obj 179 416 multiplex~;
#X obj 266 304 r mod_amt;
#X obj 236 388 +~;
#X obj 251 360 *~;
#X obj 266 332 / 15;
#X obj 468 132 *~ 1;
#X obj 507 132 *~ 0.7;
#X obj 468 160 +~ -0.3;
#X obj 468 188 *~ 0.7;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 3 0 54 0;
#X connect 4 0 11 2;
#X connect 4 0 55 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 11 3;
#X connect 8 0 9 0;
#X connect 9 0 11 4;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 13 0 11 5;
#X connect 19 0 11 0;
#X connect 20 0 29 0;
#X connect 20 0 23 1;
#X connect 21 0 25 0;
#X connect 22 0 23 0;
#X connect 23 0 27 0;
#X connect 24 0 26 0;
#X connect 25 0 34 0;
#X connect 26 0 46 0;
#X connect 27 0 40 0;
#X connect 27 0 45 0;
#X connect 28 0 27 0;
#X connect 29 0 23 0;
#X connect 31 0 6 0;
#X connect 32 0 8 0;
#X connect 33 0 12 0;
#X connect 35 0 0 0;
#X connect 36 0 5 0;
#X connect 37 0 31 0;
#X connect 38 0 32 0;
#X connect 39 0 33 0;
#X connect 40 0 41 0;
#X connect 41 0 44 1;
#X connect 42 0 41 1;
#X connect 43 0 44 0;
#X connect 44 0 49 0;
#X connect 44 0 51 0;
#X connect 45 0 44 0;
#X connect 46 0 28 0;
#X connect 46 0 27 1;
#X connect 47 0 52 0;
#X connect 48 0 49 0;
#X connect 49 0 21 0;
#X connect 50 0 53 0;
#X connect 51 0 49 1;
#X connect 52 0 51 1;
#X connect 53 0 52 1;
#X connect 54 0 56 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 11 1;
#X restore 630 407 pd oscillator1;
#X obj 1071 305 vradio 15 1 1 6 empty osc3_wave Waveform 0 -8 0 10
-262144 -1 -1 0;
#X text 1087 303 Triangle;
#X text 1087 335 Sawtooth;
#X text 1086 350 Square;
#X text 1087 364 Wide Pulse;
#X text 1087 377 Narrow Pulse;
#X obj 990 305 vradio 15 1 1 6 empty osc3_range Range 0 -8 0 10 -262144
-1 -1 3;
#N canvas 254 136 990 658 oscillator3 0;
#X obj 495 242 -~ 0.5;
#X obj 495 270 abs~;
#X obj 495 298 *~ 4;
#X obj 495 326 -~ 1;
#X obj 618 270 -~ 1;
#X obj 619 242 *~ 2;
#X obj 683 270 *~ 2;
#X obj 682 300 -~ 1;
#X obj 746 270 *~ 2;
#X obj 745 300 -~ 1;
#X text 744 197 Wide Pulse;
#X obj 495 354 multiplex~ 0 1 2 3 4 5;
#X obj 816 270 *~ 2;
#X obj 815 300 -~ 1;
#X text 814 197 Narrow Pulse;
#X obj 565 440 outlet~;
#X text 493 197 Triangle;
#X text 617 197 Sawtooth;
#X text 680 197 Square;
#X obj 396 326 inlet waveform;
#X obj 278 386 mtof~;
#X obj 252 215 r note;
#X obj 303 242 +;
#X obj 232 75 inlet range;
#X obj 278 414 phasor~;
#X obj 318 103 - 3;
#X obj 318 187 +;
#X obj 303 215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 243 159 inlet freq;
#X obj 278 439 s~ \$0-n3;
#X obj 494 214 r~ \$0-n3;
#X obj 620 214 r~ \$0-n3;
#X obj 683 214 r~ \$0-n3;
#X obj 746 214 r~ \$0-n3;
#X obj 816 214 r~ \$0-n3;
#X obj 557 214 r~ \$0-n3;
#X text 555 187 Reverse Sawtooth;
#X obj 556 242 *~ -2;
#X obj 555 270 +~ 1;
#X obj 683 242 >~ 0.5;
#X obj 746 242 >~ 0.35;
#X obj 816 242 >~ 0.15;
#X obj 336 298 sig~;
#X obj 336 326 lop~ 5;
#X obj 375 298 r glide_time;
#X obj 203 330 r glide_on;
#X obj 278 358 multiplex~;
#X obj 278 330 sig~;
#X obj 336 242 r osc3_ctl;
#X obj 318 131 * 12;
#X obj 318 159 t b f;
#X obj 278 270 multiplex;
#X obj 329 214 expr (148 * $f1 / 78) + 9;
#X obj 506 384 r osc3_ctl;
#X obj 496 440 s~ osc3;
#X obj 496 412 demultiplex~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 11 2;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 11 3;
#X connect 8 0 9 0;
#X connect 9 0 11 4;
#X connect 11 0 55 0;
#X connect 12 0 13 0;
#X connect 13 0 11 5;
#X connect 19 0 11 0;
#X connect 20 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 51 1;
#X connect 23 0 25 0;
#X connect 24 0 29 0;
#X connect 25 0 49 0;
#X connect 26 0 27 0;
#X connect 26 0 22 1;
#X connect 26 0 52 0;
#X connect 27 0 22 0;
#X connect 28 0 26 0;
#X connect 30 0 0 0;
#X connect 31 0 5 0;
#X connect 32 0 39 0;
#X connect 33 0 40 0;
#X connect 34 0 41 0;
#X connect 35 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 11 1;
#X connect 39 0 6 0;
#X connect 40 0 8 0;
#X connect 41 0 12 0;
#X connect 42 0 43 0;
#X connect 43 0 46 1;
#X connect 44 0 43 1;
#X connect 45 0 46 0;
#X connect 46 0 20 0;
#X connect 47 0 46 0;
#X connect 48 0 51 2;
#X connect 49 0 50 0;
#X connect 50 0 26 0;
#X connect 50 1 26 1;
#X connect 51 0 42 0;
#X connect 51 0 47 0;
#X connect 52 0 51 0;
#X connect 53 0 55 0;
#X connect 55 0 54 0;
#X connect 55 1 15 0;
#X restore 990 406 pd oscillator3;
#X obj 1030 264 vsl 15 128 -9 9 0 1 empty osc3_tune Frequency 0 -9
0 10 -262144 -1 -1 6350 1;
#X msg 838 41 0;
#X msg 1020 230 0;
#X obj 924 594 tgl 15 1 empty osc3_on Osc3_On 17 7 0 10 -204800 -1
-1 0 1;
#X obj 903 478 vsl 15 128 0 1 0 1 empty osc3_vol Osc3_Vol 0 -9 0 10
-262144 -1 -1 12700 0;
#X text 1087 319 Reverse Sawtooth;
#N canvas 0 0 706 476 mixer 0;
#X obj 242 106 unpack;
#X obj 31 78 inlet~ o1s;
#X obj 173 78 inlet~ o2s;
#X obj 315 78 inlet~ o3s;
#X obj 100 78 inlet o1;
#X obj 242 78 inlet o2;
#X obj 384 78 inlet o3;
#X obj 384 106 unpack;
#X obj 567 78 inlet noise;
#X obj 100 106 unpack;
#X obj 31 126 *~;
#X obj 31 154 *~;
#N canvas 285 218 450 300 noisegenerator 0;
#X obj 157 104 noise~;
#X obj 237 104 pink~;
#X obj 157 134 multiplex~ 0 1;
#X text 120 77 On = white \, Off = pink;
#X obj 57 105 inlet type;
#X obj 157 169 outlet~;
#X obj 214 169 s~ noise;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 2 0;
#X restore 457 78 pd noisegenerator;
#X obj 173 126 *~;
#X obj 173 154 *~;
#X obj 315 126 *~;
#X obj 315 154 *~;
#X obj 32 263 +~;
#X obj 567 106 unpack f f f;
#X obj 337 210 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 457 126 *~;
#X obj 457 154 *~;
#X obj 32 377 outlet~;
#X obj 32 321 /~ f;
#X obj 171 237 expr ($f1 * $f2) + ($f3 * $f4) + ($f5 * $f6) + ($f7
* $f8);
#X obj 104 321 *~ f;
#X obj 32 349 multiplex~;
#X obj 71 321 < 1;
#X obj 125 293 line;
#X obj 171 265 pack 0 10;
#X connect 0 0 13 1;
#X connect 0 0 19 0;
#X connect 0 0 24 2;
#X connect 0 1 14 1;
#X connect 0 1 19 0;
#X connect 0 1 24 3;
#X connect 1 0 10 0;
#X connect 2 0 13 0;
#X connect 3 0 15 0;
#X connect 4 0 9 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 15 1;
#X connect 7 0 19 0;
#X connect 7 0 24 4;
#X connect 7 1 16 1;
#X connect 7 1 19 0;
#X connect 7 1 24 5;
#X connect 8 0 18 0;
#X connect 9 0 10 1;
#X connect 9 0 24 0;
#X connect 9 1 11 1;
#X connect 9 1 24 1;
#X connect 9 1 19 0;
#X connect 10 0 11 0;
#X connect 11 0 17 0;
#X connect 12 0 20 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 23 0;
#X connect 17 0 25 0;
#X connect 18 0 20 1;
#X connect 18 0 19 0;
#X connect 18 0 24 6;
#X connect 18 1 21 1;
#X connect 18 1 19 0;
#X connect 18 1 24 7;
#X connect 18 2 12 0;
#X connect 19 0 24 0;
#X connect 20 0 21 0;
#X connect 21 0 17 0;
#X connect 23 0 26 0;
#X connect 24 0 29 0;
#X connect 25 0 26 1;
#X connect 26 0 22 0;
#X connect 27 0 26 0;
#X connect 28 0 23 1;
#X connect 28 0 27 0;
#X connect 28 0 25 1;
#X connect 29 0 28 0;
#X restore 723 644 pd mixer;
#X obj 993 616 pack f f f;
#X obj 723 616 pack;
#X obj 903 616 pack;
#X obj 1060 617 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 934 617 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 754 617 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 634 204 450 352 output 0;
#X obj 113 38 inlet vol;
#X obj 27 38 inlet~ signal;
#X obj 175 38 inlet on;
#X obj 231 38 inlet a440;
#X obj 27 66 *~;
#X obj 27 94 *~;
#X obj 83 94 *~;
#X obj 27 225 dac~;
#X obj 83 122 *~ 0.5;
#X obj 83 66 osc~ 440;
#X obj 26 150 multiplex~;
#X obj 79 199 metro 100;
#X obj 79 174 loadbang;
#X obj 79 225 tabwrite~ out;
#X connect 0 0 4 1;
#X connect 1 0 4 0;
#X connect 2 0 5 1;
#X connect 3 0 6 1;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 5 0 10 0;
#X connect 6 0 8 0;
#X connect 8 0 10 1;
#X connect 9 0 6 0;
#X connect 10 0 13 0;
#X connect 10 0 7 0;
#X connect 10 0 7 1;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X restore 696 1370 pd output;
#N canvas 0 0 450 300 (subpatch) 0;
#X array out 100 float 4;
#X coords 0 1 99 -1 200 140 1 0 0;
#X restore 821 1226 graph;
#X obj 781 148 hsl 128 15 0 1 0 1 empty m_mix Modulation_Mix -2 -8
0 10 -262144 -1 -1 0 1;
#X obj 662 141 ctlin 1 1;
#X obj 662 169 s mod_amt;
#X obj 1041 75 tgl 15 1 empty o3_mod empty 17 7 0 10 -260097 -1 -1
0 1;
#X obj 998 101 s osc_mod;
#X obj 1178 380 tgl 15 1 empty osc_control empty 17 7 0 10 -260097
-1 -1 1 1;
#X obj 1129 406 s osc3_ctl;
#X obj 652 698 cnv 15 500 250 empty empty Filter 20 12 0 14 -233017
-66577 0;
#X msg 768 113 0.5;
#X obj 647 88 tgl 15 1 empty decay Decay 17 7 0 10 -262130 -1 -1 1
1;
#X obj 662 103 s decay_on;
#X text 549 115 Pitch Bend;
#X text 662 126 Mod Wheel;
#X obj 693 761 tgl 15 1 empty filter_mod Filter_Mod 17 7 0 10 -260097
-1 -1 0 1;
#X obj 721 777 tgl 15 1 empty kc1 Keybrd_Ctl_1 17 7 0 10 -260097 -1
-1 1 1;
#X obj 750 793 tgl 15 1 empty kc2 Keybrd_Ctl_2 17 7 0 10 -260097 -1
-1 1 1;
#X obj 848 731 vsl 15 128 10 20000 1 1 empty cutoff_freq Cutoff_Freq
0 -9 0 10 -262144 -1 -1 12700 1;
#X obj 998 729 vsl 15 128 10 10000 1 1 empty f_atk_time Attack_Time
0 -9 0 10 -262144 -1 -1 0 1;
#X obj 874 741 vsl 15 128 0 1 0 1 empty emphasis Emphasis 0 -9 0 10
-262144 -1 -1 0 1;
#X obj 1026 742 vsl 15 128 10 10000 1 1 empty f_decay_time Decay_Time
0 -9 0 10 -262144 -1 -1 0 1;
#X obj 900 752 vsl 15 128 0 1 0 1 empty contour Amt_of_Contour 0 -9
0 10 -262144 -1 -1 0 1;
#X obj 1055 755 vsl 15 128 0 1 0 1 empty f_sus_lvl Sustain_Level 0
-9 0 10 -262144 -1 -1 12700 1;
#X obj 998 897 pack f f f;
#X obj 693 845 pack f f f;
#X obj 1205 103 > 0;
#X obj 1066 898 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 1062 1291 \; pd dsp \$1;
#X obj 1062 1266 tgl 15 1 empty power_on Power 17 7 0 10 -262144 -1
-1 1 1;
#X obj 1106 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1106 145 +;
#X obj 1121 103 r bend;
#N canvas 850 120 840 803 midictrls 0;
#X obj 901 624 s master_vol;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 901 596 pd scale;
#X obj 799 4 loadbang;
#X obj 946 568 pack 0 1;
#X obj 901 540 ctlin 49 1;
#X obj 1117 622 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1117 596 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1090 540 ctlin 72 6;
#X obj 1090 568 sel 0;
#X obj 1090 646 s power_on;
#X obj 1036 622 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1036 596 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1009 568 sel 0;
#X obj 1009 646 s output_on;
#X obj 1009 540 ctlin 67 6;
#X text 896 517 Output;
#X obj 1192 622 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1192 596 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1165 569 sel 0;
#X obj 1165 540 ctlin 60 6;
#X obj 1165 646 s a440_on;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 892 418 pd scale;
#X obj 892 362 ctlin 21 5;
#X obj 937 390 pack 10 10000;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1028 420 pd scale;
#X obj 1073 392 pack 10 10000;
#X obj 1028 364 ctlin 22 5;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1166 422 pd scale;
#X text 892 336 Loudness Contour;
#X obj 892 446 s l_atk_time;
#X obj 1028 448 s l_decay_time;
#X obj 1166 450 s l_sus_lvl;
#X obj 1166 366 ctlin 23 5;
#X obj 1211 394 pack 0 1;
#X obj 799 -22 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 843 -16 Make logarithmic?;
#X text 242 58 Controllers;
#N canvas 0 310 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 1;
#X connect 3 0 5 2;
#X connect 5 0 4 0;
#X restore 245 135 pd scale;
#X obj 245 79 ctlin 21 1;
#X obj 245 163 s glide_amt;
#X obj 290 107 pack 50 0.05;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 373 136 pd scale;
#X obj 373 80 ctlin 22 1;
#X obj 373 164 s tune;
#X obj 418 108 pack -2 2;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 482 139 pd scale;
#X obj 482 83 ctlin 23 1;
#X obj 482 167 s m_mix;
#X obj 527 111 pack 0 1;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 585 141 pd scale;
#X obj 585 85 ctlin 24 1;
#X obj 585 169 s bend_amt;
#X obj 630 113 pack 0 6;
#X obj 272 283 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 272 257 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 245 230 sel 0;
#X obj 245 201 ctlin 67 1;
#X obj 245 307 s glide;
#X obj 346 283 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 346 257 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 319 230 sel 0;
#X obj 319 201 ctlin 60 1;
#X obj 420 284 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 420 258 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 393 231 sel 0;
#X obj 393 202 ctlin 72 1;
#X obj 319 307 s decay;
#X obj 393 308 s o3_mod;
#X text 238 363 Osc Bank;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 242 441 pd scale;
#X obj 287 413 pack 0 6;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 242 553 pd scale;
#X obj 287 525 pack 0 6;
#X obj 242 469 s osc1_range;
#X obj 242 581 s osc1_wave;
#X obj 242 385 ctlin 21 2;
#X obj 242 497 ctlin 25 2;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 350 441 pd scale;
#X obj 395 413 pack 0 6;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 458 441 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 566 441 pd scale;
#X obj 611 413 pack 0 6;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 350 553 pd scale;
#X obj 395 525 pack 0 6;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 457 552 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 569 553 pd scale;
#X obj 614 525 pack 0 6;
#X obj 711 556 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 711 530 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 684 503 sel 0;
#X obj 350 385 ctlin 22 2;
#X obj 458 385 ctlin 23 2;
#X obj 566 385 ctlin 24 2;
#X obj 684 474 ctlin 60 2;
#X obj 684 580 s osc_control;
#X obj 350 469 s osc2_range;
#X obj 458 469 s osc2_tune;
#X obj 566 469 s osc2_wave;
#X obj 350 581 s osc3_range;
#X obj 457 580 s osc3_tune;
#X obj 503 413 pack -9 9;
#X obj 502 524 pack -9 9;
#X obj 569 581 s osc3_wave;
#X obj 350 497 ctlin 26 2;
#X obj 457 496 ctlin 27 2;
#X obj 569 497 ctlin 28 2;
#X text 243 641 Mixer;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 242 717 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 350 717 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 458 717 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 566 717 pd scale;
#X obj 242 745 s osc1_vol;
#X obj 350 745 s osc2_vol;
#X obj 458 745 s osc3_vol;
#X obj 566 745 s noise_vol;
#X obj 242 661 ctlin 21 3;
#X obj 350 661 ctlin 22 3;
#X obj 458 661 ctlin 23 3;
#X obj 566 661 ctlin 24 3;
#X obj 287 689 pack 0 1;
#X obj 395 689 pack 0 1;
#X obj 503 689 pack 0 1;
#X obj 611 689 pack 0 1;
#X obj 351 862 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 351 836 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 324 808 sel 0;
#X obj 270 862 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 270 836 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 243 808 sel 0;
#X obj 426 862 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 426 836 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 399 809 sel 0;
#X obj 243 780 ctlin 67 3;
#X obj 324 780 ctlin 69 3;
#X obj 399 780 ctlin 71 3;
#X obj 497 863 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 497 837 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 470 810 sel 0;
#X obj 569 863 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 569 837 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 542 810 sel 0;
#X obj 470 781 ctlin 72 3;
#X obj 542 781 ctlin 65 3;
#X obj 243 886 s osc1_on;
#X obj 324 886 s osc2_on;
#X obj 399 886 s osc3_on;
#X obj 470 887 s noise_on;
#X obj 542 887 s noise_type;
#X text 891 67 Filter;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 894 144 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 894 256 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1002 144 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1110 144 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1002 256 pd scale;
#N canvas 561 298 450 300 scale 0;
#X obj 108 107 inlet midi;
#X obj 220 79 inlet range;
#X msg 220 107 \$1;
#X text 59 207 does this work if the low is 1 and high is 0? I think
I do this somewhere;
#X msg 258 107 \$2;
#X obj 108 163 outlet;
#X obj 108 135 expr (($f3 - $f2) * ($f1 / 127)) + $f2;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 1;
#X connect 4 0 6 2;
#X connect 6 0 5 0;
#X restore 1109 255 pd scale;
#X obj 894 88 ctlin 21 4;
#X obj 1002 88 ctlin 22 4;
#X obj 1110 88 ctlin 23 4;
#X obj 894 200 ctlin 25 4;
#X obj 1002 200 ctlin 26 4;
#X obj 1109 199 ctlin 27 4;
#X obj 1342 226 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1342 200 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1315 172 sel 0;
#X obj 1261 226 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1261 200 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1234 172 sel 0;
#X obj 1417 226 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1417 200 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1390 173 sel 0;
#X obj 1234 144 ctlin 67 4;
#X obj 1315 144 ctlin 69 4;
#X obj 1390 144 ctlin 71 4;
#X obj 1234 250 s filter_mod;
#X obj 1335 250 s kc1;
#X obj 1410 250 s kc2;
#X obj 894 172 s cutoff_freq;
#X obj 1110 172 s contour;
#X obj 894 284 s f_atk_time;
#X obj 1002 284 s f_decay_time;
#X obj 939 116 pack 10 20000;
#X obj 1002 172 s emphasis;
#X obj 1047 116 pack 0 1;
#X obj 1155 116 pack 0 1;
#X obj 939 228 pack 10 10000;
#X obj 1047 228 pack 10 10000;
#X obj 1154 227 pack 0 1;
#X obj 1109 283 s f_sus_lvl;
#X text 965 -2 just make everything additive and coerce? (additional
reason to do this is that when you re-turn a knob it starts at its
older value \, so you can get weird jumps when adjusting);
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 23 0;
#X connect 2 0 25 0;
#X connect 2 0 33 0;
#X connect 2 0 40 0;
#X connect 2 0 44 0;
#X connect 2 0 48 0;
#X connect 2 0 52 0;
#X connect 2 0 70 0;
#X connect 2 0 72 0;
#X connect 2 0 78 0;
#X connect 2 0 83 0;
#X connect 2 0 100 0;
#X connect 2 0 101 0;
#X connect 2 0 81 0;
#X connect 2 0 86 0;
#X connect 2 0 119 0;
#X connect 2 0 120 0;
#X connect 2 0 121 0;
#X connect 2 0 122 0;
#X connect 2 0 180 0;
#X connect 2 0 182 0;
#X connect 2 0 183 0;
#X connect 2 0 184 0;
#X connect 2 0 185 0;
#X connect 2 0 186 0;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 1 6 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
#X connect 12 1 11 0;
#X connect 14 0 12 0;
#X connect 16 0 20 0;
#X connect 17 0 16 0;
#X connect 18 1 17 0;
#X connect 19 0 18 0;
#X connect 21 0 29 0;
#X connect 22 0 21 0;
#X connect 23 0 21 1;
#X connect 24 0 30 0;
#X connect 25 0 24 1;
#X connect 26 0 24 0;
#X connect 27 0 31 0;
#X connect 32 0 27 0;
#X connect 33 0 27 1;
#X connect 34 0 2 0;
#X connect 37 0 39 0;
#X connect 38 0 37 0;
#X connect 40 0 37 1;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 44 0 41 1;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X connect 48 0 45 1;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X connect 52 0 49 1;
#X connect 53 0 57 0;
#X connect 54 0 53 0;
#X connect 55 1 54 0;
#X connect 56 0 55 0;
#X connect 58 0 66 0;
#X connect 59 0 58 0;
#X connect 60 1 59 0;
#X connect 61 0 60 0;
#X connect 62 0 67 0;
#X connect 63 0 62 0;
#X connect 64 1 63 0;
#X connect 65 0 64 0;
#X connect 69 0 73 0;
#X connect 70 0 69 1;
#X connect 71 0 74 0;
#X connect 72 0 71 1;
#X connect 75 0 69 0;
#X connect 76 0 71 0;
#X connect 77 0 95 0;
#X connect 78 0 77 1;
#X connect 79 0 96 0;
#X connect 80 0 97 0;
#X connect 81 0 80 1;
#X connect 82 0 98 0;
#X connect 83 0 82 1;
#X connect 84 0 99 0;
#X connect 85 0 102 0;
#X connect 86 0 85 1;
#X connect 87 0 94 0;
#X connect 88 0 87 0;
#X connect 89 1 88 0;
#X connect 90 0 77 0;
#X connect 91 0 79 0;
#X connect 92 0 80 0;
#X connect 93 0 89 0;
#X connect 100 0 79 1;
#X connect 101 0 84 1;
#X connect 103 0 82 0;
#X connect 104 0 84 0;
#X connect 105 0 85 0;
#X connect 107 0 111 0;
#X connect 108 0 112 0;
#X connect 109 0 113 0;
#X connect 110 0 114 0;
#X connect 115 0 107 0;
#X connect 116 0 108 0;
#X connect 117 0 109 0;
#X connect 118 0 110 0;
#X connect 119 0 107 1;
#X connect 120 0 108 1;
#X connect 121 0 109 1;
#X connect 122 0 110 1;
#X connect 123 0 144 0;
#X connect 124 0 123 0;
#X connect 125 1 124 0;
#X connect 126 0 143 0;
#X connect 127 0 126 0;
#X connect 128 1 127 0;
#X connect 129 0 145 0;
#X connect 130 0 129 0;
#X connect 131 1 130 0;
#X connect 132 0 128 0;
#X connect 133 0 125 0;
#X connect 134 0 131 0;
#X connect 135 0 146 0;
#X connect 136 0 135 0;
#X connect 137 1 136 0;
#X connect 138 0 147 0;
#X connect 139 0 138 0;
#X connect 140 1 139 0;
#X connect 141 0 137 0;
#X connect 142 0 140 0;
#X connect 149 0 176 0;
#X connect 150 0 178 0;
#X connect 151 0 181 0;
#X connect 152 0 177 0;
#X connect 153 0 179 0;
#X connect 154 0 187 0;
#X connect 155 0 149 0;
#X connect 156 0 151 0;
#X connect 157 0 152 0;
#X connect 158 0 150 0;
#X connect 159 0 153 0;
#X connect 160 0 154 0;
#X connect 161 0 174 0;
#X connect 162 0 161 0;
#X connect 163 1 162 0;
#X connect 164 0 173 0;
#X connect 165 0 164 0;
#X connect 166 1 165 0;
#X connect 167 0 175 0;
#X connect 168 0 167 0;
#X connect 169 1 168 0;
#X connect 170 0 166 0;
#X connect 171 0 163 0;
#X connect 172 0 169 0;
#X connect 180 0 149 1;
#X connect 182 0 151 1;
#X connect 183 0 152 1;
#X connect 184 0 150 1;
#X connect 185 0 153 1;
#X connect 186 0 154 1;
#X restore 1106 48 pd midictrls;
#N canvas 436 12 643 958 monophonicmidi 0;
#X obj 52 30 notein 1;
#X obj 52 86 - 1;
#X text 115 8 set voice stealing to 1?;
#X obj 52 114 pack 0 0 0;
#X obj 52 170 t b l;
#X obj 52 814 unpack;
#X obj 52 842 outlet;
#X obj 103 842 outlet;
#X obj 190 198 unpack 0 0 0;
#X obj 200 226 tabwrite \$0-note;
#X obj 311 226 tabwrite \$0-velocity;
#X obj 190 366 tabwrite \$0-order;
#X obj 190 254 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 120 115 voice \, note \, vel;
#X obj 224 254 > 0;
#X obj 190 338 *;
#X obj 190 282 f;
#X obj 190 310 + 1;
#X obj 257 254 r \$0-resetorder;
#X obj 52 198 t b b b;
#X obj 71 282 until;
#X obj 71 254 t f b;
#X msg 116 282 -1;
#X obj 71 310 f;
#X obj 71 338 + 1;
#X msg 153 282 0;
#X obj 71 422 moses 0;
#X obj 71 366 t f f;
#X obj 110 478 f;
#X obj 52 450 f;
#X obj 52 478 t f f;
#X obj 71 394 tabread \$0-order;
#X obj 52 590 pack;
#X obj 219 543 s \$0-resetorder;
#X obj 52 646 t l l;
#X obj 79 674 unpack;
#X obj 130 674 unpack;
#X obj 52 786 spigot;
#X obj 79 730 &&;
#X obj 79 702 == -1;
#X obj 130 702 == -1;
#X obj 79 758 == 0;
#X obj 234 68 table \$0-note 11;
#X obj 234 96 table \$0-velocity 11;
#X obj 234 124 table \$0-order 11;
#X msg 52 142 \$2 \$3 \$1;
#X obj 110 450 t b f;
#X obj 52 534 tabread \$0-note;
#X obj 79 506 tabread \$0-velocity;
#X obj 219 507 sel 10;
#X obj 52 562 t f f b;
#X msg 91 590 10;
#X obj 71 618 tabwrite \$0-note;
#X msg 257 282 0;
#X msg 71 225 11;
#X obj 52 58 poly 10;
#X connect 0 0 55 0;
#X connect 0 1 55 1;
#X connect 1 0 3 0;
#X connect 3 0 45 0;
#X connect 4 0 19 0;
#X connect 4 1 8 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 8 0 9 0;
#X connect 8 0 12 0;
#X connect 8 1 14 0;
#X connect 8 1 10 0;
#X connect 8 2 10 1;
#X connect 8 2 9 1;
#X connect 8 2 11 1;
#X connect 12 0 16 0;
#X connect 14 0 15 1;
#X connect 15 0 11 0;
#X connect 16 0 17 0;
#X connect 17 0 16 1;
#X connect 17 0 15 0;
#X connect 18 0 53 0;
#X connect 19 0 29 0;
#X connect 19 1 54 0;
#X connect 19 2 25 0;
#X connect 20 0 23 0;
#X connect 21 0 20 0;
#X connect 21 1 22 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 24 0 23 1;
#X connect 24 0 27 0;
#X connect 25 0 26 1;
#X connect 26 1 46 0;
#X connect 27 0 31 0;
#X connect 27 1 28 1;
#X connect 28 0 29 1;
#X connect 29 0 30 0;
#X connect 30 0 47 0;
#X connect 30 1 48 0;
#X connect 30 1 49 0;
#X connect 31 0 26 0;
#X connect 32 0 34 0;
#X connect 34 0 37 0;
#X connect 34 1 35 0;
#X connect 35 0 39 0;
#X connect 35 1 40 0;
#X connect 36 0 39 1;
#X connect 36 1 40 1;
#X connect 37 0 36 0;
#X connect 37 0 5 0;
#X connect 38 0 41 0;
#X connect 39 0 38 0;
#X connect 40 0 38 1;
#X connect 41 0 37 1;
#X connect 45 0 4 0;
#X connect 46 0 28 0;
#X connect 46 1 26 1;
#X connect 47 0 50 0;
#X connect 48 0 32 1;
#X connect 49 0 33 0;
#X connect 50 0 32 0;
#X connect 50 1 52 0;
#X connect 50 2 51 0;
#X connect 51 0 52 1;
#X connect 53 0 16 1;
#X connect 54 0 21 0;
#X connect 55 0 1 0;
#X connect 55 1 3 1;
#X connect 55 2 3 2;
#X restore 1106 75 pd monophonicmidi;
#X obj 721 803 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 750 819 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 730 237 450 300 mod_mix 0;
#X obj 101 119 r~ noise;
#X obj 164 119 r~ osc3;
#X obj 179 147 expr (1 - $f1);
#X obj 164 175 *~;
#X obj 101 147 *~;
#X obj 101 175 +~;
#X obj 116 91 inlet mod_mix;
#X obj 101 203 s~ mod_osc;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 2 0;
#X connect 6 0 4 1;
#X restore 778 174 pd mod_mix;
#X obj 834 593 tgl 15 1 empty osc2_on Osc2_On 17 7 0 10 -204800 -1
-1 0 1;
#X obj 813 478 vsl 15 128 0 1 0 1 empty osc2_vol Osc2_Vol 0 -9 0 10
-262144 -1 -1 12700 0;
#X obj 813 616 pack;
#X obj 844 617 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 892 305 vradio 15 1 1 6 empty osc2_wave Waveform 0 -8 0 10 -262144
-1 -1 0;
#X text 908 303 Triangle;
#X text 908 335 Sawtooth;
#X text 908 350 Square;
#X text 908 319 Saw-Triangle;
#X text 908 364 Wide Pulse;
#X text 908 377 Narrow Pulse;
#X obj 811 306 vradio 15 1 1 6 empty osc2_range Range 0 -8 0 10 -262144
-1 -1 3;
#N canvas 926 126 888 660 oscillator2 0;
#X obj 410 170 -~ 0.5;
#X obj 410 198 abs~;
#X obj 410 226 *~ 4;
#X obj 410 254 -~ 1;
#X obj 586 198 -~ 1;
#X obj 587 170 *~ 2;
#X obj 650 198 *~ 2;
#X obj 649 228 -~ 1;
#X obj 713 198 *~ 2;
#X obj 712 228 -~ 1;
#X text 712 123 Wide Pulse;
#X obj 410 282 multiplex~ 0 1 2 3 4 5;
#X obj 782 198 *~ 2;
#X obj 781 228 -~ 1;
#X text 781 123 Narrow Pulse;
#X obj 410 310 outlet~;
#X text 407 124 Triangle;
#X text 586 125 Sawtooth;
#X text 648 124 Square;
#X obj 308 253 inlet waveform;
#X obj 199 454 mtof~;
#X obj 148 190 r note;
#X obj 145 25 inlet range;
#X obj 199 482 phasor~;
#X obj 205 80 - 3;
#X obj 205 162 +;
#X text 486 126 Saw-Triangle;
#X obj 651 170 >~ 0.5;
#X obj 714 170 >~ 0.35;
#X obj 783 170 >~ 0.15;
#X obj 257 225 sig~;
#X obj 257 253 lop~ 5;
#X obj 296 225 r glide_time;
#X obj 124 257 r glide_on;
#X obj 199 285 multiplex~;
#X obj 199 257 sig~;
#X obj 205 108 * 12;
#X obj 272 286 r~ mod_osc;
#X obj 130 399 r osc_mod;
#X obj 199 426 multiplex~;
#X obj 286 314 r mod_amt;
#X obj 256 398 +~;
#X obj 271 370 *~;
#X obj 286 342 / 15;
#X obj 488 142 *~ 1;
#X obj 527 142 *~ 0.7;
#X obj 488 198 *~ 0.7;
#X obj 488 170 +~ -0.3;
#X obj 409 142 r~ \$0-n2;
#X obj 588 142 r~ \$0-n2;
#X obj 651 142 r~ \$0-n2;
#X obj 714 142 r~ \$0-n2;
#X obj 784 142 r~ \$0-n2;
#X obj 199 507 s~ \$0-n2;
#X obj 165 52 inlet freq;
#X obj 205 136 t b f;
#X obj 199 190 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 199 216 +;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 3 0 44 0;
#X connect 4 0 11 2;
#X connect 4 0 45 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 11 3;
#X connect 8 0 9 0;
#X connect 9 0 11 4;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 13 0 11 5;
#X connect 19 0 11 0;
#X connect 20 0 23 0;
#X connect 21 0 57 0;
#X connect 22 0 24 0;
#X connect 23 0 53 0;
#X connect 24 0 36 0;
#X connect 25 0 56 0;
#X connect 25 0 57 1;
#X connect 27 0 6 0;
#X connect 28 0 8 0;
#X connect 29 0 12 0;
#X connect 30 0 31 0;
#X connect 31 0 34 1;
#X connect 32 0 31 1;
#X connect 33 0 34 0;
#X connect 34 0 39 0;
#X connect 34 0 41 0;
#X connect 35 0 34 0;
#X connect 36 0 55 0;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 39 0 20 0;
#X connect 40 0 43 0;
#X connect 41 0 39 1;
#X connect 42 0 41 1;
#X connect 43 0 42 1;
#X connect 44 0 47 0;
#X connect 45 0 47 0;
#X connect 46 0 11 1;
#X connect 47 0 46 0;
#X connect 48 0 0 0;
#X connect 49 0 5 0;
#X connect 50 0 27 0;
#X connect 51 0 28 0;
#X connect 52 0 29 0;
#X connect 54 0 25 0;
#X connect 55 0 25 0;
#X connect 55 1 25 1;
#X connect 56 0 57 0;
#X connect 57 0 35 0;
#X connect 57 0 30 0;
#X restore 811 406 pd oscillator2;
#X obj 851 264 vsl 15 128 -9 9 0 1 empty osc2_tune Frequency 0 -9 0
10 -262144 -1 -1 6350 1;
#X msg 843 228 0;
#N canvas 961 185 604 577 filter 0;
#X obj 184 111 inlet freq;
#X obj 223 345 inlet emph;
#X obj 301 289 inlet cont_amt;
#X obj 331 317 inlet env;
#X obj 331 345 unpack f f f;
#X obj 116 205 inlet switches;
#X obj 116 233 unpack f f f;
#X obj 160 401 outlet~;
#X obj 89 345 inlet~ signal;
#X text 214 51 24db per octave 4 pole low pass;
#X obj 184 167 line~;
#X obj 184 139 pack 0 10;
#N canvas 0 0 701 717 f-envelope 0;
#X obj 231 179 timer;
#X obj 258 235 +;
#X obj 231 151 t b b;
#X obj 231 319 >= 0;
#X obj 231 291 t f f;
#X obj 231 459 f;
#X msg 231 487 0 \$1;
#X obj 250 375 f;
#X obj 250 403 pack f f f;
#X obj 231 517 vline~;
#X obj 231 347 sel 0 1;
#X msg 297 431 \$1 \$2 \, 0 \$3 \$2;
#X obj 231 263 expr $f2-$f1;
#X obj 278 291 min;
#X obj 278 319 min;
#X obj 112 459 pack f f f f f;
#X obj 139 403 *;
#X obj 112 376 t f f;
#X obj 318 347 *;
#X obj 231 123 sel 1 0;
#X obj 112 348 sel 0;
#X obj 258 207 f;
#X obj 138 601 outlet~;
#X obj 138 545 inlet~ signal;
#X obj 379 123 inlet A;
#X obj 486 123 inlet S;
#X obj 433 123 inlet D;
#X obj 318 291 r \$0-r;
#X obj 307 375 r \$0-r;
#X obj 246 431 r \$0-r;
#X msg 112 487 \$1 \$2 \, \$3 \$4 \$5;
#X obj 379 151 s \$0-fa;
#X obj 486 151 s \$0-fs;
#X obj 433 151 s \$0-fd;
#X obj 291 207 r \$0-fd;
#X obj 318 263 r \$0-fd;
#X obj 231 95 r velocity;
#X obj 112 320 r velocity;
#X obj 318 319 r velocity;
#X obj 62 431 r \$0-fa;
#X obj 193 431 r \$0-fa;
#X obj 393 319 r \$0-fs;
#X obj 154 375 r \$0-fs;
#X obj 172 403 r \$0-fd;
#X obj 138 573 *~;
#X obj 543 123 inlet amt;
#X obj 543 151 s \$0-camt;
#X obj 438 517 r \$0-camt;
#X obj 231 545 expr~ ((1 - $v1) * (1 - $v2)) + $v1;
#X connect 0 0 12 0;
#X connect 1 0 12 1;
#X connect 2 0 0 0;
#X connect 2 1 21 0;
#X connect 3 0 10 0;
#X connect 4 0 3 0;
#X connect 4 1 13 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 48 0;
#X connect 10 0 5 0;
#X connect 10 1 7 0;
#X connect 11 0 9 0;
#X connect 12 0 4 0;
#X connect 13 0 14 0;
#X connect 14 0 8 1;
#X connect 15 0 30 0;
#X connect 16 0 15 2;
#X connect 17 0 15 0;
#X connect 17 1 16 0;
#X connect 18 0 7 1;
#X connect 19 0 2 0;
#X connect 19 1 0 1;
#X connect 20 1 17 0;
#X connect 21 0 1 0;
#X connect 23 0 44 0;
#X connect 24 0 31 0;
#X connect 25 0 32 0;
#X connect 26 0 33 0;
#X connect 27 0 14 1;
#X connect 28 0 8 2;
#X connect 29 0 5 1;
#X connect 30 0 9 0;
#X connect 34 0 1 1;
#X connect 35 0 13 1;
#X connect 36 0 19 0;
#X connect 37 0 20 0;
#X connect 38 0 18 0;
#X connect 39 0 15 1;
#X connect 40 0 15 4;
#X connect 41 0 18 1;
#X connect 42 0 16 1;
#X connect 43 0 15 3;
#X connect 44 0 22 0;
#X connect 45 0 46 0;
#X connect 47 0 48 1;
#X connect 48 0 44 1;
#X restore 298 373 pd f-envelope;
#X obj 236 261 r note;
#X obj 236 289 mtof~;
#X obj 160 373 resofilt~ 4;
#X obj 298 345 +~;
#X obj 150 261 /~ 3;
#X obj 185 261 /~ 1.5;
#X obj 150 289 +~;
#X obj 150 317 *~;
#X obj 402 93 r~ mod_osc;
#X obj 443 122 r mod_amt;
#X obj 401 177 *~;
#X obj 400 145 *~ 0.5;
#X obj 400 125 -~ 1;
#X obj 442 153 / 127;
#X obj 386 205 *~;
#X obj 314 261 multiplex~;
#X obj 371 233 +~;
#X connect 0 0 11 0;
#X connect 1 0 15 2;
#X connect 2 0 12 4;
#X connect 3 0 4 0;
#X connect 4 0 12 1;
#X connect 4 1 12 2;
#X connect 4 2 12 3;
#X connect 5 0 6 0;
#X connect 6 0 28 0;
#X connect 6 1 17 0;
#X connect 6 2 18 0;
#X connect 8 0 15 0;
#X connect 10 0 27 0;
#X connect 10 0 29 0;
#X connect 10 0 28 0;
#X connect 11 0 10 0;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 20 1;
#X connect 15 0 7 0;
#X connect 16 0 12 0;
#X connect 17 0 19 0;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 20 0 16 0;
#X connect 21 0 25 0;
#X connect 22 0 26 0;
#X connect 23 0 27 1;
#X connect 24 0 23 0;
#X connect 25 0 24 0;
#X connect 26 0 23 1;
#X connect 27 0 29 1;
#X connect 28 0 16 1;
#X connect 29 0 28 1;
#X restore 807 897 pd filter;
#X connect 1 0 56 1;
#X connect 1 0 60 0;
#X connect 3 0 39 1;
#X connect 10 0 56 0;
#X connect 11 0 55 1;
#X connect 11 0 58 0;
#X connect 12 0 55 0;
#X connect 15 0 61 2;
#X connect 16 0 61 1;
#X connect 17 0 61 3;
#X connect 21 0 24 1;
#X connect 22 0 24 2;
#X connect 23 0 24 3;
#X connect 24 0 61 0;
#X connect 25 0 26 0;
#X connect 28 0 29 0;
#X connect 31 0 30 0;
#X connect 33 0 39 0;
#X connect 34 0 55 2;
#X connect 34 0 58 0;
#X connect 37 0 38 0;
#X connect 39 0 54 0;
#X connect 40 0 47 2;
#X connect 46 0 47 0;
#X connect 47 0 54 4;
#X connect 48 0 47 1;
#X connect 49 0 31 0;
#X connect 50 0 48 0;
#X connect 51 0 57 1;
#X connect 51 0 59 0;
#X connect 52 0 57 0;
#X connect 54 0 114 0;
#X connect 55 0 54 6;
#X connect 56 0 54 1;
#X connect 57 0 54 5;
#X connect 58 0 55 0;
#X connect 59 0 57 0;
#X connect 60 0 56 0;
#X connect 63 0 98 0;
#X connect 64 0 65 0;
#X connect 66 0 67 0;
#X connect 68 0 69 0;
#X connect 71 0 63 0;
#X connect 72 0 73 0;
#X connect 76 0 86 0;
#X connect 77 0 86 1;
#X connect 77 0 96 0;
#X connect 78 0 86 2;
#X connect 78 0 97 0;
#X connect 79 0 114 2;
#X connect 80 0 85 0;
#X connect 81 0 114 3;
#X connect 82 0 85 1;
#X connect 82 0 88 0;
#X connect 83 0 114 4;
#X connect 84 0 85 2;
#X connect 84 0 88 0;
#X connect 85 0 114 5;
#X connect 86 0 114 1;
#X connect 87 0 19 0;
#X connect 88 0 85 0;
#X connect 90 0 89 0;
#X connect 91 0 92 0;
#X connect 92 0 32 0;
#X connect 93 0 91 0;
#X connect 93 0 92 1;
#X connect 95 0 92 0;
#X connect 95 1 87 0;
#X connect 96 0 86 0;
#X connect 97 0 86 0;
#X connect 99 0 101 1;
#X connect 99 0 102 0;
#X connect 100 0 101 0;
#X connect 101 0 54 3;
#X connect 102 0 101 0;
#X connect 103 0 111 2;
#X connect 110 0 111 0;
#X connect 111 0 54 2;
#X connect 112 0 111 1;
#X connect 113 0 112 0;
#X connect 114 0 24 0;