#N canvas 0 0 1032 738 12;
#X obj -4 0 cnv 15 1000 708 empty empty empty 20 12 0 14 -33289 -66577
0;
#X obj 0 5 cnv 15 990 698 empty empty empty 20 12 0 14 -225271 -66577
0;
#X obj 464 21 cnv 15 460 610 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 469 26 cnv 15 450 600 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 491 342 cnv 15 400 200 empty empty empty 20 12 0 14 -228992
-66577 0;
#X obj 490 66 cnv 15 400 200 empty empty empty 20 12 0 14 -228992 -66577
0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array . 1024 float 0;
#X coords 0 1.02 1023 -1.02 400 200 1;
#X restore 490 66 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array * 64 float 0;
#X coords 0 1 63 0 400 200 1;
#X restore 491 342 graph;
#X obj 36 596 cnv 15 220 80 empty empty Kontrollpanel 35 8 0 14 -1
-262144 0;
#X obj 68 621 cnv 15 72 40 empty empty På 20 12 0 14 -24198 -66577
0;
#X msg 70 623 \; pd dsp 1;
#X obj 166 621 cnv 15 72 40 empty empty Av 20 12 0 14 -258699 -66577
0;
#X msg 169 623 \; pd dsp 0;
#X obj 13 117 cnv 15 200 100 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 18 122 cnv 15 190 90 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 24 130 adc~ 1;
#X floatatom 24 191 15 0 0 1 dBRMS - -;
#N canvas 14 138 553 385 main 0;
#X obj 121 39 inlet~;
#X obj 255 319 outlet;
#X obj 135 93 env~ 4096;
#X obj 281 80 loadbang;
#X obj 416 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 290 145 metro 100;
#N canvas 112 89 1060 566 fft-analysis 0;
#X obj 241 228 + 1;
#X msg 313 322 0;
#X obj 127 190 *~;
#X obj 38 69 *~;
#X obj 37 38 *~;
#X obj 72 436 *~;
#X obj 37 -36 inlet~;
#X obj 37 436 *~;
#X obj 76 38 tabreceive~ hanning;
#X obj 38 116 rfft~;
#X obj 37 461 rifft~;
#X obj 37 517 outlet~;
#X text 88 21 Hanning window;
#X text 31 94 forward real FFT;
#X text 52 479 inverse real FFT;
#X obj 72 69 sig~ 0.03125;
#N canvas 0 0 450 300 (subpatch) 0;
#X array mask 1024 float 0;
#X coords 0 1 1024 0 400 200 1;
#X restore 476 354 graph;
#X obj 94 190 *~;
#X obj 94 214 +~;
#X floatatom 241 253 0 0 0 0 - - -;
#X msg 247 105 0;
#X obj 175 184 float;
#X obj 226 184 + 1;
#X obj 175 123 bang~;
#X obj 175 148 spigot;
#X floatatom 301 98 0 0 0 0 - - -;
#X obj 101 314 tabreceive~ mask;
#X obj 241 277 t b b f;
#X obj 266 322 /;
#X msg 266 298 1;
#X obj 78 344 -~;
#X obj 266 358 sig~;
#X obj 313 298 sel 0;
#X obj 247 388 *~;
#X obj 212 419 +~;
#X obj 227 446 tabsend~ mask;
#X floatatom 313 358 0 0 0 0 - - -;
#X obj 175 209 t f f;
#X text 100 231 power is square;
#X text 100 245 modulus of FFT;
#X obj 303 36 loadbang;
#X obj 298 181 <;
#X msg 253 36 bang;
#X text 237 11 click to make an average;
#X obj 91 408 sig~ 0.03125;
#X text 338 70 Set the number;
#X text 340 85 of frames to;
#X text 342 101 average;
#X text 593 573 average power spectrum;
#X text 272 253 current frame;
#X text 284 378 weight of new;
#X text 275 391 frame in moving;
#X text 304 404 average;
#X obj 40 555 block~ 1024 2;
#X msg 303 61 40;
#X obj 94 271 tabsend~ *;
#X obj 74 -3 *~ 0.15;
#X connect 0 0 19 0;
#X connect 1 0 31 0;
#X connect 1 0 36 0;
#X connect 2 0 18 1;
#X connect 3 0 9 0;
#X connect 4 0 3 0;
#X connect 5 0 10 1;
#X connect 6 0 56 0;
#X connect 7 0 10 0;
#X connect 8 0 4 1;
#X connect 9 0 7 0;
#X connect 9 0 17 0;
#X connect 9 0 17 1;
#X connect 9 1 5 0;
#X connect 9 1 2 0;
#X connect 9 1 2 1;
#X connect 10 0 11 0;
#X connect 15 0 3 1;
#X connect 17 0 18 0;
#X connect 18 0 30 0;
#X connect 18 0 55 0;
#X connect 19 0 27 0;
#X connect 20 0 21 1;
#X connect 20 0 41 0;
#X connect 21 0 37 0;
#X connect 21 0 22 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X connect 25 0 41 1;
#X connect 26 0 30 1;
#X connect 26 0 34 1;
#X connect 27 1 29 0;
#X connect 27 2 28 1;
#X connect 28 0 31 0;
#X connect 28 0 36 0;
#X connect 29 0 28 0;
#X connect 30 0 33 0;
#X connect 31 0 33 1;
#X connect 32 0 1 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 41 0;
#X connect 37 1 0 0;
#X connect 40 0 54 0;
#X connect 41 0 24 1;
#X connect 41 0 32 0;
#X connect 42 0 20 0;
#X connect 44 0 7 1;
#X connect 44 0 5 1;
#X connect 54 0 25 0;
#X connect 56 0 4 0;
#X restore 103 195 pd fft-analysis;
#N canvas 84 23 827 640 hanning-window 0;
#X obj 92 198 phasor~;
#X obj 92 234 cos~;
#X obj 23 328 tabwrite~ hanning;
#X obj 30 252 -~;
#X obj 28 218 sig~ 1;
#X msg 37 171 0;
#X text 48 59 CALCULATE HANNING;
#X text 45 71 WINDOW TABLE;
#N canvas 0 0 450 300 (subpatch) 0;
#X array hanning 1024 float 0;
#X coords 0 1 1023 -1 400 300 1;
#X restore 290 209 graph;
#X msg 290 521 \; hanning resize 1024;
#X obj 114 145 / 1024;
#X obj 114 168 sig~;
#X text 175 148 sample rate / window size;
#X msg 23 94 bang;
#X obj 66 269 sig~ 0.5;
#X obj 49 300 *~;
#X obj 22 38 loadbang;
#X obj 113 117 samplerate~;
#X connect 0 0 1 0;
#X connect 1 0 3 1;
#X connect 3 0 15 0;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 13 0 2 0;
#X connect 13 0 5 0;
#X connect 13 0 17 0;
#X connect 14 0 15 1;
#X connect 15 0 2 0;
#X connect 16 0 13 0;
#X connect 17 0 10 0;
#X restore 384 274 pd hanning-window;
#X obj 281 236 - 100;
#N canvas 214 37 869 767 trigger 0;
#X obj 100 343 inlet~;
#X obj 230 -36 loadbang;
#X text 287 -58 Simple trigger function;
#X obj 124 450 fiddle~;
#X floatatom 158 480 5 0 0 0 - - -;
#X obj 64 -13 r trigonoff;
#X floatatom 64 19 5 0 0 0 - - -;
#X obj 49 59 select 1;
#X msg 28 130 bang;
#X msg 90 103 stop;
#X text 66 -35 Trig on/off;
#X obj 46 195 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 155 532 mtof;
#X obj 155 505 float;
#X text 136 430 Pitch Estimation;
#X obj 43 163 metro 300;
#X obj 45 546 r estfreqbng;
#X obj 156 578 f;
#X obj 144 610 s estfreq;
#N canvas 51 25 977 779 triggerf 0;
#N canvas 0 0 506 308 count-to-x 0;
#X obj 69 167 f 0;
#X obj 232 154 + 1;
#X obj 69 126 until;
#X msg 141 131 0;
#X obj 69 59 inlet;
#X obj 69 201 outlet;
#X text 134 79 counts from 0 to incoming number;
#X obj 69 85 t a b;
#X connect 0 0 5 0;
#X connect 0 0 1 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 7 0;
#X connect 7 0 2 0;
#X connect 7 1 3 0;
#X restore 470 -5 pd count-to-x;
#X floatatom 469 38 5 0 0 0 - - -;
#X msg 544 -69 bang;
#X floatatom 322 53 5 0 0 0 - - -;
#X obj 438 89 f;
#N canvas 0 0 450 300 (subpatch) 0;
#X array scopef 1024 float 1;
#A 0 -3.05185e-005 0 0 0 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 0 0 0 -3.05185e-005 0 0 0 0 -3.05185e-005 0 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005
0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 0
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 0 0
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 0 -3.05185e-005 0 0
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 0 0 0 0 -3.05185e-005
-3.05185e-005 0 0 0 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 0 0 0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
0 0 0 0 -3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 0 0 0 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 0 0 0 0 0 -3.05185e-005 0 0 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 0 0 0 0 -3.05185e-005 0 -3.05185e-005
0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005
0 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 0 0 0 -3.05185e-005
0 -3.05185e-005 0 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 0 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 0 0 0 0 -3.05185e-005 0 0 -3.05185e-005 0 0 0 0 0 0 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 0 0
0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 0 0 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005
0 0 0 0 0 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 0
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005
0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 0
-3.05185e-005 0 -3.05185e-005 0 0 0 0 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 0 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 0 0 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 0 0 0 0 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 0 0
0 0 0 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 -3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005
-3.05185e-005 0 0 0 0 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 -3.05185e-005 0 -3.05185e-005 -3.05185e-005
-3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005 -3.05185e-005
0 -3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 0 0;
#A 1000 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 0 -3.05185e-005
0 -3.05185e-005 -3.05185e-005 0 0 -3.05185e-005 -3.05185e-005 0 -3.05185e-005
-3.05185e-005 0 -3.05185e-005 0 -3.05185e-005 -3.05185e-005 -3.05185e-005
-3.05185e-005;
#X coords 0 2 1023 -2 100 70 1;
#X restore 42 403 graph;
#X msg 105 231 bang;
#X obj 27 155 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 99 136 stop;
#X obj 528 138 tabread scopef;
#X obj 493 342 select 2;
#X floatatom 478 214 5 0 0 0 - - -;
#X floatatom 552 214 5 0 0 0 - - -;
#X obj 503 258 +;
#X obj 502 298 f;
#X floatatom 362 163 5 0 0 0 - - -;
#X obj 330 241 f;
#X floatatom 329 288 5 0 0 0 - - -;
#X obj 332 326 + 1;
#N canvas 315 193 812 660 sampleposshifter 0;
#X text 100 5 Shifts samples position according to a sample-event from
eventfinder;
#X obj 371 42 inlet;
#X floatatom 371 76 5 0 0 0 - - -;
#X text 418 67 samplessteps to shift;
#X obj 371 186 t b a;
#X obj 371 314 t a a;
#X obj 471 384 +;
#N canvas 0 0 390 272 count-to-x 0;
#X obj 69 167 f 0;
#X obj 99 166 + 1;
#X obj 69 126 until;
#X msg 108 125 0;
#X obj 69 59 inlet;
#X obj 69 201 outlet;
#X text 134 79 counts from 0 to incoming number;
#X obj 69 85 t a b;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 7 0;
#X connect 7 0 2 0;
#X connect 7 1 3 0;
#X restore 371 275 pd count-to-x;
#X obj 371 246 t a a;
#X text 426 95 size of table is 100;
#X floatatom 592 455 5 0 0 0 - - -;
#X obj 371 348 tabread scopef;
#X obj 374 119 f;
#X obj 373 153 * -1;
#X floatatom 284 321 5 0 0 0 - - -;
#X obj 472 412 mod 128;
#X obj 378 216 f 1024;
#X obj 369 453 tabwrite .;
#X connect 1 0 2 0;
#X connect 2 0 12 0;
#X connect 4 0 16 0;
#X connect 4 1 6 1;
#X connect 5 0 11 0;
#X connect 5 1 6 0;
#X connect 6 0 15 0;
#X connect 7 0 5 0;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 8 1 15 1;
#X connect 11 0 17 0;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 15 0 10 0;
#X connect 15 0 17 1;
#X connect 16 0 8 0;
#X restore 727 622 pd sampleposshifter;
#X obj 40 352 tabwrite~ scopef;
#X obj 804 138 tabread scopef;
#X floatatom 335 363 5 0 0 0 - - -;
#X obj 671 138 tabread scopef;
#X floatatom 670 171 5 0 0 0 - - -;
#X floatatom 804 172 5 0 0 0 - - -;
#X obj 720 248 >=;
#X floatatom 720 311 5 0 0 0 - - -;
#X obj 721 350 f;
#X floatatom 721 386 5 0 0 0 - - -;
#X obj 720 428 select 1;
#X obj 655 472 f;
#X obj 728 561 f;
#X obj 107 195 metro 400;
#X obj 787 512 delay 380;
#X msg 851 332 bang;
#X obj 855 399 f 0;
#X obj 263 -24 delay 50;
#X obj 226 59 delay 20;
#X msg 228 101 bang;
#X obj 232 142 f 0;
#X obj 479 178 <= 0.03;
#X obj 553 176 >= -0.03;
#X obj 39 -26 inlet;
#X obj 99 306 inlet~;
#X obj 165 -27 inlet;
#X text 155 307 Micin;
#X obj 544 -37 f 300;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 1 0 9 0;
#X connect 2 0 47 0;
#X connect 3 0 16 1;
#X connect 4 0 3 0;
#X connect 6 0 20 0;
#X connect 6 0 34 0;
#X connect 7 0 33 0;
#X connect 8 0 33 0;
#X connect 9 0 15 0;
#X connect 9 0 41 0;
#X connect 9 0 42 0;
#X connect 10 0 4 0;
#X connect 10 0 16 0;
#X connect 11 0 13 0;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 0 23 0;
#X connect 17 0 31 1;
#X connect 18 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 1;
#X connect 32 0 19 0;
#X connect 33 0 6 0;
#X connect 33 0 37 0;
#X connect 33 0 38 0;
#X connect 34 0 32 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 28 1;
#X connect 37 0 2 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 14 1;
#X connect 41 0 11 0;
#X connect 42 0 12 0;
#X connect 43 0 7 0;
#X connect 44 0 20 0;
#X connect 45 0 8 0;
#X connect 47 0 0 0;
#X restore 349 88 pd triggerf;
#X msg 183 23 bang;
#X msg 186 93 bang;
#X text 405 44 Stop;
#X text 330 50 Start;
#X text 351 16 Triggerblock;
#X text 267 284 Bug to fix 061114: *remove artefacts on end of last
cycle in samplepos.. *add positive slopetrig;
#X obj 45 228 tabwrite~ .;
#X connect 0 0 3 0;
#X connect 0 0 19 1;
#X connect 0 0 26 0;
#X connect 1 0 19 0;
#X connect 3 2 4 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 21 0;
#X connect 7 1 9 0;
#X connect 7 1 20 0;
#X connect 8 0 15 0;
#X connect 9 0 15 0;
#X connect 11 0 26 0;
#X connect 12 0 17 1;
#X connect 13 0 12 0;
#X connect 15 0 11 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 19 2;
#X restore 40 255 pd trigger;
#X connect 0 0 2 0;
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 2 0 8 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 8 0 1 0;
#X restore 24 160 pd main;
#N canvas 0 0 462 312 help 0;
#X restore 15 15 pd help;
#X connect 15 0 17 0;
#X connect 17 0 16 0;
#X coords 0 0 3 1 0 0 0;