#N canvas 635 121 774 681 12;
#X floatatom 41 42 9 0 0 0 - - -;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array99 11 float 0;
#X coords 0 1 10 -1 250 200 1;
#X restore 436 180 graph;
#X obj 437 48 loadbang;
#X floatatom 41 -1 5 0 135 0 - - -;
#X obj 41 19 mtof;
#X floatatom 77 307 0 0 0 0 - - -;
#N canvas 159 26 706 447 output 0;
#X obj 414 196 t b;
#X obj 414 134 f;
#X obj 414 73 inlet;
#X text 421 36 mute;
#X obj 414 227 f;
#X msg 521 218 0;
#X msg 414 104 bang;
#X obj 414 166 moses 1;
#X obj 521 187 t b f;
#X obj 486 143 moses 1;
#X obj 102 181 dbtorms;
#X obj 486 113 r master-lvl;
#X obj 102 52 r master-lvl;
#X obj 414 257 s master-lvl;
#X obj 26 222 inlet~;
#X obj 244 50 inlet;
#X text 244 22 level;
#X obj 244 122 s master-lvl;
#X msg 118 80 set \$1;
#X obj 118 109 outlet;
#X msg 262 78 \; pd dsp 1;
#X obj 102 238 line~;
#X obj 26 259 *~;
#X obj 26 295 dac~;
#X obj 102 210 pack 0 50;
#X text 24 195 audio;
#X text 114 135 show level;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 24 0 21 0;
#X restore 43 333 pd output;
#X msg 113 307 MUTE;
#X obj 179 230 *~;
#X msg 356 42 \$1 30;
#X obj 359 19 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 357 89 -~ 1;
#X obj 356 113 *~ -1;
#X obj 356 66 line~;
#X obj 43 231 *~;
#X msg 294 67 0;
#X msg 437 75 \; array99 resize 11 \; array99 0 0 0 -0.5 -0.5 1 -1
0.5 -1 0 0 0 \; pd dsp 1 \;;
#X text 40 395 tabosc4c~ is a drop in remplacement for tabosc4~ \,
but offer a 4 points cubic interpolation with tengent continuity. So
\, in some case \, quality is better than the standart interpolation
;
#X obj 179 122 tabosc4~ array99;
#X obj 157 498 oscillo~;
#X text 279 17 tabosc4~;
#X text 498 18 tabosc4aa~;
#N canvas 607 39 645 763 osc~ 0;
#X obj 12 133 pack~;
#X obj 14 7 inlet~;
#X text 269 6 change block size;
#X msg 77 379 0;
#X obj 47 403 f;
#X obj 63 428 + 1;
#X obj 17 379 t a b;
#X obj 16 245 gemhead;
#X text 72 7 audio input;
#X obj 13 29 rfft~;
#X obj 13 51 *~;
#X obj 53 53 *~;
#X obj 173 6 block~ 4096 4;
#X obj 12 75 /~ 4096;
#X obj 12 95 log~;
#X obj 12 114 *~ 0.05;
#X obj 12 152 list prepend 0;
#X obj 12 173 s \$0-fft;
#X obj 172 26 table \$0-fft 2048;
#X obj 172 46 table \$0-fft-lop 2048;
#X obj 401 13 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 401 31 t b b;
#X obj 400 71 until;
#X msg 401 52 2048;
#X msg 443 74 0;
#X obj 400 96 f;
#X obj 415 119 + 1;
#X obj 400 163 tabread \$0-fft;
#X obj 494 163 tabread \$0-fft-lop;
#X obj 400 213 +;
#X obj 400 256 tabwrite \$0-fft-lop;
#X obj 400 138 t f f f;
#X obj 424 7 bang~;
#X obj 400 235 / 8;
#X obj 495 187 * 7;
#X obj 77 494 tabread \$0-fft-lop;
#X obj 30 589 loadbang;
#X obj 47 451 t f f;
#X obj 98 591 l;
#X msg 30 611 res 3;
#X obj 22 224 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 97 560 t l b;
#X obj 18 659 curve 2;
#X obj 46 519 pack f f f;
#X floatatom 36 296 5 0 0 0 - - -;
#X floatatom 78 297 5 0 0 0 - - -;
#X obj 17 334 t a b;
#X floatatom 72 250 5 0 0 0 - - -;
#X floatatom 114 251 5 0 0 0 - - -;
#X obj 17 358 repeat 2048;
#X obj 14 277 translateXYZ -4 0 0;
#X obj 47 471 log;
#X obj 17 314 scaleXYZ 1.04 6 0;
#X connect 0 0 16 0;
#X connect 1 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 37 0;
#X connect 5 0 4 1;
#X connect 6 0 42 0;
#X connect 6 1 4 0;
#X connect 7 0 50 0;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 9 1 11 0;
#X connect 9 1 11 1;
#X connect 10 0 13 0;
#X connect 11 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 0 0;
#X connect 16 0 17 0;
#X connect 20 0 21 0;
#X connect 21 0 23 0;
#X connect 21 1 24 0;
#X connect 22 0 25 0;
#X connect 23 0 22 0;
#X connect 24 0 25 1;
#X connect 25 0 26 0;
#X connect 25 0 31 0;
#X connect 26 0 25 1;
#X connect 27 0 29 0;
#X connect 28 0 34 0;
#X connect 29 0 33 0;
#X connect 31 0 27 0;
#X connect 31 1 28 0;
#X connect 31 2 30 1;
#X connect 32 0 21 0;
#X connect 33 0 30 0;
#X connect 34 0 29 1;
#X connect 35 0 43 1;
#X connect 36 0 39 0;
#X connect 37 0 51 0;
#X connect 37 1 35 0;
#X connect 38 0 42 2;
#X connect 39 0 42 0;
#X connect 40 0 7 0;
#X connect 41 0 38 1;
#X connect 41 1 38 0;
#X connect 43 0 41 0;
#X connect 43 0 42 1;
#X connect 44 0 52 1;
#X connect 45 0 52 2;
#X connect 46 0 49 0;
#X connect 46 1 3 0;
#X connect 47 0 50 1;
#X connect 48 0 50 2;
#X connect 49 0 6 0;
#X connect 50 0 52 0;
#X connect 51 0 43 0;
#X connect 52 0 46 0;
#X restore 205 288 pd osc~;
#X msg 305 230 reset \, create \, 1;
#X msg 311 252 0 \, destroy;
#X msg 41 60 \$1 100;
#X obj 41 83 line~;
#X obj 42 123 tabosc4aa~ array99;
#X obj 305 274 gemwin 20;
#X floatatom 106 4 5 0 0 0 - - -;
#X connect 0 0 25 0;
#X connect 2 0 16 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 6 1;
#X connect 6 0 5 0;
#X connect 7 0 6 2;
#X connect 8 0 6 0;
#X connect 8 0 19 0;
#X connect 8 0 22 0;
#X connect 9 0 13 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 8 1;
#X connect 13 0 11 0;
#X connect 13 0 14 1;
#X connect 14 0 6 0;
#X connect 14 0 19 0;
#X connect 14 0 22 0;
#X connect 15 0 18 1;
#X connect 15 0 27 1;
#X connect 18 0 8 0;
#X connect 23 0 28 0;
#X connect 24 0 28 0;
#X connect 25 0 26 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 14 0;
#X connect 29 0 4 0;