#N canvas 112 22 568 570 10;
#N canvas 0 22 474 324 threshblock 0;
#X obj 197 47 inlet;
#X obj 234 68 inlet;
#X obj 161 29 inlet~;
#X obj 161 111 outlet~;
#X obj 339 87 block~ 256;
#X obj 313 47 inlet;
#X obj 161 87 thresher~ 0.1 0.99 4 1;
#X connect 0 0 6 1;
#X connect 1 0 6 2;
#X connect 2 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X restore 64 79 pd threshblock;
#X obj 66 223 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 64 21 noise~;
#X obj 249 206 vsl 15 128 1e-05 0.2 0 0 thresh b threshold 0 -8 0 8
-73688 -1 -1 6350 1;
#X obj 300 206 vsl 15 128 0.75 0.999 0 0 damp c damping_factor 0 -8
0 8 -258462 -1 -1 10201 1;
#X obj 64 187 dac~;
#X obj 64 138 *~ 0.1;
#X msg 66 246 \; pd dsp \$1;
#X obj 205 206 vsl 15 128 0 4 0 0 amp a amp 0 -8 0 8 -150784 -1 -1
2540 1;
#N canvas 0 22 462 312 init 0;
#X obj 31 29 loadbang;
#X obj 32 71 unpack f f f;
#X obj 33 99 s a;
#X obj 43 108 s b;
#X obj 53 118 s c;
#X msg 31 51 0.8 0.1 0.95;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 5 0 1 0;
#X restore 67 286 pd init;
#X obj 101 116 nbx 5 14 -1e+37 1e+37 0 0 empty amp empty 0 -6 0 10
-262144 -1 -1 0.8 256;
#X obj 126 60 nbx 5 14 -1e+37 1e+37 0 0 empty damp empty 0 -6 0 10
-262144 -1 -1 0.950004 256;
#X obj 95 44 nbx 5 14 -1e+37 1e+37 0 0 empty thresh empty 0 -6 0 10
-262144 -1 -1 0.100005 256;
#X text 113 20 <- something more interesting could go here.;
#X obj 251 63 fftease-system;
#X text 54 359 thresher~ sustains the amplitude and frequency in lower-energy
FFT bins. The extent of this effect is controlled by the threshold
parameter - at 0 all frames pass \, at higher values more frames are
sustained. The damping factor controls the decay time - a value of
1 gives an infinite freeze. See also the somewhat more interesting
bthresher~.;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 0 0;
#X connect 6 0 5 0;
#X connect 6 0 5 1;
#X connect 10 0 6 1;
#X connect 11 0 0 2;
#X connect 12 0 0 1;
#X connect 14 0 0 3;