#N canvas 0 0 1016 722 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 graph1 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 graph1 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 Control_panel 35 8 0 14 -1
-262144 0;
#X obj 68 621 cnv 15 72 40 empty empty On 20 12 0 14 -24198 -66577
0;
#X msg 69 622 \; pd dsp 1;
#X obj 166 621 cnv 15 72 40 empty empty Off 20 12 0 14 -258699 -66577
0;
#X msg 167 622 \; 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 215 112 541 373 main 1;
#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 612 537 1052 558 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 graph1 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 graph1 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 78 857 755 trigger 1;
#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 216 350 env~;
#X floatatom 276 398 5 0 0 0 - - -;
#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 51 969 771 triggerf 1;
#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 -0.448714 -0.4326 -0.408399 -0.375042 -0.335154 -0.287729 -0.234413
-0.176458 -0.114841 -0.0512406 0.0138249 0.0780358 0.140782 0.201147
0.257088 0.307688 0.352245 0.390057 0.419538 0.440443 0.452376 0.455702
0.449141 0.433546 0.409314 0.376782 0.336955 0.290078 0.237312 0.17951
0.118107 0.0546281 -0.0102237 -0.0746483 -0.137944 -0.198431 -0.254433
-0.305704 -0.351024 -0.388714 -0.418134 -0.439955 -0.452467 -0.455794
-0.450087 -0.435102 -0.411328 -0.379315 -0.339427 -0.292856 -0.240516
-0.182897 -0.121769 -0.0578021 0.00665304 0.0713828 0.134526 0.195044
0.252113 0.303079 0.348674 0.386608 0.416913 0.438948 0.451888 0.455916
0.450423 0.436171 0.41261 0.381237 0.341899 0.295541 0.243324 0.185705
0.125065 0.0619526 -0.00299081 -0.0676901 -0.131291 -0.192083 -0.248543
-0.300577 -0.346049 -0.384564 -0.415296 -0.437666 -0.45143 -0.455672
-0.450606 -0.436903 -0.413526 -0.382244 -0.343486 -0.29725 -0.24546
-0.188025 -0.127628 -0.0639363 0.000640889 0.0656148 0.129185 0.189581
0.246864 0.298776 0.344676 0.383496 0.414716 0.437574 0.451552 0.456587
0.451918 0.438398 0.41615 0.385479 0.346629 0.301157 0.249428 0.192389
0.132054 0.0684225 0.00360118 -0.0611591 -0.124546 -0.18543 -0.242744
-0.295206 -0.341166 -0.380566 -0.412122 -0.435438 -0.449812 -0.454909
-0.451338 -0.43791 -0.416211 -0.385784 -0.34727 -0.302194 -0.250618
-0.193915 -0.133641 -0.0708335 -0.00570696 0.0593585 0.122379 0.183782
0.240944 0.29371 0.340159 0.379925 0.411969 0.435743 0.450423 0.456526
0.452925 0.440168 0.418683 0.388562 0.35081 0.305582 0.254494 0.197943
0.138157 0.0752281 0.0105899 -0.0545061 -0.118168 -0.179388 -0.237373
-0.289712 -0.336863 -0.37727 -0.409436 -0.433576 -0.448805 -0.454817
-0.452193 -0.439863 -0.419111 -0.389416 -0.351451 -0.306955 -0.256172
-0.200232 -0.139592 -0.0771203 -0.0122684 0.0526749 0.116428 0.177496
0.235389 0.288491 0.335704 0.376354 0.409253 0.43376 0.449263 0.45613
0.453475 0.442427 0.421369 0.392163 0.354747 0.310434 0.259896 0.20426
0.144322 0.0812403 0.0167852 -0.0479446 -0.111789 -0.173376 -0.231574
-0.284768 -0.332377 -0.373302 -0.406232 -0.431623 -0.448042 -0.455214
-0.452956 -0.441847 -0.421583 -0.392712 -0.35612 -0.311838 -0.261849
-0.206305 -0.146275 -0.0836207 -0.019013 0.0454726 0.109348 0.171484
0.229743 0.283212 0.33079 0.372387 0.406507 0.431532 0.447798 0.455611
0.454207 0.443312 0.42375 0.395581 0.359172 0.315806 0.265358 0.210273
0.150243 0.0875576 0.0232551 -0.0414441 -0.105472 -0.167699 -0.225959
-0.279855 -0.328043 -0.369304 -0.403943 -0.42967 -0.446669 -0.454726
-0.453444 -0.443464 -0.423994 -0.395886 -0.360057 -0.316843 -0.266884
-0.211921 -0.152318 -0.0901822 -0.0259407 0.0389416 0.102542 0.164769
0.223914 0.277993 0.326548 0.368206 0.402509 0.428907 0.446455 0.454817
0.454421 0.444533 0.425947 0.398267 0.362804 0.320109 0.270516 0.215583
0.156316 0.093936 0.0294504 -0.0352184 -0.0991852 -0.161382 -0.219764
-0.274728 -0.323374 -0.365795 -0.400525 -0.427168 -0.445845 -0.454482
-0.454451 -0.44496 -0.42674 -0.399731 -0.36436 -0.321848 -0.272744
-0.218146 -0.159276 -0.0971099 -0.0328074 0.0320444 0.096469 0.159062
0.21778 0.272408 0.321604 0.364177 0.399274 0.426466 0.444868 0.454604
0.454878 0.445875 0.427595 0.401074 0.366283 0.323954 0.275307 0.221564
0.162694 0.100497 0.0364391 -0.0285043 -0.0928373 -0.155675 -0.214728
-0.269753 -0.319102 -0.362224 -0.397778 -0.425306 -0.444258 -0.454512
-0.454878 -0.446608 -0.428755 -0.402936 -0.368694 -0.32667 -0.27781
-0.223792 -0.165685 -0.10361 -0.0396741 0.0256661 0.089877 0.15244
0.211493 0.266762 0.31666 0.359874 0.395642 0.423719 0.443617 0.453841
0.455306 0.447066 0.429609 0.404065 0.369884 0.328898 0.28074 0.227088
0.16834 0.106265 0.0426344 -0.022187 -0.0869167 -0.149541 -0.209174
-0.264504 -0.314676 -0.358135 -0.394513 -0.422987 -0.443098 -0.454115
-0.455916 -0.448225 -0.431471 -0.405896 -0.372173 -0.331156 -0.282998
-0.230079 -0.171728 -0.109867 -0.0461135 0.0182501 0.0829798 0.14597
0.205176 0.260903 0.311655 0.355998 0.39256 0.421461 0.441908 0.453261
0.455275 0.448012 0.431867 0.407178 0.37376 0.332957 0.285684 0.232429
0.174383 0.112888 0.0487686 -0.0158391 -0.0802637 -0.143681 -0.203192
-0.259407 -0.310129 -0.354503 -0.391339 -0.420789 -0.441511 -0.453139
-0.456191 -0.449263 -0.433576 -0.40904 -0.376293 -0.335978 -0.288919
-0.235969 -0.177831 -0.116276 -0.0529191 0.0115665 0.0764183 0.139378
0.199591 0.25605 0.306681 0.351207 0.388867 0.418531 0.439741 0.45201
0.45497 0.449019 0.433699 0.409528 0.377331 0.337168 0.290536 0.2378
0.180242 0.1189 0.0553911 -0.0097354 -0.0738548 -0.137089 -0.197729
-0.253548 -0.305246 -0.349834 -0.387951 -0.418409 -0.440291 -0.452712
-0.456618 -0.450819 -0.436232 -0.412763 -0.380688 -0.341075 -0.294168
-0.242164 -0.184606 -0.123356 -0.0599078 0.004944 0.0690634 0.132511
0.193304 0.249702 0.301157 0.346751 0.384869 0.415479 0.437819 0.451064
0.455123 0.449721 0.435163 0.412275 0.380413 0.341136 0.295053 0.242836
0.185858 0.125034 0.0619221 -0.00317392 -0.0674764 -0.131016 -0.192267
-0.248665 -0.300211 -0.346141 -0.384991 -0.416181 -0.438246 -0.452406
-0.456557 -0.451491 -0.438368 -0.415052 -0.384228 -0.34547 -0.299478
-0.247688 -0.190588 -0.130131 -0.0667135 -0.00167852 0.0629597 0.126499
0.187475 0.244209 0.296731 0.342357 0.381664 0.412854 0.435957 0.449965
0.454634 0.450819 0.437361 0.415113 0.384472 0.345744 0.300363 0.248817
0.192083 0.13184 0.0686666 0.00338755 -0.0614948 -0.124973 -0.185919
-0.24308 -0.295267 -0.341777 -0.38142 -0.413343 -0.436598 -0.451216
-0.456679 -0.453047 -0.439863 -0.417737 -0.387921 -0.349712 -0.304697
-0.25309 -0.196753 -0.136082 -0.0726951 -0.00863674 0.0563677 0.119663
0.180944 0.23899 0.291116 0.338145 0.377941 0.410077 0.434004 0.4485
0.455153 0.451857 0.43907 0.41792 0.388073 0.350108 0.305368 0.254524
0.198431 0.138127 0.0751061 0.0104678 -0.0540788 -0.117893 -0.179052
-0.236854 -0.289956 -0.337046 -0.377361 -0.410138 -0.434309 -0.449721
-0.456221 -0.453627 -0.441328 -0.420484 -0.390637 -0.353313 -0.309366
-0.2584 -0.202612 -0.142308 -0.0791955 -0.0146794 0.0500198 0.114109
0.175237 0.233467 0.286508 0.333537 0.374401 0.407483 0.432264 0.448012
0.454482 0.452559 0.441237 0.420301 0.391614 0.354625 0.310129 0.259896
0.204077 0.144353 0.0812403 0.0168157 -0.047792 -0.111759 -0.173498
-0.231452 -0.284768 -0.332621 -0.373577 -0.407147 -0.432295 -0.448653
-0.455916 -0.454207 -0.443007 -0.423261 -0.394635 -0.357952 -0.314249
-0.263405 -0.207984 -0.148656 -0.0856349 -0.0210578 0.0434278 0.10712
0.169286 0.227729 0.28135 0.329142 0.371044 0.404797 0.429975 0.447096
0.454726 0.453658 0.442976 0.423078 0.394787 0.359355 0.3155 0.265419
0.210669 0.150945 0.0883511 0.0242012 -0.0410779 -0.10477 -0.167058
-0.225654 -0.279397 -0.327891 -0.369274 -0.403485 -0.429365 -0.447096
-0.45558 -0.45439 -0.444136 -0.424909 -0.39729 -0.361644 -0.318735
-0.268838 -0.21363 -0.15421 -0.0918302 -0.028077 0.0372326 0.101505
0.163305 0.222236 0.276437 0.324839 0.367046 0.401837 0.428114 0.446211
0.454634 0.454268 0.444746 0.425825 0.398602 0.363384 0.320811 0.271279
0.216559 0.157537 0.0952483 0.0308542 -0.0339976 -0.0979339 -0.159673
-0.219214 -0.273721 -0.322764 -0.365734 -0.40022 -0.426862 -0.445143
-0.454543 -0.454482 -0.445265 -0.426923 -0.400128 -0.36491 -0.322398
-0.273507 -0.219153 -0.1601 -0.0977203 -0.033845 0.0311289 0.0954009
0.157659 0.216651 0.271584 0.320994 0.363475 0.398907 0.426191 0.444746
0.454482 0.455184 0.446577 0.428755 0.402478 0.367931 0.32548 0.276925
0.222541 0.163976 0.101627 0.0376904 -0.0273141 -0.0912809 -0.153569
-0.213477 -0.268197 -0.318003 -0.361034 -0.396741 -0.424268 -0.443556
-0.453749 -0.454665 -0.446425 -0.428755 -0.402661 -0.36848 -0.326914
-0.278787 -0.224311 -0.165929 -0.104099 -0.0399792 0.0245674 0.0886868
0.151677 0.211402 0.266427 0.316233 0.3596 0.396039 0.42436 0.443953
0.45439 0.455794 0.447676 0.430647 0.405499 0.371807 0.330302 0.282357
0.228339 0.169897 0.108615 0.044557 -0.020661 -0.0843532 -0.147374
-0.20719 -0.262947 -0.313273 -0.356426 -0.393292 -0.421644 -0.441786
-0.452925 -0.454787 -0.447523 -0.43141 -0.405988 -0.372509 -0.331736
-0.284005 -0.230781 -0.172338 -0.110721 -0.0470595 0.0181585 0.0822779
0.14539 0.205176 0.260811 0.311441 0.355602 0.39256 0.421766 0.442152
0.453841 0.456343 0.449049 0.433058 0.40846 0.3755 0.334635 0.287423
0.234077 0.176244 0.114963 0.0507828 -0.0139775 -0.0786157 -0.14127
-0.201025 -0.257363 -0.308145 -0.352794 -0.390301 -0.419507 -0.440718
-0.452528 -0.455458 -0.448836 -0.43379 -0.409314 -0.376659 -0.336314
-0.289346 -0.236793 -0.179296 -0.117588 -0.053621 0.0105594 0.0755028
0.138249 0.198859 0.254982 0.305918 0.351054 0.388318 0.418317 0.439467
0.451949 0.455306 0.449538 0.4344 0.410352 0.378185 0.338054 0.291543
0.23954 0.181494 0.120518 0.0571001 -0.00817896 -0.0727256 -0.13596
-0.196112 -0.252693 -0.303964 -0.348796 -0.38731 -0.417493 -0.439192
-0.452071 -0.455641 -0.450301 -0.436201 -0.412244 -0.380474 -0.341075
-0.294778 -0.242134 -0.185308 -0.124332 -0.0610675 0.00421155 0.0688803
0.131718 0.192846 0.249519 0.300912 0.346873 0.385388 0.415723 0.438093
0.45143 0.456008 0.450545 0.436384 0.413556 0.382122 0.343242 0.296945
0.244758 0.188025 0.127262 0.0635701 -0.00100711 -0.0657063 -0.128941
-0.189673 -0.246925 -0.298502 -0.344493 -0.38319 -0.414411 -0.437208
-0.451552 -0.456221 -0.451155 -0.437819 -0.415143 -0.383801 -0.345347
-0.299509 -0.247719 -0.190588 -0.129917 -0.0669576 -0.00216681 0.0627766
0.126133 0.187017 0.244026 0.296121 0.342296 0.381542 0.413221 0.436445
0.450453 0.455733 0.451796 0.439009 0.417096 0.385968 0.347972 0.302286
0.250771 0.194433;
#A 1000 0.133793 0.0708029 0.00582904 -0.0587481 -0.122166 -0.183843
-0.241096 -0.293252 -0.340281 -0.379742 -0.411206 -0.435011 -0.449751
-0.455367 -0.452315 -0.439558 -0.417585 -0.387555 -0.349315 -0.304514
-0.253639 -0.196783 -0.136418 -0.0734581;
#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 floatatom 640 516 5 0 0 0 - - -;
#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 48 0;
#X connect 3 0 16 1;
#X connect 4 0 3 0;
#X connect 6 0 20 0;
#X connect 6 0 35 0;
#X connect 7 0 34 0;
#X connect 8 0 34 0;
#X connect 9 0 15 0;
#X connect 9 0 42 0;
#X connect 9 0 43 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 0;
#X connect 31 0 33 1;
#X connect 33 0 19 0;
#X connect 34 0 6 0;
#X connect 34 0 38 0;
#X connect 34 0 39 0;
#X connect 35 0 33 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 28 1;
#X connect 38 0 2 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 14 1;
#X connect 42 0 11 0;
#X connect 43 0 12 0;
#X connect 44 0 7 0;
#X connect 45 0 20 0;
#X connect 46 0 8 0;
#X connect 48 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 15 0;
#X connect 0 0 21 1;
#X connect 0 0 28 0;
#X connect 1 0 21 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 23 0;
#X connect 7 1 9 0;
#X connect 7 1 22 0;
#X connect 8 0 17 0;
#X connect 9 0 17 0;
#X connect 11 0 28 0;
#X connect 12 0 19 1;
#X connect 13 0 12 0;
#X connect 15 0 16 0;
#X connect 17 0 11 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 21 2;
#X restore 40 255 pd trigger;
#X obj 72 317 tabwrite~ s;
#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 458 308 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;