#N canvas 351 125 914 546 10;
#X obj 16 6 inlet~;
#X obj 16 59 outlet~;
#X obj 563 325 loadbang;
#N canvas 317 2 634 736 workings 0;
#X obj 199 15 inlet~ signal;
#X obj 228 673 outlet~;
#X obj 253 576 r \$0-gain;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 268 596 pd rh_scalelog;
#X obj 228 642 *~;
#X obj 298 556 r \$0-loadbang;
#X obj 257 621 - 0.1;
#X msg 348 576 10.1;
#X msg 313 576 0.1;
#X obj 200 128 *~ 1;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 232 93 pd rh_scalelog;
#X obj 262 53 r \$0-loadbang;
#X msg 277 73 0.1;
#X obj 210 73 r \$0-drive;
#X obj 211 58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 236 577 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 243 244 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 297 495 *~;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 296 446 pd rh_scalelog;
#X obj 326 406 r \$0-loadbang;
#X obj 285 471 - 0.1;
#X msg 341 426 0.1;
#X obj 238 427 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 255 426 r \$0-noiseLvl;
#N canvas 112 71 749 538 confusion-part 0;
#X obj 120 420 vcf_lp4~ 5000 1;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 150 361 pd rh_scalelog;
#X obj 199 321 r \$0-loadbang;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 216 404 pd rh_scalelog;
#X obj 246 364 r \$0-loadbang;
#X msg 230 341 20000;
#X msg 195 341 40;
#X msg 261 384 0.01;
#X msg 296 384 100;
#X obj 111 342 r \$0-reaction;
#X obj 168 384 r \$0-reactReso;
#X obj 154 385 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 86 500 outlet~;
#X obj 301 487 outlet~;
#X obj 85 151 inlet~;
#X obj 114 324 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 185 494 outlet~;
#N canvas 390 92 819 525 fexpr-replacement 0;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 212 295 pd rh_scalelog;
#X obj 242 255 r \$0-loadbang;
#X obj 161 274 r \$0-decaySpeed;
#X obj 147 270 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 65 31 inlet~;
#X obj 142 459 outlet~;
#X obj 375 438 outlet~;
#X obj 214 46 delread~ \$0-conf 0;
#X obj 212 317 expr 1/$f1;
#X obj 167 355 peakenv~;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 428 75 pd rh_scalelog;
#X obj 458 35 r \$0-loadbang;
#X msg 473 55 0.1;
#X obj 417 100 - 0.05;
#X msg 502 54 5;
#X obj 389 55 r \$0-resetP;
#X obj 470 101 r \$0-reset%;
#X obj 470 121 t b f;
#X obj 371 56 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 540 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 453 143 expr $f1*.99*$f2+0.0000000000001;
#X obj 109 355 peakenv~;
#X obj 141 389 -~;
#X obj 121 102 +~;
#X msg 257 275 30;
#X msg 292 275 15000;
#X obj 362 313 block~ 64;
#X obj 95 162 expr~ if($v1 < -$f3 \, $f4 + max(0 \, $v2) \, 0);
#X obj 205 195 expr~ if($v1 > $f3 \, -$f4 + min(0 \, $v2) \, 0);
#X connect 0 0 8 0;
#X connect 1 0 24 0;
#X connect 1 0 25 0;
#X connect 2 0 0 0;
#X connect 4 0 23 0;
#X connect 7 0 23 1;
#X connect 7 0 27 1;
#X connect 7 0 28 1;
#X connect 8 0 9 1;
#X connect 8 0 21 1;
#X connect 9 0 22 1;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 11 0 14 0;
#X connect 12 0 10 1;
#X connect 13 0 20 0;
#X connect 13 0 27 2;
#X connect 13 0 28 2;
#X connect 14 0 10 2;
#X connect 15 0 10 0;
#X connect 16 0 17 0;
#X connect 17 0 20 0;
#X connect 17 1 20 1;
#X connect 20 0 27 3;
#X connect 20 0 28 3;
#X connect 21 0 22 0;
#X connect 22 0 5 0;
#X connect 23 0 27 0;
#X connect 23 0 28 0;
#X connect 24 0 0 1;
#X connect 25 0 0 2;
#X connect 27 0 6 0;
#X connect 27 0 21 0;
#X connect 28 0 9 0;
#X connect 28 0 6 0;
#X restore 185 258 pd fexpr-replacement;
#X obj 119 455 delwrite~ \$0-conf 30;
#X connect 0 0 12 0;
#X connect 0 0 18 0;
#X connect 1 0 0 1;
#X connect 2 0 6 0;
#X connect 2 0 5 0;
#X connect 3 0 0 2;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 1 2;
#X connect 6 0 1 1;
#X connect 7 0 3 1;
#X connect 8 0 3 2;
#X connect 9 0 1 0;
#X connect 10 0 3 0;
#X connect 14 0 12 0;
#X connect 14 0 17 0;
#X connect 17 0 0 0;
#X connect 17 0 16 0;
#X connect 17 1 13 0;
#X restore 228 201 pd confusion-part;
#X obj 243 260 r \$0-wetLvl;
#X obj 53 246 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 69 245 r \$0-dryLvl;
#X obj 69 268 *~;
#X obj 228 283 *~;
#X text 341 200 5;
#X text 412 216 4;
#X msg 312 73 10;
#X floatatom 279 659 5 0 0 0 - - -;
#X floatatom 324 640 5 0 0 0 - - -;
#X obj 276 360 sqrt~;
#X obj 276 341 peakenv_hold~ 50 100;
#X obj 312 386 *~;
#X text 313 360 noiselvl dependant on effectstr;
#X obj 328 317 +~;
#X msg 376 426 4.1;
#X text 489 255 f 0.65537;
#N canvas 0 0 400 532 noise-part 0;
#X obj 155 -29 inlet~;
#X obj 155 476 outlet~;
#X obj 170 329 LFO_noise~;
#X obj 155 360 *~;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 242 400 pd rh_scalelog;
#X obj 272 360 r \$0-loadbang;
#X msg 287 380 0.13;
#X msg 322 380 130;
#X obj 196 380 r \$0-noiseReso;
#X obj 218 365 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 155 445 vcf_lp4~ 5000 1;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 189 279 pd rh_scalelog;
#X obj 219 239 r \$0-loadbang;
#X obj 138 258 r \$0-noiseTone;
#X obj 141 242 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 234 259 50;
#X msg 269 259 3000;
#X obj 189 303 / 0.71537;
#X obj 242 421 * 0.71537;
#X obj 36 180 init 1;
#N canvas 158 249 460 341 blocked 0;
#X obj 74 16 inlet~;
#X obj 74 302 outlet~;
#X obj 139 17 inlet;
#X obj 74 227 peakenv_hold~;
#X obj 111 205 * 0.2;
#X obj 75 83 expr~ if($v2>$f4 \, 0 \, if($v1!=0 \, 1 \, 0));
#X obj 297 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 275 41 r \$0-NoiseP;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 300 61 pd rh_scalelog;
#X obj 330 21 r \$0-loadbang;
#X msg 345 41 0.001;
#X msg 380 41 0.99;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 183 142 pd rh_scalelog;
#X obj 213 101 r \$0-loadbang;
#X obj 135 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 263 121 500;
#X obj 132 120 r \$0-noiseKrr;
#X msg 228 121 0.5;
#X obj 111 184 expr $f1*1000/$f2;
#X obj 149 204 expr $f1 * log(0.368326)/log( $f2 );
#X obj 329 177 t b f;
#X text 103 244 this shuld be samplerate dependantly reblocked;
#X obj 140 69 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 90 271 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 12 64 block~ 64;
#X obj 183 161 t b f;
#X obj 149 61 r~ \$0-mid;
#X obj 98 263 s~ \$0-mid;
#X connect 0 0 5 0;
#X connect 2 0 18 0;
#X connect 3 0 1 0;
#X connect 3 0 27 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 5 3;
#X connect 8 0 20 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 8 1;
#X connect 11 0 8 2;
#X connect 12 0 25 0;
#X connect 13 0 17 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 12 2;
#X connect 16 0 12 0;
#X connect 17 0 12 1;
#X connect 18 0 4 0;
#X connect 18 0 19 0;
#X connect 19 0 3 2;
#X connect 20 0 19 0;
#X connect 20 1 19 1;
#X connect 25 0 18 0;
#X connect 25 1 18 1;
#X connect 26 0 5 1;
#X restore 156 131 pd blocked;
#X connect 0 0 20 0;
#X connect 2 0 3 1;
#X connect 3 0 10 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 4 0;
#X connect 10 0 1 0;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 15 0 11 1;
#X connect 16 0 11 2;
#X connect 17 0 2 0;
#X connect 17 0 10 1;
#X connect 18 0 10 2;
#X connect 19 0 17 1;
#X connect 19 0 18 1;
#X connect 19 0 20 1;
#X connect 20 0 3 0;
#X restore 328 236 pd noise-part;
#X text 490 278 f 1.51983;
#X obj 229 551 tanh~;
#N canvas 0 0 400 532 noise-part-high 0;
#X obj 155 -29 inlet~;
#X obj 155 476 outlet~;
#X obj 170 329 LFO_noise~;
#X obj 155 360 *~;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 242 400 pd rh_scalelog;
#X obj 272 360 r \$0-loadbang;
#X msg 287 380 0.13;
#X msg 322 380 130;
#X obj 196 380 r \$0-noiseReso;
#X obj 218 365 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 155 445 vcf_lp4~ 5000 1;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 189 279 pd rh_scalelog;
#X obj 219 239 r \$0-loadbang;
#X obj 138 258 r \$0-noiseTone;
#X obj 141 242 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 234 259 50;
#X msg 269 259 3000;
#X obj 189 303 / 0.71537;
#X obj 242 421 * 0.71537;
#N canvas 158 249 460 341 blocked 0;
#X obj 74 16 inlet~;
#X obj 74 302 outlet~;
#X obj 139 17 inlet;
#X obj 74 227 peakenv_hold~;
#X obj 111 205 * 0.2;
#X obj 75 83 expr~ if($v2>$f4 \, 0 \, if($v1!=0 \, 1 \, 0));
#X obj 297 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 275 41 r \$0-NoiseP;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 300 61 pd rh_scalelog;
#X obj 330 21 r \$0-loadbang;
#X msg 345 41 0.001;
#X msg 380 41 0.99;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 183 142 pd rh_scalelog;
#X obj 213 101 r \$0-loadbang;
#X obj 135 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 263 121 500;
#X obj 132 120 r \$0-noiseKrr;
#X msg 228 121 0.5;
#X obj 111 184 expr $f1*1000/$f2;
#X obj 149 204 expr $f1 * log(0.368326)/log( $f2 );
#X obj 329 177 t b f;
#X text 103 244 this shuld be samplerate dependantly reblocked;
#X obj 140 69 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 90 271 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 12 64 block~ 64;
#X obj 183 161 t b f;
#X obj 98 263 s~ \$0-high;
#X obj 149 61 r~ \$0-high;
#X connect 0 0 5 0;
#X connect 2 0 18 0;
#X connect 3 0 1 0;
#X connect 3 0 26 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 5 3;
#X connect 8 0 20 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 8 1;
#X connect 11 0 8 2;
#X connect 12 0 25 0;
#X connect 13 0 17 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 12 2;
#X connect 16 0 12 0;
#X connect 17 0 12 1;
#X connect 18 0 4 0;
#X connect 18 0 19 0;
#X connect 19 0 3 2;
#X connect 20 0 19 0;
#X connect 20 1 19 1;
#X connect 25 0 18 0;
#X connect 25 1 18 1;
#X connect 27 0 5 1;
#X restore 156 131 pd blocked;
#X obj 36 180 init 0.65537;
#X connect 0 0 19 0;
#X connect 2 0 3 1;
#X connect 3 0 10 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 4 0;
#X connect 10 0 1 0;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 15 0 11 1;
#X connect 16 0 11 2;
#X connect 17 0 2 0;
#X connect 17 0 10 1;
#X connect 18 0 10 2;
#X connect 19 0 3 0;
#X connect 20 0 17 1;
#X connect 20 0 18 1;
#X connect 20 0 19 1;
#X restore 342 257 pd noise-part-high;
#N canvas 0 0 400 532 noise-part-low 0;
#X obj 155 -29 inlet~;
#X obj 155 476 outlet~;
#X obj 170 329 LFO_noise~;
#X obj 155 360 *~;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 242 400 pd rh_scalelog;
#X obj 272 360 r \$0-loadbang;
#X msg 287 380 0.13;
#X msg 322 380 130;
#X obj 196 380 r \$0-noiseReso;
#X obj 218 365 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 155 445 vcf_lp4~ 5000 1;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 189 279 pd rh_scalelog;
#X obj 219 239 r \$0-loadbang;
#X obj 138 258 r \$0-noiseTone;
#X obj 141 242 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 234 259 50;
#X msg 269 259 3000;
#X obj 189 303 / 0.71537;
#X obj 242 421 * 0.71537;
#N canvas 158 249 460 341 blocked 0;
#X obj 74 16 inlet~;
#X obj 74 302 outlet~;
#X obj 139 17 inlet;
#X obj 74 227 peakenv_hold~;
#X obj 111 205 * 0.2;
#X obj 75 83 expr~ if($v2>$f4 \, 0 \, if($v1!=0 \, 1 \, 0));
#X obj 297 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 275 41 r \$0-NoiseP;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 300 61 pd rh_scalelog;
#X obj 330 21 r \$0-loadbang;
#X msg 345 41 0.001;
#X msg 380 41 0.99;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 183 142 pd rh_scalelog;
#X obj 213 101 r \$0-loadbang;
#X obj 135 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 263 121 500;
#X obj 132 120 r \$0-noiseKrr;
#X msg 228 121 0.5;
#X obj 111 184 expr $f1*1000/$f2;
#X obj 149 204 expr $f1 * log(0.368326)/log( $f2 );
#X obj 329 177 t b f;
#X text 103 244 this shuld be samplerate dependantly reblocked;
#X obj 140 69 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 90 271 bng 8 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 12 64 block~ 64;
#X obj 183 161 t b f;
#X obj 149 61 r~ \$0-low;
#X obj 98 263 s~ \$0-low;
#X connect 0 0 5 0;
#X connect 2 0 18 0;
#X connect 3 0 1 0;
#X connect 3 0 27 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 5 3;
#X connect 8 0 20 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 8 1;
#X connect 11 0 8 2;
#X connect 12 0 25 0;
#X connect 13 0 17 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 12 2;
#X connect 16 0 12 0;
#X connect 17 0 12 1;
#X connect 18 0 4 0;
#X connect 18 0 19 0;
#X connect 19 0 3 2;
#X connect 20 0 19 0;
#X connect 20 1 19 1;
#X connect 25 0 18 0;
#X connect 25 1 18 1;
#X connect 26 0 5 1;
#X restore 156 131 pd blocked;
#X obj 36 180 init 1.51983;
#X connect 0 0 19 0;
#X connect 2 0 3 1;
#X connect 3 0 10 0;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 4 0;
#X connect 10 0 1 0;
#X connect 11 0 17 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 15 0 11 1;
#X connect 16 0 11 2;
#X connect 17 0 2 0;
#X connect 17 0 10 1;
#X connect 18 0 10 2;
#X connect 19 0 3 0;
#X connect 20 0 17 1;
#X connect 20 0 18 1;
#X connect 20 0 19 1;
#X restore 358 278 pd noise-part-low;
#X connect 0 0 9 0;
#X connect 0 0 28 1;
#X connect 2 0 3 0;
#X connect 2 0 34 0;
#X connect 3 0 6 0;
#X connect 4 0 1 0;
#X connect 5 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X connect 6 0 33 0;
#X connect 7 0 3 2;
#X connect 8 0 3 1;
#X connect 9 0 24 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 11 0 32 0;
#X connect 12 0 10 1;
#X connect 13 0 10 0;
#X connect 17 0 44 0;
#X connect 18 0 20 0;
#X connect 19 0 21 0;
#X connect 19 0 40 0;
#X connect 20 0 17 0;
#X connect 21 0 18 1;
#X connect 23 0 18 0;
#X connect 24 0 29 0;
#X connect 24 1 36 0;
#X connect 24 2 42 0;
#X connect 24 2 45 0;
#X connect 24 2 46 0;
#X connect 25 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 4 0;
#X connect 29 0 44 0;
#X connect 32 0 10 2;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 37 0 17 1;
#X connect 39 0 37 1;
#X connect 40 0 18 2;
#X connect 42 0 39 0;
#X connect 44 0 4 0;
#X connect 45 0 39 0;
#X connect 46 0 39 1;
#X restore 16 30 pd workings;
#X obj 664 84 s \$0-gain;
#X obj 107 116 hsl 80 13 0 1 0 0 \$0-a \$0-ra 0)drive 7 7 0 10 -192513
-258439 -262140 7900 1;
#X obj 107 132 hsl 80 13 0 1 0 0 \$0-c \$0-rc 2)+resetPoint 7 7 0 10
-192513 -258439 -262140 4100 1;
#X obj 194 116 hsl 80 13 0 1 0 0 \$0-b \$0-rb 1)+speed 7 7 0 10 -192513
-258439 -262140 4280 1;
#X obj 194 132 hsl 80 13 0 1 0 0 \$0-d \$0-rd 3)+reaction 7 7 0 10
-192513 -258439 -262140 3900 1;
#X obj 107 148 hsl 80 13 0 1 0 0 \$0-e \$0-re 4)+reset% 7 7 0 10 -192513
-258439 -262140 5330 1;
#X obj 107 164 hsl 80 13 0 1 0 0 \$0-g \$0-rg 6)noiseKrr 7 7 0 10 -192513
-258439 -262140 7057 1;
#X obj 194 148 hsl 80 13 0 1 0 0 \$0-f \$0-rf 5)+reactReso 7 7 0 10
-192513 -258439 -262140 6100 1;
#X obj 194 164 hsl 80 13 0 1 0 0 \$0-h \$0-rh 7)noiseTone 7 7 0 10
-192513 -258439 -262140 4700 1;
#X obj 107 180 hsl 80 13 0 1 0 0 \$0-i \$0-ri 8)noiseP 7 7 0 10 -192513
-258439 -262140 2607 1;
#X obj 107 196 hsl 80 13 0 1 0 0 \$0-k \$0-rk 10)wet 7 7 0 10 -192513
-258439 -262140 0 1;
#X obj 194 180 hsl 80 13 0 1 0 0 \$0-j \$0-rj 9)noiseReso) 7 7 0 10
-192513 -258439 -262140 6007 1;
#X obj 194 196 hsl 80 13 0 1 0 0 \$0-l \$0-rl 11)noise 7 7 0 10 -192513
-258439 -262140 3600 1;
#X obj 107 212 hsl 80 13 0 1 0 0 \$0-m \$0-rm 12)dry 7 7 0 10 -192513
-258439 -262140 0 1;
#X obj 194 212 hsl 80 13 0 1 0 0 \$0-n \$0-rn 13)gain 7 7 0 10 -192513
-258439 -262140 3942 1;
#N canvas 491 63 774 606 rgb 0;
#X obj 279 169 * 256;
#X obj 327 142 * 256;
#X obj 329 163 * 256;
#X obj 295 232 +;
#X obj 281 190 t b f;
#X obj 295 253 +;
#X obj 329 185 t b f;
#X obj 235 148 int;
#X msg 263 68 0;
#X obj 235 125 * -1;
#X obj 279 124 * -1;
#X obj 326 120 * -1;
#X obj 103 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4160 -262144 -1 0 0;
#X obj 115 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4034 -262144 -1 0 0;
#X obj 127 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -258113 -262144 -1 0 0;
#X obj 235 106 int;
#X obj 276 104 int;
#X obj 325 100 int;
#N canvas 49 67 474 324 list-enumerate 0;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 128 13 inlet;
#X obj 107 181 list prepend;
#X obj 126 264 outlet;
#X obj 184 264 outlet;
#X obj 68 155 list prepend color;
#X msg 69 135 \$1 \$2 \$3;
#X obj 107 91 list;
#X obj 128 36 t b a b;
#X obj 106 70 until;
#X msg 95 49 16;
#X connect 0 0 3 1;
#X connect 1 0 7 0;
#X connect 1 1 0 0;
#X connect 2 0 9 0;
#X connect 3 0 4 0;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 11 0;
#X connect 9 1 8 1;
#X connect 9 2 0 1;
#X connect 10 0 8 0;
#X connect 11 0 10 0;
#X restore 300 516 pd list-enumerate;
#X obj 305 546 s \$0-controls;
#X obj 300 487 pack f f f;
#X obj 279 315 pack f f;
#X obj 104 169 hradio 11 1 0 3 \$0-asdkjxycm \$0-asdkjxyXcm empty 0
-8 0 10 -262144 -1 -1 0;
#X obj 279 294 f;
#X obj 295 273 t b f;
#X obj 98 350 loadbang;
#X msg 100 454 set \$1;
#X msg 100 475 -1.23866e+007;
#X obj 98 394 t b b b;
#X obj 273 372 route 0 1 2;
#X msg 154 433 set \$1;
#X msg 154 454 -1.67186e+007;
#X msg 204 409 set \$1;
#X msg 204 430 -1.67772e+007;
#X obj 301 422 t b f;
#X obj 345 421 t b f;
#X obj 234 346 speedlim 100;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 3 1;
#X connect 5 0 24 0;
#X connect 6 0 3 0;
#X connect 6 1 5 1;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 8 0 13 0;
#X connect 8 0 14 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 11 0 1 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 11 0;
#X connect 18 0 19 0;
#X connect 20 0 18 0;
#X connect 21 0 36 0;
#X connect 22 0 23 1;
#X connect 23 0 21 0;
#X connect 24 0 23 0;
#X connect 24 1 21 1;
#X connect 26 0 27 0;
#X connect 27 0 20 0;
#X connect 28 0 27 0;
#X connect 28 1 31 0;
#X connect 28 2 33 0;
#X connect 29 0 26 0;
#X connect 29 0 20 0;
#X connect 29 1 30 0;
#X connect 29 1 34 0;
#X connect 29 2 32 0;
#X connect 29 2 35 0;
#X connect 30 0 31 0;
#X connect 31 0 20 1;
#X connect 32 0 33 0;
#X connect 33 0 20 2;
#X connect 34 0 20 0;
#X connect 34 1 20 1;
#X connect 35 0 20 0;
#X connect 35 1 20 2;
#X connect 36 0 29 0;
#X coords 0 -1 1 1 40 83 1 100 100;
#X restore 28 155 pd rgb;
#X obj 658 6 inlet modulation-add;
#X obj 786 6 inlet modulation-multiply;
#X obj 480 8 r \$0-values;
#X obj 659 26 list prepend add;
#X obj 787 27 list prepend mul;
#X text 110 29 outlet audio~;
#X text 104 14 inlets audio~ \, control \, add \, multiply;
#X obj 369 13 inlet controls;
#X obj 368 47 s \$0-controls;
#N canvas 47 74 1068 587 modulate.oOo..oOo..oOo.. 0;
#X obj 101 271 +;
#X obj 101 250 t b f;
#X obj 82 82 route 0 1 2 3 4 5 6 7;
#X obj 244 216 route 0 1 2 3 4 5 6 7;
#X obj 138 271 +;
#X obj 138 250 t b f;
#X obj 175 271 +;
#X obj 175 250 t b f;
#X obj 212 271 +;
#X obj 212 250 t b f;
#X obj 248 271 +;
#X obj 248 250 t b f;
#X obj 286 271 +;
#X obj 286 250 t b f;
#X obj 323 271 +;
#X obj 323 250 t b f;
#X obj 360 271 +;
#X obj 360 250 t b f;
#X obj 61 8 inlet;
#X obj 99 490 outlet;
#X obj 155 486 outlet;
#X obj 208 489 outlet;
#X obj 264 489 outlet;
#X obj 318 486 outlet;
#X obj 370 486 outlet;
#X obj 425 485 outlet;
#X obj 492 484 outlet;
#X obj 78 409 clip 0 1;
#X obj 132 411 clip 0 1;
#X obj 186 412 clip 0 1;
#X obj 240 414 clip 0 1;
#X obj 294 416 clip 0 1;
#X obj 348 418 clip 0 1;
#X obj 402 419 clip 0 1;
#X obj 456 421 clip 0 1;
#X obj 418 177 route add mul;
#X obj 117 332 t b f;
#X obj 156 335 t b f;
#X obj 193 335 t b f;
#X obj 230 335 t b f;
#X obj 266 335 t b f;
#X obj 304 335 t b f;
#X obj 341 335 t b f;
#X obj 378 335 t b f;
#X obj 118 356 * 1;
#X obj 156 356 * 1;
#X obj 193 356 * 1;
#X obj 231 355 * 1;
#X obj 266 356 * 1;
#X obj 304 356 * 1;
#X obj 341 356 * 1;
#X obj 378 356 * 1;
#X obj 397 275 route 0 1 2 3 4 5 6 7;
#X obj 550 262 +;
#X obj 550 241 t b f;
#X obj 587 262 +;
#X obj 587 241 t b f;
#X obj 624 262 +;
#X obj 624 241 t b f;
#X obj 661 262 +;
#X obj 661 241 t b f;
#X obj 697 262 +;
#X obj 697 241 t b f;
#X obj 735 262 +;
#X obj 735 241 t b f;
#X obj 772 262 +;
#X obj 772 241 t b f;
#X obj 809 262 +;
#X obj 809 241 t b f;
#X obj 548 481 outlet;
#X obj 604 477 outlet;
#X obj 657 480 outlet;
#X obj 713 480 outlet;
#X obj 767 477 outlet;
#X obj 819 477 outlet;
#X obj 874 476 outlet;
#X obj 941 475 outlet;
#X obj 527 400 clip 0 1;
#X obj 581 402 clip 0 1;
#X obj 635 403 clip 0 1;
#X obj 689 405 clip 0 1;
#X obj 743 407 clip 0 1;
#X obj 797 409 clip 0 1;
#X obj 851 410 clip 0 1;
#X obj 905 412 clip 0 1;
#X obj 867 168 route add mul;
#X obj 566 323 t b f;
#X obj 605 326 t b f;
#X obj 642 326 t b f;
#X obj 679 326 t b f;
#X obj 715 326 t b f;
#X obj 753 326 t b f;
#X obj 790 326 t b f;
#X obj 827 326 t b f;
#X obj 567 347 * 1;
#X obj 605 347 * 1;
#X obj 642 347 * 1;
#X obj 680 346 * 1;
#X obj 715 347 * 1;
#X obj 753 347 * 1;
#X obj 790 347 * 1;
#X obj 827 347 * 1;
#X obj 693 206 route 8 9 10 11 12 13 14 5;
#X obj 846 266 route 8 9 10 11 12 13 14 15;
#X msg 79 110 \$1 20;
#X msg 92 130 \$1 20;
#X msg 120 111 \$1 20;
#X msg 133 131 \$1 20;
#X msg 161 110 \$1 20;
#X msg 174 130 \$1 20;
#X msg 202 111 \$1 20;
#X msg 215 131 \$1 20;
#X obj 92 171 line 0 1;
#X obj 109 194 line 0 1;
#X obj 149 166 line 0 1;
#X obj 166 189 line 0 1;
#X obj 207 163 line 0 1;
#X obj 224 186 line 0 1;
#X obj 264 158 line 0 1;
#X obj 281 181 line 0 1;
#X msg 501 51 \$1 20;
#X msg 514 71 \$1 20;
#X msg 542 52 \$1 20;
#X msg 555 72 \$1 20;
#X msg 583 51 \$1 20;
#X msg 596 71 \$1 20;
#X msg 624 52 \$1 20;
#X msg 637 72 \$1 20;
#X obj 512 111 line 0 1;
#X obj 571 107 line 0 1;
#X obj 588 130 line 0 1;
#X obj 629 104 line 0 1;
#X obj 646 127 line 0 1;
#X obj 686 99 line 0 1;
#X obj 703 122 line 0 1;
#X obj 504 22 route 8 9 10 11 12 13 14 15;
#X obj 530 132 line 0 1;
#X obj 845 94 list trim;
#X obj 849 72 inlet;
#X connect 0 0 44 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 104 0;
#X connect 2 1 105 0;
#X connect 2 2 106 0;
#X connect 2 3 107 0;
#X connect 2 4 108 0;
#X connect 2 5 109 0;
#X connect 2 6 110 0;
#X connect 2 7 111 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 3 2 6 0;
#X connect 3 3 8 0;
#X connect 3 4 10 0;
#X connect 3 5 12 0;
#X connect 3 6 14 0;
#X connect 3 7 16 0;
#X connect 4 0 45 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 6 0 46 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 47 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 10 0 48 0;
#X connect 11 0 10 0;
#X connect 11 1 10 1;
#X connect 12 0 49 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X connect 14 0 50 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 51 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 2 0;
#X connect 18 0 135 0;
#X connect 27 0 19 0;
#X connect 28 0 20 0;
#X connect 29 0 21 0;
#X connect 30 0 22 0;
#X connect 31 0 23 0;
#X connect 32 0 24 0;
#X connect 33 0 25 0;
#X connect 34 0 26 0;
#X connect 35 0 3 0;
#X connect 35 1 52 0;
#X connect 36 0 44 0;
#X connect 36 1 44 1;
#X connect 37 0 45 0;
#X connect 37 1 45 1;
#X connect 38 0 46 0;
#X connect 38 1 46 1;
#X connect 39 0 47 0;
#X connect 39 1 47 1;
#X connect 40 0 48 0;
#X connect 40 1 48 1;
#X connect 41 0 49 0;
#X connect 41 1 49 1;
#X connect 42 0 50 0;
#X connect 42 1 50 1;
#X connect 43 0 51 0;
#X connect 43 1 51 1;
#X connect 44 0 27 0;
#X connect 45 0 28 0;
#X connect 46 0 29 0;
#X connect 47 0 30 0;
#X connect 48 0 31 0;
#X connect 49 0 32 0;
#X connect 50 0 33 0;
#X connect 51 0 34 0;
#X connect 52 0 36 0;
#X connect 52 1 37 0;
#X connect 52 2 38 0;
#X connect 52 3 39 0;
#X connect 52 4 40 0;
#X connect 52 5 41 0;
#X connect 52 6 42 0;
#X connect 52 7 43 0;
#X connect 53 0 94 0;
#X connect 54 0 53 0;
#X connect 54 1 53 1;
#X connect 55 0 95 0;
#X connect 56 0 55 0;
#X connect 56 1 55 1;
#X connect 57 0 96 0;
#X connect 58 0 57 0;
#X connect 58 1 57 1;
#X connect 59 0 97 0;
#X connect 60 0 59 0;
#X connect 60 1 59 1;
#X connect 61 0 98 0;
#X connect 62 0 61 0;
#X connect 62 1 61 1;
#X connect 63 0 99 0;
#X connect 64 0 63 0;
#X connect 64 1 63 1;
#X connect 65 0 100 0;
#X connect 66 0 65 0;
#X connect 66 1 65 1;
#X connect 67 0 101 0;
#X connect 68 0 67 0;
#X connect 68 1 67 1;
#X connect 77 0 69 0;
#X connect 78 0 70 0;
#X connect 79 0 71 0;
#X connect 80 0 72 0;
#X connect 81 0 73 0;
#X connect 82 0 74 0;
#X connect 83 0 75 0;
#X connect 84 0 76 0;
#X connect 85 0 102 0;
#X connect 85 1 103 0;
#X connect 86 0 94 0;
#X connect 86 1 94 1;
#X connect 87 0 95 0;
#X connect 87 1 95 1;
#X connect 88 0 96 0;
#X connect 88 1 96 1;
#X connect 89 0 97 0;
#X connect 89 1 97 1;
#X connect 90 0 98 0;
#X connect 90 1 98 1;
#X connect 91 0 99 0;
#X connect 91 1 99 1;
#X connect 92 0 100 0;
#X connect 92 1 100 1;
#X connect 93 0 101 0;
#X connect 93 1 101 1;
#X connect 94 0 77 0;
#X connect 95 0 78 0;
#X connect 96 0 79 0;
#X connect 97 0 80 0;
#X connect 98 0 81 0;
#X connect 99 0 82 0;
#X connect 100 0 83 0;
#X connect 101 0 84 0;
#X connect 102 0 53 0;
#X connect 102 1 55 0;
#X connect 102 2 57 0;
#X connect 102 3 59 0;
#X connect 102 4 61 0;
#X connect 102 5 63 0;
#X connect 102 6 65 0;
#X connect 102 7 67 0;
#X connect 103 0 86 0;
#X connect 103 1 87 0;
#X connect 103 2 88 0;
#X connect 103 3 89 0;
#X connect 103 4 90 0;
#X connect 103 5 91 0;
#X connect 103 6 92 0;
#X connect 103 7 93 0;
#X connect 104 0 112 0;
#X connect 105 0 113 0;
#X connect 106 0 114 0;
#X connect 107 0 115 0;
#X connect 108 0 116 0;
#X connect 109 0 117 0;
#X connect 110 0 118 0;
#X connect 111 0 119 0;
#X connect 112 0 1 0;
#X connect 113 0 5 0;
#X connect 114 0 7 0;
#X connect 115 0 9 0;
#X connect 116 0 11 0;
#X connect 117 0 13 0;
#X connect 118 0 15 0;
#X connect 119 0 17 0;
#X connect 120 0 128 0;
#X connect 121 0 136 0;
#X connect 122 0 129 0;
#X connect 123 0 130 0;
#X connect 124 0 131 0;
#X connect 125 0 132 0;
#X connect 126 0 133 0;
#X connect 127 0 134 0;
#X connect 128 0 54 0;
#X connect 129 0 58 0;
#X connect 130 0 60 0;
#X connect 131 0 62 0;
#X connect 132 0 64 0;
#X connect 133 0 66 0;
#X connect 134 0 68 0;
#X connect 135 0 120 0;
#X connect 135 1 121 0;
#X connect 135 2 122 0;
#X connect 135 3 123 0;
#X connect 135 4 124 0;
#X connect 135 5 125 0;
#X connect 135 6 126 0;
#X connect 135 7 127 0;
#X connect 136 0 56 0;
#X connect 137 0 35 0;
#X connect 137 0 85 0;
#X connect 138 0 137 0;
#X restore 477 59 pd modulate.oOo..oOo..oOo..;
#X msg 286 124 44;
#X msg 286 146 65;
#X msg 286 169 89;
#X msg 286 191 112;
#X msg 286 212 135;
#X msg 285 238 158;
#X msg 287 261 182;
#X msg 287 283 205;
#X obj 593 371 s \$0-loadbang;
#X obj 566 347 t b b;
#N canvas 255 33 833 682 list-functions 0;
#N canvas 0 22 462 312 list-enumerate 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 107 209 outlet;
#X obj 165 209 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 76 154 list prepend label;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 2 0 8 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X restore 37 184 pd list-enumerate;
#X obj 37 230 s \$0-controls;
#N canvas 0 22 482 332 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 107 63 t a b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 6 1 0 1;
#X restore 149 183 pd list-enumerate;
#X obj 190 231 808_state \$1/controls;
#N canvas 0 22 498 348 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 194 215 t a;
#X obj 106 209 list prepend;
#X obj 107 63 t a b b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 8 1 0 1;
#X connect 8 2 7 1;
#X restore 411 149 pd list-enumerate;
#X obj 104 251 r \$0-controls;
#X obj 272 98 r \$0-values;
#N canvas 283 65 551 703 replacelist 0;
#X obj 164 224 list;
#X obj 327 98 inlet;
#X obj 250 98 inlet;
#X text 331 72 orig;
#X text 256 74 pos;
#X text 77 70 list to insert;
#X obj 85 94 inlet;
#X obj 207 281 list split;
#X obj 85 526 list;
#X obj 85 598 outlet;
#X obj 85 317 list prepend;
#X obj 85 120 t a b a b;
#X obj 85 430 list prepend 0;
#X obj 250 125 t f f;
#X obj 207 524 list prepend;
#X obj 85 469 route 0 1;
#X obj 316 347 f;
#X obj 286 282 t a b;
#X obj 316 377 > 0;
#X obj 122 358 r \$0-init;
#X obj 122 377 0;
#X obj 300 524 r \$0-init;
#X obj 176 317 r \$0-init;
#X obj 118 527 r \$0-init;
#X obj 159 131 s \$0-init;
#X text 47 25 list-replace: Replace the list starting at position POS
with a new list \, overwriting the old elements.;
#N canvas 0 22 458 308 length 0;
#X obj 171 164 + 1;
#X obj 92 127 b;
#X obj 126 204 f;
#X obj 158 138 1;
#X obj 142 166 f 1;
#X obj 216 168 0;
#X obj 136 59 t a b b;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 92 104 pd drip;
#X obj 137 36 inlet;
#X obj 125 238 outlet;
#X connect 0 0 4 1;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 4 0 2 1;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 6 1 3 0;
#X connect 6 2 5 0;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 8 0 6 0;
#X restore 268 216 pd length;
#X obj 162 254 list split;
#X connect 0 0 27 0;
#X connect 1 0 0 1;
#X connect 2 0 13 0;
#X connect 6 0 11 0;
#X connect 7 1 8 1;
#X connect 7 1 14 1;
#X connect 8 0 9 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 11 2 26 0;
#X connect 11 3 24 0;
#X connect 12 0 15 0;
#X connect 13 0 27 1;
#X connect 13 1 16 1;
#X connect 14 0 9 0;
#X connect 15 0 8 0;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 17 0 8 1;
#X connect 17 1 16 0;
#X connect 18 0 12 1;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 14 1;
#X connect 22 0 10 1;
#X connect 23 0 8 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 27 1 7 0;
#X connect 27 2 17 0;
#X restore 289 199 pd replacelist;
#X obj 423 265 t a;
#X obj 272 130 swap;
#X obj 50 109 inlet;
#N canvas 0 22 545 419 drip2 0;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X obj 64 206 list split 2;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 2 0 0 1;
#X connect 8 0 11 0;
#X connect 11 0 0 0;
#X connect 11 1 1 1;
#X connect 12 0 7 0;
#X connect 12 1 1 1;
#X connect 12 2 2 0;
#X connect 12 2 10 0;
#X restore 190 285 pd drip2;
#X obj 253 24 inlet;
#X obj 144 355 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15;
#X obj 144 381 s \$0-ra;
#X obj 156 401 s \$0-rb;
#X obj 167 422 s \$0-rc;
#X obj 179 442 s \$0-rd;
#X obj 194 381 s \$0-re;
#X obj 206 401 s \$0-rf;
#X obj 217 422 s \$0-rg;
#X obj 229 442 s \$0-rh;
#X obj 250 383 s \$0-ri;
#X obj 262 403 s \$0-rj;
#X obj 273 424 s \$0-rk;
#X obj 285 444 s \$0-rl;
#X obj 299 383 s \$0-rm;
#X obj 312 403 s \$0-rn;
#X obj 323 424 s \$0-ro;
#X obj 335 444 s \$0-rp;
#X obj 35 505 r \$0-a;
#X msg 35 530 0 \$1;
#X obj 78 505 r \$0-b;
#X msg 77 529 1 \$1;
#X obj 121 505 r \$0-c;
#X obj 164 505 r \$0-d;
#X msg 121 530 2 \$1;
#X msg 163 529 3 \$1;
#X obj 208 503 r \$0-e;
#X obj 251 503 r \$0-f;
#X obj 294 503 r \$0-g;
#X obj 337 503 r \$0-h;
#X msg 208 528 4 \$1;
#X msg 250 526 5 \$1;
#X msg 294 527 6 \$1;
#X msg 336 527 7 \$1;
#X obj 383 503 r \$0-i;
#X obj 426 502 r \$0-j;
#X obj 468 503 r \$0-k;
#X obj 512 503 r \$0-l;
#X obj 556 501 r \$0-m;
#X msg 383 528 8 \$1;
#X msg 425 527 9 \$1;
#X msg 469 528 10 \$1;
#X msg 511 527 11 \$1;
#X msg 556 526 12 \$1;
#X msg 598 524 13 \$1;
#X msg 641 525 14 \$1;
#X msg 684 525 15 \$1;
#X obj 683 559 s \$0-values;
#X obj 413 202 t a a;
#X obj 412 182 list;
#X obj 257 47 t a b a;
#X obj 294 150 * 2;
#X obj 295 170 + 1;
#X obj 191 253 t a a;
#X obj 599 501 r \$0-n;
#X obj 641 501 r \$0-o;
#X obj 685 501 r \$0-p;
#X connect 0 0 1 0;
#X connect 2 0 1 0;
#X connect 3 0 65 0;
#X connect 4 0 61 1;
#X connect 5 0 13 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 7 0 3 1;
#X connect 8 0 7 2;
#X connect 9 0 7 0;
#X connect 9 1 63 0;
#X connect 10 0 0 0;
#X connect 11 0 13 0;
#X connect 12 0 62 0;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 13 2 16 0;
#X connect 13 3 17 0;
#X connect 13 4 18 0;
#X connect 13 5 19 0;
#X connect 13 6 20 0;
#X connect 13 7 21 0;
#X connect 13 8 22 0;
#X connect 13 9 23 0;
#X connect 13 10 24 0;
#X connect 13 11 25 0;
#X connect 13 12 26 0;
#X connect 13 13 27 0;
#X connect 13 14 28 0;
#X connect 13 15 29 0;
#X connect 30 0 31 0;
#X connect 31 0 59 0;
#X connect 32 0 33 0;
#X connect 33 0 59 0;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 59 0;
#X connect 37 0 59 0;
#X connect 38 0 42 0;
#X connect 39 0 43 0;
#X connect 40 0 44 0;
#X connect 41 0 45 0;
#X connect 42 0 59 0;
#X connect 43 0 59 0;
#X connect 44 0 59 0;
#X connect 45 0 59 0;
#X connect 46 0 51 0;
#X connect 47 0 52 0;
#X connect 48 0 53 0;
#X connect 49 0 54 0;
#X connect 50 0 55 0;
#X connect 51 0 59 0;
#X connect 52 0 59 0;
#X connect 53 0 59 0;
#X connect 54 0 59 0;
#X connect 55 0 59 0;
#X connect 56 0 59 0;
#X connect 57 0 59 0;
#X connect 58 0 59 0;
#X connect 60 0 7 2;
#X connect 60 1 3 1;
#X connect 61 0 60 0;
#X connect 62 0 2 0;
#X connect 62 1 61 0;
#X connect 62 2 4 0;
#X connect 63 0 64 0;
#X connect 64 0 7 1;
#X connect 65 0 11 0;
#X connect 65 1 7 2;
#X connect 66 0 56 0;
#X connect 67 0 57 0;
#X connect 68 0 58 0;
#X restore 463 423 pd list-functions;
#N canvas 303 40 466 316 list-enumerateSL 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 181 130 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 117 214 list prepend;
#X obj 117 242 outlet;
#X obj 175 242 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 60 188 list prepend label;
#X msg 92 166 \$2)\$1;
#X obj 114 138 pack s f;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 1 0 10 1;
#X connect 2 0 10 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X restore 362 448 pd list-enumerateSL;
#X obj 362 476 s \$0-controls;
#X msg 493 449 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#N canvas 736 310 474 324 reorder-sliders 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 194 204 pd count;
#X obj 107 21 inlet;
#X obj 106 218 list prepend;
#X obj 106 246 outlet;
#X obj 164 246 outlet;
#N canvas 406 143 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 107 113 t b b;
#X obj 93 136 f;
#X msg 89 183 delta -18 \$1 \, size 80 13 \, label_pos 7 7;
#X obj 89 159 expr -int($f1/2)*7-13;
#X connect 0 0 6 0;
#X connect 0 1 1 1;
#X connect 1 0 3 1;
#X connect 1 0 8 1;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 6 0 7 0;
#X connect 6 1 5 0;
#X connect 7 0 8 0;
#X connect 7 1 1 0;
#X connect 8 0 10 0;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X restore 493 471 pd reorder-sliders;
#X obj 493 495 s \$0-controls;
#X obj 378 83 s \$0-drive;
#X obj 583 82 s \$0-wetLvl;
#X obj 593 124 s \$0-noiseLvl;
#X obj 656 105 s \$0-dryLvl;
#X obj 394 116 s \$0-decaySpeed;
#X obj 380 144 s \$0-resetP;
#X obj 386 167 s \$0-reset%;
#X obj 453 144 s \$0-reaction;
#X obj 459 166 s \$0-reactReso;
#X obj 578 187 s \$0-noiseKrr;
#X obj 670 189 s \$0-noiseTone;
#X obj 592 209 s \$0-NoiseP;
#X obj 670 209 s \$0-noiseReso;
#X msg 209 376 drive +speed +resetPoint +reaction +reset% +reactReso
noiseKrr noiseTone noiseP noiseReso) wet noise dry gain;
#X obj 104 59 block~ 4096;
#X text 63 306 cpu usage decreased to ~1/5;
#X msg 571 400 0.499 0.2 0.499 0.499 0.7 0.499 0.83 0.499 0.33 0.33
1 0.499 0 0.499 0 0;
#X connect 0 0 3 0;
#X connect 2 0 39 0;
#X connect 3 0 1 0;
#X connect 20 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 29 0;
#X connect 23 0 29 1;
#X connect 24 0 29 1;
#X connect 27 0 28 0;
#X connect 29 0 46 0;
#X connect 29 1 50 0;
#X connect 29 2 51 0;
#X connect 29 3 53 0;
#X connect 29 4 52 0;
#X connect 29 5 54 0;
#X connect 29 6 55 0;
#X connect 29 7 56 0;
#X connect 29 8 57 0;
#X connect 29 9 58 0;
#X connect 29 10 47 0;
#X connect 29 11 48 0;
#X connect 29 12 49 0;
#X connect 29 13 4 0;
#X connect 39 0 62 0;
#X connect 39 1 38 0;
#X connect 41 0 42 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 59 0 41 0;
#X connect 62 0 40 1;
#X coords 0 -1 1 1 180 130 1 100 100;