#N canvas 0 31 860 633 10;
#N canvas 0 22 450 300 (subpatch) 0;
#X array play-01 209416 float 0;
#X coords 0 1 209415 -1 750 71 1;
#X restore 72 34 graph;
#N canvas 0 22 482 332 play-01 0;
#X obj 104 61 inlet;
#X obj 201 119 inlet;
#X obj 201 135 openpanel;
#X msg 201 151 read -resize \$1 play-01;
#X obj 201 167 soundfiler;
#X obj 201 183 / 44.1;
#X obj 201 199 outlet;
#X obj 62 77 tabplay~ play-01;
#X obj 62 134 outlet~;
#X obj 248 183 / 1024;
#X obj 272 213 i;
#X obj 393 229 outlet;
#X msg 272 229 \; hssc resize \$1 \; sssc resize \$1 \; pointer resize
\$1;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 10 0 11 0;
#X restore 88 329 pd play-01;
#X obj 88 299 bng 15 250 50 0 empty empty play -6 -10 0 18 -225280
-1 -90881;
#X obj 153 315 bng 15 250 50 0 empty bang-load load -4 -6 0 12 -228992
-1 -1;
#X floatatom 245 367 5 2 2000 1 ratio ratio_set -;
#X floatatom 88 469 5 0 0 0 - - -;
#X obj 182 498 f;
#X obj 211 530 ==;
#X obj 211 498 + 1;
#X obj 88 482 t f b;
#X obj 211 546 sel 1;
#X msg 211 562 0;
#X obj 211 514 t f f;
#X obj 88 313 t b b;
#X floatatom 243 345 0 0 0 0 length(ms) - -;
#X obj 88 453 spigot;
#X obj 88 421 t f f;
#X obj 118 437 > 0;
#N canvas 0 22 462 312 hssc+rfft 0;
#X obj 102 168 hssc~;
#X obj 102 126 rfft~;
#X obj 102 78 inlet~;
#X obj 147 126 inlet;
#X text 141 169 ratio;
#X obj 102 208 outlet;
#X obj 146 208 outlet;
#X obj 238 170 block~ 1024;
#X connect 0 0 5 0;
#X connect 0 1 6 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 1 0;
#X connect 3 0 0 2;
#X restore 88 380 pd hssc+rfft;
#X obj 88 514 tabwrite hssc;
#X floatatom 273 444 5 0 0 0 - - -;
#X obj 367 473 f;
#X obj 396 505 ==;
#X obj 396 473 + 1;
#X obj 273 457 t f b;
#X obj 396 521 sel 1;
#X msg 396 537 0;
#X obj 396 489 t f f;
#X obj 273 428 spigot;
#X obj 273 396 t f f;
#X obj 303 412 > 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array hssc 204 float 0;
#X coords 0 511 203 0 750 71 1;
#X restore 72 107 graph;
#N canvas 0 22 450 300 (subpatch) 0;
#X array sssc 204 float 0;
#X coords 0 511 203 0 750 71 1;
#X restore 72 193 graph;
#X obj 273 489 tabwrite sssc;
#X obj 100 351 dac~;
#N canvas 0 22 450 300 (subpatch) 0;
#X array pointer 204 float 0;
#X coords 0 1 203 0 750 11 1;
#X restore 72 180 graph;
#X obj 363 588 tabwrite pointer;
#X obj 367 556 t b f b f;
#X msg 409 572 1;
#X obj 386 572 - 1;
#X msg 363 572 0;
#X obj 152 411 del 100;
#X msg 152 427 \; pointer const 0;
#X obj 196 361 + 100;
#N canvas 0 22 454 304 init 0;
#X obj 104 162 s ratio_set;
#X msg 104 146 100;
#X obj 104 130 loadbang;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 88 563 pd init;
#X floatatom 294 345 5 0 0 1 frames - -;
#X text 421 275 The highest significant spectral component is defined
as the highest frequency bin of a discrete Fourier transform with an
amplitude equal to the strongest component divided by the hssc ratio
\, input to the third inlet of the object.;
#X text 421 325 It may be used to trace the extent of high frequencies
in the input relative to prominent components \, a sort of spectral
envelope...;
#X text 325 367 between highest significant spectral component and
strongest significant spectral component;
#X text 7 381 IN HERE--->;
#X msg 559 448 \; pd dsp 1 \; bang-load bang;
#X text 562 432 start here;
#X text 563 489 then hit play;
#N canvas 369 151 494 344 META 0;
#X text 12 185 HELP_PATCH_AUTHORS Ed Kelly. Revised by Jonathan Wilkes
for Pd-extended 0.42 to conform to the PDDP template.;
#X text 12 165 AUTHOR Ed Kelly <morph_2016@yahoo.co.uk>;
#X text 12 5 KEYWORDS signal;
#X text 12 25 LICENSE GPL v3;
#X text 12 45 DESCRIPTION the highest significant spectral component
;
#X text 12 65 INLET_0 signal;
#X text 12 85 INLET_1 signal;
#X text 12 105 INLET_2 float;
#X text 12 125 OUTLET_0 float;
#X text 12 145 OUTLET_1 float;
#X restore 794 598 pd META;
#X connect 1 0 34 0;
#X connect 1 0 34 1;
#X connect 1 0 18 0;
#X connect 1 1 14 0;
#X connect 1 2 7 1;
#X connect 1 2 22 1;
#X connect 1 2 45 0;
#X connect 2 0 13 0;
#X connect 3 0 1 1;
#X connect 4 0 18 1;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 6 0 19 1;
#X connect 7 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 19 0;
#X connect 9 1 6 0;
#X connect 10 0 11 0;
#X connect 11 0 6 1;
#X connect 12 0 7 0;
#X connect 12 1 6 1;
#X connect 13 0 1 0;
#X connect 13 1 11 0;
#X connect 13 1 26 0;
#X connect 13 1 41 0;
#X connect 14 0 43 0;
#X connect 15 0 5 0;
#X connect 16 0 15 0;
#X connect 16 1 17 0;
#X connect 17 0 15 1;
#X connect 18 0 16 0;
#X connect 18 1 29 0;
#X connect 20 0 24 0;
#X connect 21 0 23 0;
#X connect 21 0 33 1;
#X connect 21 0 37 0;
#X connect 22 0 25 0;
#X connect 23 0 27 0;
#X connect 24 0 33 0;
#X connect 24 1 21 0;
#X connect 25 0 26 0;
#X connect 26 0 21 1;
#X connect 27 0 22 0;
#X connect 27 1 21 1;
#X connect 28 0 20 0;
#X connect 29 0 28 0;
#X connect 29 1 30 0;
#X connect 30 0 28 1;
#X connect 37 0 40 0;
#X connect 37 1 39 0;
#X connect 37 2 38 0;
#X connect 37 3 36 1;
#X connect 38 0 36 0;
#X connect 39 0 36 1;
#X connect 40 0 36 0;
#X connect 41 0 42 0;
#X connect 41 0 11 0;
#X connect 41 0 26 0;
#X connect 43 0 41 1;