#N canvas 31 54 664 386 12;
#X obj 43 27 adc~;
#X msg 90 61 minvel \$1;
#X floatatom 92 35 5 0 100 0 - - -;
#X obj 50 229 output~;
#N canvas 0 0 450 300 (subpatch) 0;
#X array bonk-out 25 float 3;
#A 0 3.90137 5.6865 5.52579 4.48674 6.18097 6.48544 8.58678 10.6866
8.2061 4.75383 3.50608 4.53376 6.6136 6.51462 4.44884 3.35295 3.6527
6.50084 6.58486 4.35194 3.60375 3.49322 2.81606 2.10259 1.79605;
#X coords 0 20 25 0 200 140 1;
#X restore 488 45 graph;
#X obj 44 142 list prepend 0;
#X obj 45 175 s bonk-out;
#X msg 207 50 print 1;
#X obj 44 91 bonk~ -npts 512 -nfilters 25 -halftones 3 -overlap 2;
#N canvas 85 36 475 383 costransfo 0;
#X obj 89 11 inlet;
#X obj 43 120 f;
#X obj 151 135 moses 25;
#X obj 150 108 + 1;
#X obj 81 86 until;
#X obj 144 165 b;
#X obj 86 57 t b b;
#X obj 146 61 0;
#X obj 49 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 42 222 onecos 25 0;
#X obj 34 270 outlet;
#X obj 134 274 outlet;
#X obj 226 279 outlet;
#X obj 64 187 t f f f;
#X obj 60 146 t f f;
#X obj 137 224 onecos 25 1;
#X obj 227 225 onecos 25 2;
#X connect 0 0 6 0;
#X connect 1 0 14 0;
#X connect 2 0 1 1;
#X connect 2 1 5 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 5 0 9 1;
#X connect 5 0 15 1;
#X connect 5 0 16 1;
#X connect 6 0 4 0;
#X connect 6 1 7 0;
#X connect 7 0 1 1;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 13 0 9 0;
#X connect 13 1 15 0;
#X connect 13 2 16 0;
#X connect 14 0 3 0;
#X connect 14 1 13 0;
#X connect 15 0 11 0;
#X connect 16 0 12 0;
#X restore 276 171 pd costransfo;
#N canvas 64 87 475 383 invcostransfo 0;
#X obj 89 11 inlet;
#X obj 76 159 f;
#X obj 151 135 moses 25;
#X obj 150 108 + 1;
#X obj 81 86 until;
#X obj 144 165 b;
#X obj 86 57 t b b;
#X obj 146 61 0;
#X obj 49 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 248 97 inlet;
#X obj 297 98 inlet;
#X obj 352 96 inlet;
#X obj 41 209 t f f;
#X obj 25 348 pack;
#X obj 34 373 s recon-out;
#X obj 164 367 print;
#X obj 59 251 pack 0 0 0 0 25;
#X obj 50 282 expr cos(3.14159*($f1+0.5)*0/$f5)*$f2/$f5 +cos(3.14159*($f1+0.5)*1/$f5)*$f3*2/$f5
+cos(3.14159*($f1+0.5)*2/$f5)*$f4*2/$f5;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 1 0 12 0;
#X connect 2 0 1 1;
#X connect 2 1 5 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 4 1;
#X connect 6 0 4 0;
#X connect 6 1 7 0;
#X connect 7 0 1 1;
#X connect 8 0 6 0;
#X connect 9 0 16 1;
#X connect 10 0 16 2;
#X connect 11 0 16 3;
#X connect 12 0 13 0;
#X connect 12 1 16 0;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 16 0 17 0;
#X connect 17 0 13 1;
#X restore 254 274 pd invcostransfo;
#N canvas 0 0 450 300 (subpatch) 0;
#X array recon-out 25 float 3;
#A 0 5.77479 5.85657 6.01624 6.24621 6.53566 6.87117 7.23744 7.61822
7.99718 8.35884 8.68941 8.9775 9.21468 9.39592 9.51966 9.58782 9.60551
9.58053 9.52279 9.44351 9.35444 9.26696 9.19133 9.13592 9.10668;
#X coords 0 20 25 0 200 140 1;
#X restore 489 212 graph;
#X floatatom 276 214 5 0 0 0 - - -;
#X floatatom 322 216 5 0 0 0 - - -;
#X floatatom 369 219 5 0 0 0 - - -;
#X obj 231 253 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 272 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 302 20 noise~;
#X obj 300 48 *~ 0.1;
#X obj 392 132 print;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 1 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 19 0;
#X connect 9 0 12 0;
#X connect 9 1 13 0;
#X connect 9 2 14 0;
#X connect 12 0 10 1;
#X connect 13 0 10 2;
#X connect 14 0 10 3;
#X connect 15 0 10 0;
#X connect 16 0 9 0;
#X connect 17 0 18 0;