#N canvas 693 0 542 648 10;
#X obj 27 251 #cast f;
#X obj 27 595 #clip;
#X obj 26 386 #cast i;
#X obj 27 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X msg 197 103 4 2 # 0 0 0 1 1 1 1 0;
#X obj 27 232 #outer * (1 0);
#X obj 26 367 #remap_image;
#X obj 26 348 # sqrt (f #);
#X obj 27 329 #inner (2 f # 1 1) \, seed (f #);
#X obj 27 310 # *;
#X obj 27 289 t a a;
#X obj 26 481 t a a;
#X obj 27 103 #store (256 256 1 #);
#X obj 27 122 #draw_polygon put (255);
#X obj 79 484 # >> 8;
#X obj 79 465 #inner (1 3 # 255 128 64);
#X obj 27 576 # +;
#X obj 127 586 #greyscale_to_rgb;
#X obj 127 567 # * 255;
#X obj 127 529 #convolve (3 3 # 0 -1 0 -1 4 -1);
#X obj 27 84 metro 50;
#X obj 197 84 loadbang;
#X obj 26 405 # << 8;
#X obj 26 462 # >> 8;
#X obj 114 367 # + 128;
#X obj 26 443 # + 128;
#X obj 26 424 #fade 8;
#X floatatom 442 65 5 0 0 0 - - -;
#X floatatom 398 65 5 0 0 0 - - -;
#X floatatom 354 65 5 0 0 0 - - -;
#X msg 365 122 3 3 # \$1 \$2 \$1 \$2 \$3 \$2;
#X obj 365 84 #pack 3;
#X obj 365 103 #to_list;
#X obj 292 354 # C.log (2 f #);
#X obj 292 468 #greyscale_to_rgb;
#X obj 292 430 #cast i;
#X obj 292 373 #inner (2 f # 0 1) \, seed (f #);
#X obj 292 411 # + (f # 128);
#X obj 292 449 #clip;
#X obj 292 392 # * (f # 40);
#X obj 27 270 #fft;
#X obj 197 122 # * 1;
#X obj 127 548 # > 0;
#X obj 128 510 # & 224;
#X obj 57 183 #convolve (3 3 # -1 2 -1 2 -4 2);
#X obj 27 149 #convolve (3 3 # 1 2 1 2 4 2 1 2 1);
#X obj 27 213 # >> 4;
#X text 28 8 Operator Spectrum patch.;
#X text 28 25 Copyright 2007 by Mathieu Bouchard;
#X text 28 42 as demonstrated at Pd Convention 2007;
#X obj 27 614 #out window;
#X connect 0 0 40 0;
#X connect 1 0 50 0;
#X connect 2 0 22 0;
#X connect 3 0 20 0;
#X connect 4 0 41 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 6 1 24 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 10 1 9 1;
#X connect 11 0 43 0;
#X connect 11 1 15 0;
#X connect 12 0 13 0;
#X connect 13 0 45 0;
#X connect 14 0 16 1;
#X connect 15 0 14 0;
#X connect 16 0 1 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 42 0;
#X connect 20 0 12 0;
#X connect 21 0 4 0;
#X connect 22 0 26 0;
#X connect 23 0 11 0;
#X connect 24 0 6 1;
#X connect 25 0 23 0;
#X connect 26 0 25 0;
#X connect 27 0 31 2;
#X connect 28 0 31 1;
#X connect 29 0 31 0;
#X connect 30 0 45 1;
#X connect 31 0 32 0;
#X connect 32 0 30 0;
#X connect 33 0 36 0;
#X connect 35 0 38 0;
#X connect 36 0 39 0;
#X connect 37 0 35 0;
#X connect 38 0 34 0;
#X connect 39 0 37 0;
#X connect 40 0 10 0;
#X connect 41 0 13 2;
#X connect 42 0 18 0;
#X connect 43 0 19 0;
#X connect 44 0 46 0;
#X connect 45 0 46 0;
#X connect 46 0 5 0;