#N canvas 0 0 622 435 10;
#X obj 226 160 ihisto 128;
#X obj 182 88 random 128;
#X obj 182 69 metro 100;
#N canvas 0 0 450 300 (subpatch) 0;
#X array histogram 128 float 2;
#X coords 0 100 128 -1 512 140 1;
#X restore 53 265 graph;
#X obj 182 107 t b f;
#X floatatom 264 229 5 0 0 0 current_peak - -;
#X msg 264 136 mode \$1;
#X obj 264 115 hradio 17 1 0 3 empty empty highest 0 -8 0 10 -262144
-1 -1 0;
#X msg 182 126 get;
#N canvas 0 0 450 300 (subpatch) 0;
#X msg 79 179 label latest;
#X msg 98 203 label highest;
#X msg 115 229 label lowest;
#X obj 94 107 inlet;
#X obj 82 146 sel 0 1 2;
#X obj 81 250 outlet;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 4 1 1 0;
#X connect 4 2 2 0;
#X restore 239 115 pd;
#X text 318 114 <--- which to output if two or more;
#X text 348 125 are of equal frequency;
#X floatatom 194 199 5 0 0 0 peak - -;
#X floatatom 229 214 5 0 0 0 frequency - -;
#X obj 182 51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 285 55 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 302 55 <--- output peak and frequency then reset object;
#X msg 285 74 poll;
#X text 316 75 <--- output peak and frequency but do not reset;
#X msg 285 13 exclude 64;
#X text 351 13 <--- exclude value (reset when banged);
#X text 52 127 rightmost outlet --->;
#X text 60 117 output list on;
#X text 38 42 Integer histogram;
#X text 35 58 (c) 2011 Edward Kelly;
#X text 38 73 GNU GPL;
#X obj 302 195 tabset histogram;
#X floatatom 299 244 5 0 0 0 current_frequency - -;
#X obj 182 13 loadbang;
#X msg 182 32 1;
#X connect 0 0 12 0;
#X connect 0 1 13 0;
#X connect 0 2 5 0;
#X connect 0 3 27 0;
#X connect 0 4 26 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 4 0 8 0;
#X connect 4 1 0 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 7 0 9 0;
#X connect 8 0 0 0;
#X connect 9 0 7 0;
#X connect 14 0 2 0;
#X connect 15 0 0 0;
#X connect 17 0 0 0;
#X connect 19 0 0 0;
#X connect 28 0 29 0;
#X connect 29 0 14 0;