#N canvas 445 364 521 294 10;
#X obj 29 146 abs~;
#X obj 270 54 loadbang;
#X msg 205 82 0;
#X obj 29 181 fexpr~ if ($x1[0] > xmax_\$0 \, xmax_\$0 = $x1[0] \,
xmax_\$0=xmax_\$0*decay_\$0);
#X obj 205 113 v xmax_\$0;
#X obj 270 112 v decay_\$0;
#X obj 331 23 inlet;
#X obj 29 113 inlet~;
#X obj 30 226 outlet~;
#X msg 270 79 0.995;
#N canvas 3294 524 200 270 defaults 0;
#X obj 30 240 outlet;
#X obj 30 60 loadbang;
#X obj 30 106 makefilename .%c1;
#X obj 30 129 select .\$1;
#X msg 30 82 36;
#X obj 110 180 f \$1;
#X obj 110 154 t b;
#X msg 30 180 0.995;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 6 0;
#X connect 4 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 0 0;
#X restore 372 23 pd defaults;
#X obj 331 54 clip 0.0001 0.999999;
#X text 48 15 Peak-envelope generator;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 8 0;
#X connect 6 0 11 0;
#X connect 7 0 0 0;
#X connect 9 0 5 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
