#N canvas 270 23 1344 734 10; #X obj 128 285 osc~ 432; #X floatatom 128 249 5 0 0 0 - - -, f 5; #X obj 128 325 _fft_512; #X floatatom 856 634 7 0 100 0 - - -, f 7; #X obj 856 555 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 973 634 5 0 100 0 - - -, f 5; #X text 855 657 value; #X text 976 658 index; #X obj 128 641 tabwrite~ spectrum; #X obj 856 588 array max spectrum; #N canvas 0 22 450 278 (subpatch) 0; #X array spectrum 128 float 5; #A 0 2.22661e-06 1.86387e-06 1.53974e-06 1.69501e-06 1.86484e-06 2.05887e-06 2.2814e-06 2.54052e-06 2.84854e-06 3.19725e-06 3.54707e-06 4.07942e-06 4.61944e-06 5.29313e-06 6.10365e-06 7.08857e-06 8.30355e-06 9.79726e-06 1.17003e-05 1.40949e-05 1.72243e-05 2.13415e-05 2.68847e-05 3.45535e-05 4.5467e-05 6.14006e-05 8.57652e-05 0.000124991 0.000192742 0.000320089 0.000591359 0.00128989 0.00380322 0.0249449 0.137621 0.145099 0.0318278 0.00423404 0.00138625 0.000624639 0.000334578 0.000200078 0.000129134 8.81935e-05 6.29129e-05 4.64553e-05 3.52819e-05 2.74277e-05 2.17526e-05 1.7547e-05 1.43477e-05 1.18982e-05 9.96649e-06 8.44216e-06 7.21218e-06 6.21236e-06 5.39147e-06 4.70167e-06 4.29149e-06 3.40251e-06 3.37138e-06 2.90929e-06 2.60985e-06 2.35112e-06 2.12824e-06 1.93147e-06 1.76255e-06 1.61638e-06 1.47966e-06 1.36583e-06 1.26084e-06 1.17074e-06 1.28173e-06 1.57428e-06 1.32628e-06 7.6671e-07 9.18956e-07 7.82809e-07 7.41918e-07 7.04652e-07 6.5957e-07 6.73948e-07 5.86951e-07 5.88262e-07 5.62194e-07 5.41349e-07 5.22274e-07 5.07439e-07 4.92655e-07 4.71629e-07 4.74007e-07 4.56468e-07 4.48699e-07 4.42112e-07 4.37071e-07 4.32077e-07 4.28366e-07 4.28868e-07 4.24524e-07 4.3728e-07 4.19526e-07 4.34826e-07 4.37176e-07 4.42285e-07 4.49689e-07 4.53943e-07 4.7331e-07 4.65807e-07 5.05571e-07 5.01058e-07 5.21339e-07 5.40987e-07 5.7207e-07 6.41416e-07 1.04365e-06 5.98261e-07 6.71083e-07 6.89848e-07 7.2991e-07 7.69564e-07 8.1308e-07 9.50815e-07 7.70977e-07 1.04525e-06 1.0503e-06 1.12208e-06 1.20579e-06 1.29862e-06; #X coords 0 1 127 0 200 140 1 0 0; #X restore 469 522 graph; #X obj 481 362 print~; #X obj 481 337 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 547 362 t b b; #X obj 856 521 delay 10; #X obj 7 192 random 10000; #X obj 7 172 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 7 125 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 ; #X obj 481 311 delay 100; #X msg 128 200 200; #X msg 257 196 2000; #X msg 188 198 1000; #X msg 322 197 5000; #X msg 387 197 10000; #X obj 481 288 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 60 43 \; pd dsp 1 \;; #X obj 7 11 loadbang; #X obj 7 146 metro 20000; #X msg 566 193 11050; #X msg 711 196 19000; #X msg 636 195 14000; #X text 941 514 I need to create a delay otherwise it will not calculate the proper maximum value. Any way to speed this up?; #X text 563 159 Why there is aliasing for these frequencies?; #X connect 0 0 2 0; #X connect 1 0 0 0; #X connect 1 0 24 0; #X connect 2 0 8 0; #X connect 2 0 11 0; #X connect 4 0 9 0; #X connect 9 0 3 0; #X connect 9 1 5 0; #X connect 12 0 11 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 13 1 8 0; #X connect 14 0 4 0; #X connect 15 0 1 0; #X connect 16 0 15 0; #X connect 17 0 27 0; #X connect 18 0 12 0; #X connect 19 0 1 0; #X connect 20 0 1 0; #X connect 21 0 1 0; #X connect 22 0 1 0; #X connect 23 0 1 0; #X connect 24 0 18 0; #X connect 26 0 25 0; #X connect 26 0 17 0; #X connect 27 0 16 0; #X connect 28 0 1 0; #X connect 29 0 1 0; #X connect 30 0 1 0;