sh101~.vco.pd

#N canvas 3 208 621 468 12;
#X obj 414 140 vsl 15 128 0.01 0.5 0 0 empty empty empty 0 -9 0 10
-262144 -1 -1 9100 1;
#X obj 364 141 vradio 15 1 0 4 empty empty empty 0 -8 0 10 -262144
-1 -1 1;
#X text 383 138 2;
#X text 383 154 4;
#X text 383 170 8;
#X text 383 186 16;
#N canvas 27 393 745 379 band_limited_square 0;
#X obj 21 170 phasor~;
#X obj 21 282 *~ 2051;
#X obj 234 210 phasor~;
#X obj 234 282 *~ 2051;
#X obj 21 330 -~, f 31;
#X obj 234 234 +~, f 15;
#X obj 234 258 wrap~;
#X msg 336 101 \$1 100;
#X obj 336 125 line~;
#X obj 336 189 clip~ 0 0.5;
#X obj 173 31 loadbang;
#X msg 173 55 0;
#X obj 21 354 outlet~;
#X obj 21 77 inlet~;
#X text 70 74 freq;
#X obj 336 77 inlet;
#X text 380 76 pw \, from 0 to 0.5;
#X obj 21 306 tabread4~ sh101-saw-wavetable;
#X obj 234 306 tabread4~ sh101-saw-wavetable;
#X obj 513 121 inlet~;
#X text 513 103 Mod;
#X obj 664 128 inlet~;
#X text 664 110 Env;
#X obj 577 113 sig~ 1;
#X text 579 95 Manual (no mod);
#X obj 453 120 inlet;
#X text 453 100 switch;
#N canvas 0 25 381 333 switcher 0;
#X obj 104 48 inlet~;
#X text 104 30 Mod;
#X obj 255 55 inlet~;
#X text 255 37 Env;
#X text 170 22 Manual (no mod);
#X obj 44 47 inlet;
#X text 44 27 switch;
#X obj 20 209 *~;
#X msg 34 175 0;
#X msg 64 175 1;
#X obj 174 199 *~;
#X msg 188 165 0;
#X msg 218 165 1;
#X obj 283 207 *~;
#X msg 297 173 0;
#X msg 327 173 1;
#X obj 2 80 sel 0 1 2, f 50;
#X obj 149 238 outlet~;
#X obj 168 40 inlet~;
#X connect 0 0 7 0;
#X connect 2 0 13 0;
#X connect 5 0 16 0;
#X connect 7 0 17 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 17 0;
#X connect 11 0 10 1;
#X connect 12 0 10 1;
#X connect 13 0 17 0;
#X connect 14 0 13 1;
#X connect 15 0 13 1;
#X connect 16 0 9 0;
#X connect 16 0 14 0;
#X connect 16 0 11 0;
#X connect 16 1 8 0;
#X connect 16 1 14 0;
#X connect 16 1 12 0;
#X connect 16 2 8 0;
#X connect 16 2 15 0;
#X connect 16 2 11 0;
#X connect 18 0 10 0;
#X restore 522 155 pd switcher;
#X obj 336 159 *~;
#X obj 243 17 inlet;
#X obj 243 41 - 0.1;
#X msg 243 65 \$1 100;
#X obj 243 89 line~;
#X obj 243 113 *~;
#X obj 21 141 +~;
#X obj 71 111 *~;
#X text 100 100 scale the mod \; by the current \; freq b4 applying
it;
#X connect 0 0 1 0;
#X connect 1 0 17 0;
#X connect 2 0 5 0;
#X connect 3 0 18 0;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 28 0;
#X connect 9 0 5 1;
#X connect 10 0 11 0;
#X connect 11 0 0 1;
#X connect 11 0 2 1;
#X connect 13 0 35 0;
#X connect 13 0 34 0;
#X connect 15 0 7 0;
#X connect 17 0 4 0;
#X connect 18 0 4 1;
#X connect 19 0 27 1;
#X connect 19 0 33 1;
#X connect 21 0 27 3;
#X connect 23 0 27 2;
#X connect 25 0 27 0;
#X connect 27 0 28 1;
#X connect 28 0 9 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 35 1;
#X connect 34 0 0 0;
#X connect 34 0 2 0;
#X connect 35 0 34 1;
#X restore 61 366 pd band_limited_square;
#X obj 61 188 *, f 13;
#X obj 116 116 sel 0 1 2 3, f 18;
#X msg 116 140 2;
#X msg 146 140 1;
#X msg 177 140 0.5;
#X msg 208 140 0.25;
#X obj 116 164 t b f;
#X obj 61 212 pack f f;
#X obj 61 236 line~;
#X obj 61 390 outlet~;
#X obj 221 390 outlet~;
#N canvas 601 176 580 489 saw 0;
#X obj 21 110 phasor~;
#X obj 21 182 *~ 2051;
#X obj 21 254 outlet~;
#X obj 21 17 inlet~;
#X text 70 14 freq;
#X obj 371 325 table sh101-saw-wavetable;
#X msg 130 344 \; sh101-saw-wavetable sinesum 2051 1 0.5 0.333333 0.25
0.2 0.166667 0.142857 0.125 0.111111 0.1 0.090909 0.0833333 0.076923
0.0714286 0.0666667 0.0625 0.0588235 0.0555556 0.0526316 0.05 0.047619
0.0454545 0.0434783 0.0416667 0.04 0.0384615 0.037037 0.0357143 0.0344828
0.0333333 \; \; sh101-saw-wavetable normalize 1 \;;
#X obj 21 206 tabread4~ sh101-saw-wavetable;
#X obj 130 325 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 3 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X restore 221 366 pd saw;
#X obj 281 390 outlet~;
#N canvas 601 176 533 342 tri 0;
#X obj 21 80 phasor~;
#X obj 21 104 *~ 2051;
#X obj 21 174 outlet~;
#X obj 21 17 inlet~;
#X text 70 14 freq;
#X obj 334 225 table sh101-tri-wavetable;
#X msg 128 244 \; sh101-tri-wavetable sinesum 2051 1 0 -0.111111 0
0.04 -0.020408 0 0.0123457 0 -0.00826446 0 \; \; sh101-tri-wavetable
normalize 1 \;;
#X obj 21 128 tabread4~ sh101-tri-wavetable;
#X obj 128 225 loadbang;
#X obj 21 49 *~ 0.5;
#X text 70 47 the triangle osc is a sub osc;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 3 0 9 0;
#X connect 7 0 2 0;
#X connect 8 0 6 0;
#X connect 9 0 0 0;
#X restore 281 366 pd tri;
#X obj 424 390 outlet~;
#X text 397 360 raw frequency for filter;
#X text 411 116 PW;
#X text 358 121 RANGE;
#X obj 324 7 loadbang;
#X msg 311 28 1;
#X msg 365 29 0.5;
#X obj 33 15 inlet;
#X floatatom 33 66 5 0 0 0 - - -;
#X obj 450 142 vradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144
-1 -1 1;
#X text 444 122 PWM;
#X text 469 139 LFO;
#X text 469 155 Man;
#X text 469 171 Env;
#X obj 508 23 inlet~;
#X text 508 5 Mod;
#X obj 565 23 inlet~;
#X text 565 5 Env;
#X obj 33 39 route porta range pw mode;
#X floatatom 46 118 5 0 0 0 - - -;
#X msg 418 31 2;
#X obj 321 134 vsl 15 128 0.1 20 1 0 empty empty empty 0 -9 0 10 -262144
-1 -1 700 1;
#X text 315 110 MOD;
#X connect 0 0 6 2;
#X connect 1 0 8 0;
#X connect 6 0 16 0;
#X connect 7 0 14 0;
#X connect 8 0 9 0;
#X connect 8 1 10 0;
#X connect 8 2 11 0;
#X connect 8 3 12 0;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 11 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X connect 13 1 7 1;
#X connect 14 0 15 0;
#X connect 15 0 6 0;
#X connect 15 0 18 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 18 0 17 0;
#X connect 20 0 19 0;
#X connect 25 0 26 0;
#X connect 25 0 27 0;
#X connect 25 0 41 0;
#X connect 26 0 1 0;
#X connect 27 0 0 0;
#X connect 28 0 39 0;
#X connect 29 0 14 1;
#X connect 30 0 6 3;
#X connect 35 0 6 4;
#X connect 37 0 6 5;
#X connect 39 0 29 0;
#X connect 39 1 1 0;
#X connect 39 2 0 0;
#X connect 39 3 30 0;
#X connect 39 4 40 0;
#X connect 40 0 7 0;
#X connect 41 0 30 0;
#X connect 42 0 6 1;
#X coords 0 -1 1 1 200 190 2 300 100;