#N canvas 223 68 914 700 10;
#N canvas 0 0 450 300 dw 0;
#X obj 100 85 inlet~;
#X obj 98 189 outlet~;
#X obj 137 124 delwrite~ \$0-x 100;
#X connect 0 0 2 0;
#X restore 80 129 pd dw;
#N canvas 0 0 673 467 dr 0;
#X obj 114 49 inlet~;
#X obj 170 332 outlet~;
#X obj 171 145 samplerate~;
#X msg 171 177 1000 \$1;
#X obj 171 204 /;
#X msg 179 119 bang;
#X obj 171 98 loadbang;
#X floatatom 181 264 5 0 0 0 - - -;
#X obj 171 297 delread~ \$0-x 12;
#X msg 261 178 256;
#X msg 294 178 512;
#X msg 331 177 64;
#X obj 260 200 t b a;
#X msg 364 179 32;
#X obj 171 229 * 256;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 14 0;
#X connect 5 0 2 0;
#X connect 6 0 2 0;
#X connect 8 0 1 0;
#X connect 9 0 12 0;
#X connect 10 0 12 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 1 14 1;
#X connect 13 0 12 0;
#X connect 14 0 7 0;
#X connect 14 0 8 0;
#X restore 80 156 pd dr;
#X obj 80 38 inlet~;
#X obj 79 595 outlet~;
#X obj 80 413 *~;
#X obj 189 127 dbtorms;
#X obj 110 272 loadbang;
#X msg 110 302 1;
#X obj 189 104 + 3;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-scope 512 float 2;
#X coords 0 1.1 511 -0.1 200 140 1;
#X restore 561 424 graph;
#X obj 277 166 spigot;
#X obj 331 163 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 0 0 453 353 to-table 0;
#X obj 159 114 f 0;
#X obj 187 114 + 1;
#X obj 159 140 mod 512;
#X obj 159 80 t b a;
#X obj 159 168 pack 0 0;
#X obj 159 194 s \$0-scope;
#X obj 159 48 inlet;
#X connect 0 0 2 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 3 1 4 1;
#X connect 4 0 5 0;
#X connect 6 0 3 0;
#X restore 277 188 pd to-table;
#X obj 371 587 table \$0-curve 1027;
#N canvas 402 130 654 642 make-curve 0;
#X obj 179 329 samplerate~;
#X msg 179 361 1000 \$1;
#X obj 179 388 /;
#X msg 187 303 bang;
#X obj 179 282 loadbang;
#X obj 161 413 *;
#X text 133 24 f6 2 1025 7 - 1 128 1 128 0.4 256 0.2 256 0.1 257 0.01
;
#X obj 161 435 t a a;
#X obj 136 305 swap;
#X obj 347 331 delay;
#X obj 136 190 list;
#X obj 136 235 list split 2;
#X obj 308 574 tabwrite~ \$0-curve;
#X msg 136 91 0 1 128 1 128 0.4 256 0.2 256 0.1 257 0.01;
#X obj 136 45 loadbang;
#X obj 136 119 t a b b b b b b b b b b b;
#X obj 136 495 vline~;
#X text 170 67 GEN 6 curve: pairs of <sample-pos value> \, no commas!
;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 1;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 7 0 16 1;
#X connect 7 1 9 0;
#X connect 8 0 16 0;
#X connect 8 1 5 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 1 10 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 10 0;
#X connect 15 11 12 0;
#X connect 16 0 12 0;
#X restore 522 585 pd make-curve;
#X text 322 18 threshold;
#N canvas 532 343 450 300 lookup 0;
#X obj 150 165 tabread4 \$0-curve;
#X obj 150 116 * 1024;
#X obj 150 139 + 1;
#X obj 150 192 outlet;
#X obj 150 75 inlet;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 1 0;
#X restore 522 615 pd lookup;
#N canvas 312 148 648 448 compress 0;
#X obj 204 62 inlet;
#X obj 204 137 moses 0.5;
#X obj 285 69 inlet;
#X text 282 47 threshold;
#X obj 204 345 outlet;
#X obj 286 188 -;
#X text 323 192 power - thres;
#X text 320 221 * comp1;
#X obj 286 252 +;
#X text 325 254 + thres;
#X obj 401 74 inlet;
#X text 401 52 comp1;
#X obj 204 320 / 1;
#X text 234 321 / power;
#X obj 204 94 t a a;
#X obj 471 74 inlet;
#X text 471 52 comp2;
#X obj 471 124 /;
#X msg 471 102 1 \$1;
#X text 19 380 thresh * pow(power/thresh \, 1/comp2);
#X obj 204 265 *;
#X obj 285 95 t a a a a a;
#X obj 204 187 / 1;
#X obj 204 237 pow 1;
#X obj 286 219 * 1;
#X connect 0 0 14 0;
#X connect 1 0 22 0;
#X connect 1 1 5 0;
#X connect 2 0 21 0;
#X connect 5 0 24 0;
#X connect 8 0 12 0;
#X connect 10 0 24 1;
#X connect 12 0 4 0;
#X connect 14 0 1 0;
#X connect 14 1 12 1;
#X connect 15 0 18 0;
#X connect 17 0 23 1;
#X connect 18 0 17 0;
#X connect 20 0 12 0;
#X connect 21 0 1 1;
#X connect 21 1 22 1;
#X connect 21 2 20 1;
#X connect 21 3 5 1;
#X connect 21 4 8 1;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 24 0 8 0;
#X restore 189 158 pd compress;
#X obj 189 271 pack 0 50;
#X text 407 16 comp1;
#X text 506 17 comp2;
#N canvas 0 0 450 300 t 0;
#X obj 134 69 loadbang;
#X obj 98 155 select 0;
#X obj 98 46 inlet;
#X obj 98 240 outlet;
#X msg 98 186 1;
#X obj 98 128 dbtorms;
#X obj 98 109 f 100;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X restore 322 64 pd t;
#N canvas 0 0 550 434 c1 0;
#X obj 134 69 loadbang;
#X obj 98 185 select 0;
#X obj 98 46 inlet;
#X obj 98 270 outlet;
#X msg 98 216 1;
#X obj 98 109 f 1;
#X msg 98 132 1 \$1;
#X obj 98 155 /;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X restore 411 65 pd c1;
#N canvas 0 0 450 300 c2 0;
#X obj 134 69 loadbang;
#X obj 98 185 select 0;
#X obj 98 46 inlet;
#X obj 98 270 outlet;
#X msg 98 216 1;
#X obj 98 109 f 1;
#X msg 98 132 1 \$1;
#X obj 98 155 /;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X restore 510 67 pd c2;
#N canvas 0 0 617 441 attack-release 0;
#X obj 156 286 f 50;
#X obj 194 286 f 50;
#X text 100 285 attack;
#X text 237 287 release;
#X obj 156 321 outlet;
#X obj 156 76 inlet;
#X obj 365 80 inlet;
#X obj 426 78 inlet;
#X text 361 55 attack;
#X text 427 55 release;
#X obj 247 73 inlet;
#X text 243 51 current gain;
#X obj 156 221 > 1;
#X obj 156 246 select 0 1;
#X text 154 50 target gain;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 5 0 12 0;
#X connect 6 0 0 1;
#X connect 7 0 1 1;
#X connect 10 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 0 0;
#X connect 13 1 1 0;
#X restore 249 245 pd attack-release;
#X obj 189 181 t a a a;
#X text 577 21 att;
#X text 668 24 rel;
#N canvas 0 0 450 300 a 0;
#X obj 134 69 loadbang;
#X obj 98 145 select 0;
#X obj 98 46 inlet;
#X obj 98 230 outlet;
#X msg 98 176 50;
#X obj 98 109 f 50;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X restore 599 69 pd a;
#N canvas 0 0 450 300 r 0;
#X obj 134 69 loadbang;
#X obj 98 145 select 0;
#X obj 98 46 inlet;
#X obj 98 230 outlet;
#X msg 98 176 50;
#X obj 98 109 f 50;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X restore 667 70 pd r;
#X obj 189 591 outlet~;
#X obj 317 384 snapshot~;
#X msg 338 362 bang;
#X floatatom 316 405 8 0 0 0 - - -;
#X obj 189 81 t a b;
#X obj 220 325 snapshot~;
#X obj 189 355 line~;
#X floatatom 264 402 5 0 0 0 - - -;
#X obj 189 388 lop~ 1000;
#X obj 189 58 env~ 256;
#X obj 666 171 u_loader e_dynproc-\$1 \$0;
#X obj 733 281 u_dispatch \$0 thresh;
#X obj 322 40 r \$0-thresh;
#X obj 667 41 r \$0-rel;
#X obj 599 40 r \$0-att;
#X obj 733 192 u_dispatch \$0 att;
#X obj 733 215 u_dispatch \$0 rel;
#X obj 188 33 inlet~;
#X obj 666 107 inlet;
#X obj 80 569 c_xfade;
#X obj 126 547 r \$0-dry;
#X obj 733 302 u_dispatch \$0 dry;
#X obj 733 325 u_dispatch \$0 makeup;
#X obj 109 497 line~;
#X obj 79 534 *~;
#X obj 109 476 pack 0 50;
#X obj 109 435 r \$0-makeup;
#X obj 204 423 loadbang;
#X msg 204 447 1;
#X obj 510 39 r \$0-comp2;
#X obj 411 38 r \$0-comp1;
#X obj 733 237 u_dispatch \$0 comp1;
#X obj 733 258 u_dispatch \$0 comp2;
#X obj 109 455 * 0.01;
#X obj 666 150 route save;
#X obj 666 128 list trim;
#X obj 666 193 outlet;
#N canvas 172 83 586 377 LICENSE-GPL 0;
#X text 57 88 This program is free software: you can redistribute it
and/or modify it under the terms of the GNU General Public License
as published by the Free Software Foundation \, either version 3 of
the License \, or (at your option) any later version.;
#X text 58 168 This program is distributed in the hope that it will
be useful \, but WITHOUT ANY WARRANTY \; without even the implied warranty
of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.;
#X text 57 261 You should have received a copy of the GNU General Public
License along with this program. If not \, see <http://www.gnu.org/licenses/>.
;
#X text 61 54 Copyright (C) 2009 \, Reality Jockey Ltd.;
#X text 60 325 See the file LICENSE.txt for the full license text.
;
#X restore 782 20 pd LICENSE-GPL;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 0 49 1;
#X connect 2 0 0 0;
#X connect 4 0 54 0;
#X connect 5 0 17 0;
#X connect 6 0 7 0;
#X connect 7 0 36 0;
#X connect 8 0 5 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 17 0 25 0;
#X connect 18 0 36 0;
#X connect 21 0 17 1;
#X connect 22 0 17 2;
#X connect 23 0 17 3;
#X connect 24 0 18 1;
#X connect 25 0 18 0;
#X connect 25 1 24 0;
#X connect 25 2 10 0;
#X connect 28 0 24 2;
#X connect 29 0 24 3;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 34 0 8 0;
#X connect 34 1 35 0;
#X connect 35 0 24 1;
#X connect 36 0 31 0;
#X connect 36 0 35 0;
#X connect 36 0 38 0;
#X connect 37 0 38 1;
#X connect 38 0 30 0;
#X connect 38 0 4 1;
#X connect 39 0 34 0;
#X connect 40 0 66 0;
#X connect 41 0 51 0;
#X connect 42 0 21 0;
#X connect 43 0 29 0;
#X connect 44 0 28 0;
#X connect 45 0 46 0;
#X connect 46 0 61 0;
#X connect 47 0 39 0;
#X connect 48 0 65 0;
#X connect 49 0 3 0;
#X connect 50 0 49 2;
#X connect 51 0 52 0;
#X connect 53 0 54 1;
#X connect 54 0 49 0;
#X connect 55 0 53 0;
#X connect 56 0 63 0;
#X connect 57 0 58 0;
#X connect 58 0 55 0;
#X connect 59 0 23 0;
#X connect 60 0 22 0;
#X connect 61 0 62 0;
#X connect 62 0 41 0;
#X connect 63 0 55 0;
#X connect 64 0 40 0;
#X connect 64 1 45 0;
#X connect 65 0 64 0;
