pp.grainrev~.pd

#N canvas 602 93 1469 816 10;
#X obj 289 205 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 289 245 metro 100;
#X msg 289 335 next bang;
#X obj 340 153 random;
#X obj 340 220 +;
#N canvas 537 52 560 555 envelope 0;
#N canvas 884 263 661 699 hann 0;
#X obj 102 334 until;
#X obj 102 355 f;
#X obj 129 361 + 1;
#X msg 167 330 0;
#X obj 154 205 t b b;
#X obj 103 382 t f f;
#X obj 99 499 expr -cos($f1*3.14159)*.5+.5;
#X obj 322 526 expr -cos($f1*3.14159)*.5+.5;
#X obj 322 551 * -1;
#X obj 323 573 + 1;
#X obj 181 421 moses;
#X obj 169 612 pow 1;
#X obj 445 120 exp;
#X obj 445 28 / 100;
#X obj 291 8 inlet x;
#X obj 101 468 /;
#X obj 102 292 f 1024;
#X obj 206 658 tabwrite \$0-window;
#X obj 322 497 expr ($f1-$f2)/(1024-$f2-1);
#X obj 444 143 t b f;
#X obj 290 135 t b f;
#X obj 445 8 inlet;
#X text 486 10 shape;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 16 0;
#X connect 4 1 3 0;
#X connect 5 0 10 0;
#X connect 5 1 17 1;
#X connect 6 0 11 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 10 0 15 0;
#X connect 10 1 18 0;
#X connect 11 0 17 0;
#X connect 12 0 19 0;
#X connect 13 0 12 0;
#X connect 14 0 20 0;
#X connect 15 0 6 0;
#X connect 16 0 0 0;
#X connect 18 0 7 0;
#X connect 19 0 4 0;
#X connect 19 1 11 1;
#X connect 20 0 4 0;
#X connect 20 1 10 1;
#X connect 20 1 15 1;
#X connect 20 1 18 1;
#X connect 21 0 13 0;
#X restore 93 500 pd hann;
#N canvas 702 50 631 726 trapez 0;
#X obj 43 374 until;
#X obj 43 395 f;
#X obj 70 401 + 1;
#X msg 161 344 0;
#X obj 120 480 moses;
#X obj 134 280 t b b;
#X obj 119 439 t f f;
#X obj 118 608 clip 0 1;
#X obj 120 583 *;
#X obj 238 12 inlet x;
#X obj 435 82 / 100;
#X obj 435 107 + 1;
#X obj 435 173 max 1;
#X obj 43 347 f 1024;
#X obj 213 505 expr -($f1-$f2)/(1024-$f2-1)+1;
#X obj 435 195 t b f;
#X obj 238 164 t b f f f;
#X obj 148 640 tabwrite \$0-window;
#X obj 120 531 / 1024;
#X obj 435 58 + 200;
#X obj 435 151 -;
#X msg 435 129 6 \$1;
#X obj 435 15 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 18 0;
#X connect 4 1 14 0;
#X connect 5 0 13 0;
#X connect 5 1 3 0;
#X connect 6 0 4 0;
#X connect 6 1 17 1;
#X connect 7 0 17 0;
#X connect 8 0 7 0;
#X connect 9 0 16 0;
#X connect 10 0 11 0;
#X connect 11 0 21 0;
#X connect 12 0 15 0;
#X connect 13 0 0 0;
#X connect 14 0 8 0;
#X connect 15 0 5 0;
#X connect 15 1 8 1;
#X connect 16 0 5 0;
#X connect 16 1 4 1;
#X connect 16 2 18 1;
#X connect 16 3 14 1;
#X connect 18 0 8 0;
#X connect 19 0 10 0;
#X connect 20 0 12 0;
#X connect 21 0 20 0;
#X connect 22 0 19 0;
#X restore 296 501 pd trapez;
#X obj 125 175 f;
#X obj 241 117 t b f;
#X obj 401 114 t b f;
#N canvas 633 50 680 699 curved2 0;
#X obj 64 415 until;
#X obj 64 436 f;
#X obj 91 442 + 1;
#X msg 139 412 0;
#X obj 113 328 t b b;
#X obj 63 472 t f f;
#X obj 53 586 expr if($f2<=0 \, -pow((1-$f1) \, (-$f2+1))+1 \, pow($f1 \, $f2+1));
#X obj 127 631 expr if($f2<=0 \, -pow((1-$f1) \, (-$f2+1))+1 \, pow($f1 \, $f2+1));
#X obj 128 654 * -1;
#X obj 129 676 + 1;
#X obj 63 509 moses;
#X obj 576 171 exp;
#X obj 478 86 moses 0;
#X obj 478 168 * -1;
#X obj 479 209 exp;
#X obj 480 230 * -1;
#X obj 478 123 + 1;
#X obj 478 146 moses -1;
#X obj 479 190 - 1;
#X obj 479 62 - 1;
#X obj 63 551 /;
#X obj 302 21 inlet x;
#X obj 479 38 / 100;
#X obj 493 265 t b b f f;
#X obj 478 608 * -1;
#X obj 64 381 f 1024;
#X obj 141 729 tabwrite \$0-window;
#X obj 189 546 expr ($f1-$f2)/(1024-$f2-1);
#X obj 302 211 t b f f f;
#X obj 479 18 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 25 0;
#X connect 4 1 3 0;
#X connect 5 0 10 0;
#X connect 5 1 26 1;
#X connect 6 0 26 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 26 0;
#X connect 10 0 20 0;
#X connect 10 1 27 0;
#X connect 11 0 23 0;
#X connect 12 0 16 0;
#X connect 12 1 11 0;
#X connect 13 0 18 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 17 1 23 0;
#X connect 18 0 14 0;
#X connect 19 0 12 0;
#X connect 20 0 6 0;
#X connect 21 0 28 0;
#X connect 22 0 19 0;
#X connect 23 0 4 0;
#X connect 23 2 6 1;
#X connect 23 3 24 0;
#X connect 24 0 7 1;
#X connect 25 0 0 0;
#X connect 27 0 7 0;
#X connect 28 0 4 0;
#X connect 28 1 10 1;
#X connect 28 2 20 1;
#X connect 28 3 27 1;
#X connect 29 0 22 0;
#X restore 219 501 pd curved2;
#N canvas 633 50 680 699 curved 0;
#X obj 66 424 until;
#X obj 66 445 f;
#X obj 93 451 + 1;
#X msg 141 421 0;
#X obj 115 337 t b b;
#X obj 65 481 t f f;
#X obj 55 595 expr if($f2<=0 \, -pow((1-$f1) \, (-$f2+1))+1 \, pow($f1 \, $f2+1));
#X obj 129 640 expr if($f2<=0 \, -pow((1-$f1) \, (-$f2+1))+1 \, pow($f1 \, $f2+1));
#X obj 130 663 * -1;
#X obj 131 685 + 1;
#X obj 65 518 moses;
#X obj 578 180 exp;
#X obj 480 95 moses 0;
#X obj 480 177 * -1;
#X obj 481 218 exp;
#X obj 482 239 * -1;
#X obj 480 132 + 1;
#X obj 480 155 moses -1;
#X obj 481 199 - 1;
#X obj 481 71 - 1;
#X obj 65 560 /;
#X obj 304 30 inlet x;
#X obj 481 47 / 100;
#X obj 495 274 t b b f f;
#X obj 66 397 f 1024;
#X obj 143 741 tabwrite \$0-window;
#X obj 191 555 expr ($f1-$f2)/(1024-$f2-1);
#X obj 304 220 t b f f f;
#X obj 481 27 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 24 0;
#X connect 4 1 3 0;
#X connect 5 0 10 0;
#X connect 5 1 25 1;
#X connect 6 0 25 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 25 0;
#X connect 10 0 20 0;
#X connect 10 1 26 0;
#X connect 11 0 23 0;
#X connect 12 0 16 0;
#X connect 12 1 11 0;
#X connect 13 0 18 0;
#X connect 14 0 15 0;
#X connect 15 0 23 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 17 1 23 0;
#X connect 18 0 14 0;
#X connect 19 0 12 0;
#X connect 20 0 6 0;
#X connect 21 0 27 0;
#X connect 22 0 19 0;
#X connect 23 0 4 0;
#X connect 23 2 6 1;
#X connect 23 3 7 1;
#X connect 24 0 0 0;
#X connect 26 0 7 0;
#X connect 27 0 4 0;
#X connect 27 1 10 1;
#X connect 27 2 20 1;
#X connect 27 3 26 1;
#X connect 28 0 22 0;
#X restore 148 501 pd curved;
#X obj 124 375 pack 0 512;
#X obj 248 375 pack 0 0;
#X obj 124 200 t f f;
#N canvas 227 104 947 699 complex 0;
#X obj 190 316 until;
#X obj 190 337 f;
#X obj 217 343 + 1;
#X msg 265 302 0;
#X obj 211 240 t b b;
#X obj 460 630 expr -cos($f1*3.14159)*.5+.5;
#X obj 282 512 moses;
#X obj 235 741 pow 1;
#X obj 680 199 t b f;
#X obj 254 674 expr -cos($f1*3.14159)*.5+.5;
#X obj 324 774 *;
#X obj 460 653 * -1;
#X obj 461 675 + 1;
#X obj 190 612 expr -cos($f1*18.8496)*.5+.5;
#X obj 399 143 t b f f f;
#X obj 190 482 t float float;
#X obj 190 367 t float float;
#X obj 189 291 f 1024;
#X obj 190 588 / 1024;
#X obj 460 602 expr ($f1-$f2)/(1024-$f2-1);
#X obj 324 797 tabwrite \$0-window;
#X obj 254 651 / 512;
#X obj 680 71 + 200;
#X obj 680 93 / 400;
#X obj 680 137 + 0.2;
#X obj 680 115 * 2.5;
#X obj 399 28 inlet;
#X obj 679 36 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 16 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 17 0;
#X connect 4 1 3 0;
#X connect 5 0 11 0;
#X connect 6 0 21 0;
#X connect 6 1 19 0;
#X connect 7 0 10 0;
#X connect 8 0 4 0;
#X connect 8 1 7 1;
#X connect 9 0 10 1;
#X connect 10 0 20 0;
#X connect 11 0 12 0;
#X connect 12 0 10 1;
#X connect 13 0 7 0;
#X connect 14 0 4 0;
#X connect 14 1 6 1;
#X connect 14 2 21 1;
#X connect 14 3 19 1;
#X connect 15 0 18 0;
#X connect 15 1 6 0;
#X connect 16 0 15 0;
#X connect 16 1 20 1;
#X connect 17 0 0 0;
#X connect 18 0 13 0;
#X connect 19 0 5 0;
#X connect 21 0 9 0;
#X connect 22 0 23 0;
#X connect 23 0 25 0;
#X connect 24 0 8 0;
#X connect 25 0 24 0;
#X connect 26 0 14 0;
#X connect 27 0 22 0;
#X restore 373 501 pd complex;
#X obj 124 401 route 0 1 2 3 4;
#X obj 246 400 route 0 1 2 3 4;
#X obj 241 50 r \$0-env-bias;
#X obj 401 44 r \$0-env-shape;
#X obj 401 68 * 400;
#X obj 401 90 - 200;
#X obj 241 71 * 974;
#X obj 241 93 + 25;
#X obj 125 60 r \$0-env-type;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 3 1 7 1;
#X connect 4 0 2 0;
#X connect 4 1 8 1;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 9 1 8 0;
#X connect 11 0 0 0;
#X connect 11 1 6 0;
#X connect 11 2 5 0;
#X connect 11 3 1 0;
#X connect 11 4 10 0;
#X connect 12 0 0 1;
#X connect 12 1 6 1;
#X connect 12 2 5 1;
#X connect 12 3 1 1;
#X connect 12 4 10 1;
#X connect 13 0 17 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 4 0;
#X connect 17 0 18 0;
#X connect 18 0 3 0;
#X connect 19 0 2 0;
#X restore 766 195 pd envelope;
#X obj 316 293 s \$0-trigger;
#X obj 340 129 r \$0-trigger;
#X obj 289 79 r \$0-int_triggeronoff;
#N canvas 306 346 1140 587 map 0;
#X obj 267 252 s \$0-grainsize;
#X obj 267 44 r \$0-size;
#X obj 316 96 r \$0-random-size;
#X obj 283 149 random;
#X obj 283 71 r \$0-trigger;
#X obj 267 226 +;
#X obj 281 199 t b f;
#X obj 44 200 s \$0-grainpitch;
#X obj 64 135 r \$0-pitch;
#X obj 44 178 +;
#X obj 63 155 t b f;
#X obj 44 25 r \$0-trigger;
#X obj 44 114 -;
#X obj 44 92 random;
#X obj 83 48 r \$0-random-pitch;
#X obj 83 71 * 2;
#X obj 503 240 s \$0-grainpan;
#X obj 503 191 / 100;
#X obj 532 41 r \$0-trigger;
#X obj 503 19 r \$0-pan;
#X obj 503 218 clip -1 1;
#X obj 572 61 r \$0-random-pan;
#X obj 571 81 * 2;
#X obj 532 123 -;
#X obj 532 101 random;
#X obj 727 27 r \$0-amp;
#X obj 727 182 + 100;
#X obj 727 204 dbtorms;
#X obj 737 128 t b f;
#X obj 738 63 r \$0-trigger;
#X obj 738 106 random;
#X obj 777 84 r \$0-random-amp;
#X obj 727 225 s \$0-grainamp;
#X obj 727 156 -;
#X obj 532 145 t b f;
#X obj 503 168 +;
#X obj 316 124 * 1000;
#X obj 283 173 / 1000;
#X obj 46 425 +;
#X obj 65 402 t b f;
#X obj 46 272 r \$0-trigger;
#X obj 46 361 -;
#X obj 46 339 random;
#X obj 85 318 * 2;
#X obj 85 295 r \$0-random-pitch-feed;
#X obj 46 447 s \$0-grainpitch-feed;
#X obj 66 382 r \$0-pitch-feed;
#X obj 961 27 r \$0-distance-set;
#X obj 961 314 max;
#X obj 961 350 s \$0-distancer;
#X obj 1079 180 r \$0-max-grains;
#X obj 1079 203 t b f;
#X obj 1026 112 r \$0-random-size;
#X obj 975 85 r \$0-size;
#X obj 1026 137 t b f;
#X obj 1026 167 +;
#X obj 975 176 abs;
#X obj 1026 218 max;
#X obj 1026 190 t b f;
#X obj 975 136 t f f;
#X obj 1026 261 / 4;
#X obj 961 53 pipe 0;
#X obj 534 307 r \$0-trigger;
#X obj 505 504 clip -1 1;
#X obj 573 347 * 2;
#X obj 534 389 -;
#X obj 534 367 random;
#X obj 534 411 t b f;
#X obj 505 454 +;
#X obj 505 285 r \$0-pan-feed;
#X obj 574 327 r \$0-random-pan-feed;
#X obj 505 526 s \$0-grainpan-feed;
#X obj 505 477 / 100;
#X connect 1 0 5 0;
#X connect 2 0 36 0;
#X connect 3 0 37 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 10 1 9 1;
#X connect 11 0 13 0;
#X connect 12 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 13 1;
#X connect 17 0 20 0;
#X connect 18 0 24 0;
#X connect 19 0 35 0;
#X connect 20 0 16 0;
#X connect 21 0 22 0;
#X connect 21 0 23 1;
#X connect 22 0 24 1;
#X connect 23 0 34 0;
#X connect 24 0 23 0;
#X connect 25 0 33 0;
#X connect 26 0 27 0;
#X connect 27 0 32 0;
#X connect 28 0 33 0;
#X connect 28 1 33 1;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 31 0 30 1;
#X connect 33 0 26 0;
#X connect 34 0 35 0;
#X connect 34 1 35 1;
#X connect 35 0 17 0;
#X connect 36 0 3 1;
#X connect 37 0 6 0;
#X connect 38 0 45 0;
#X connect 39 0 38 0;
#X connect 39 1 38 1;
#X connect 40 0 42 0;
#X connect 41 0 38 0;
#X connect 42 0 41 0;
#X connect 43 0 42 1;
#X connect 44 0 41 1;
#X connect 44 0 43 0;
#X connect 46 0 39 0;
#X connect 47 0 61 0;
#X connect 48 0 49 0;
#X connect 50 0 51 0;
#X connect 51 0 60 0;
#X connect 51 1 60 1;
#X connect 52 0 54 0;
#X connect 53 0 59 0;
#X connect 54 0 55 0;
#X connect 54 1 55 1;
#X connect 55 0 58 0;
#X connect 56 0 57 0;
#X connect 57 0 60 0;
#X connect 58 0 57 0;
#X connect 58 1 57 1;
#X connect 59 0 56 0;
#X connect 59 1 55 0;
#X connect 60 0 48 1;
#X connect 61 0 48 0;
#X connect 62 0 66 0;
#X connect 63 0 71 0;
#X connect 64 0 66 1;
#X connect 65 0 67 0;
#X connect 66 0 65 0;
#X connect 67 0 68 0;
#X connect 67 1 68 1;
#X connect 68 0 72 0;
#X connect 69 0 68 0;
#X connect 70 0 64 0;
#X connect 70 0 65 1;
#X connect 72 0 63 0;
#X restore 766 216 pd map;
#N canvas 994 71 784 711 stuff 0;
#X obj 176 94 r \$0-visbng;
#X obj 196 225 s \$0-visbngr;
#X msg 176 197 color 0 0;
#X msg 260 197 color 10 10;
#X obj 260 175 del 250;
#X obj 176 116 t b;
#X obj 530 291 /;
#X obj 559 269 t b f;
#X obj 530 312 i;
#X obj 593 362 r \$0-int_triggeronoff;
#X obj 529 487 spigot;
#X obj 593 384 t f f;
#X obj 541 403 sel 1;
#X obj 530 423 f;
#X obj 568 591 s \$0-active-grains;
#X msg 568 569 label \$1;
#X obj 606 469 loadbang;
#X msg 606 491 0;
#X obj 568 547 makefilename %d;
#X obj 512 463 f;
#X obj 281 223 s \$0-namecnv;
#X obj 454 425 metro 100;
#X obj 530 333 abs;
#X obj 454 383 r \$0-visbng;
#X obj 454 404 t b;
#X obj 440 408 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 89 146 relocate 532x262+1+1 1x1+50+60 \, vis 1 \, editmode 0;
#X obj 530 356 + 1;
#X obj 563 337 r \$0-max-grains;
#X obj 530 382 min 4;
#X obj 192 397 r \$0-max-grains;
#X text 19 273 grain-distance should not fall below grain-size / max.grains;
#X obj 192 420 t b f;
#X obj 139 329 r \$0-random-size;
#X obj 88 302 r \$0-size;
#X obj 139 527 s \$0-distancer;
#X obj 139 354 t b f;
#X obj 139 384 +;
#X obj 88 393 abs;
#X obj 139 435 max;
#X obj 139 407 t b f;
#X obj 88 353 t f f;
#X msg 139 505 range \$1 1e+09 \, bang;
#X obj 139 478 / 4;
#X obj 530 109 r \$0-random-size;
#X obj 479 82 r \$0-size;
#X obj 530 134 t b f;
#X obj 530 164 +;
#X obj 479 173 abs;
#X obj 530 215 max;
#X obj 530 187 t b f;
#X obj 479 133 t f f;
#X obj 559 247 r \$0-distance;
#X obj 89 170 s pd-\$0-grainrev~;
#X connect 0 0 5 0;
#X connect 2 0 1 0;
#X connect 2 0 20 0;
#X connect 3 0 1 0;
#X connect 3 0 20 0;
#X connect 4 0 3 0;
#X connect 5 0 26 0;
#X connect 5 0 4 0;
#X connect 5 0 2 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 22 0;
#X connect 9 0 11 0;
#X connect 10 0 18 0;
#X connect 11 0 12 0;
#X connect 11 1 10 1;
#X connect 12 0 13 0;
#X connect 12 1 18 0;
#X connect 13 0 19 1;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 15 0;
#X connect 19 0 10 0;
#X connect 21 0 19 0;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X connect 25 0 24 0;
#X connect 26 0 53 0;
#X connect 27 0 29 0;
#X connect 28 0 29 1;
#X connect 29 0 13 0;
#X connect 30 0 32 0;
#X connect 32 0 43 0;
#X connect 32 1 43 1;
#X connect 33 0 36 0;
#X connect 34 0 41 0;
#X connect 36 0 37 0;
#X connect 36 1 37 1;
#X connect 37 0 40 0;
#X connect 38 0 39 0;
#X connect 39 0 43 0;
#X connect 40 0 39 0;
#X connect 40 1 39 1;
#X connect 41 0 38 0;
#X connect 41 1 37 0;
#X connect 42 0 35 0;
#X connect 43 0 42 0;
#X connect 44 0 46 0;
#X connect 45 0 51 0;
#X connect 46 0 47 0;
#X connect 46 1 47 1;
#X connect 47 0 50 0;
#X connect 48 0 49 0;
#X connect 49 0 6 0;
#X connect 50 0 49 0;
#X connect 50 1 49 1;
#X connect 51 0 48 0;
#X connect 51 1 47 0;
#X connect 52 0 7 0;
#X restore 766 237 pd stuff;
#N canvas 689 58 674 604 init 0;
#X obj 191 30 loadbang;
#X obj 191 429 f \$0;
#X obj 218 102 pdcontrol;
#X obj 191 53 t b b;
#X msg 218 79 args 0;
#X obj 275 314 s \$0-max-grains;
#X obj 99 363 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X obj 275 276 max 2;
#X msg 321 275 4;
#X msg 191 452 \; \$1-distance-set 25 \; \$1-sizer 100 \; \$1-delayr 50 \; \$1-env-typer 0 \; \$1-env-biasr 0.5 \; \$1-env-shaper 0.5 \; \$1-lopr 7000 \; \$1-hipr 50 \; \$1-gainr 0 \; \$1-drywetr 100 \;;
#X obj 218 248 unpack f f;
#X obj 321 154 list length;
#X obj 321 192 <= 1;
#X obj 218 125 t a a;
#X obj 321 215 sel 1;
#X obj 398 218 sel 1;
#X obj 398 195 == 0;
#X msg 398 308 no argument for max. delay time;
#X obj 398 332 print pp.grainrev~;
#X connect 0 0 3 0;
#X connect 1 0 9 0;
#X connect 2 0 13 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 10 1 7 0;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 10 0;
#X connect 13 1 11 0;
#X connect 14 0 8 0;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X restore 766 173 pd init;
#X obj 664 216 inlet~;
#X obj 103 115 hsl 150 15 0 127 0 0 \$0-visbng \$0-visbngr empty 50 8 2 10 #e0e0e0 #e0e0e0 #000000 0 1;
#X obj 289 691 outlet~;
#X obj 663 693 outlet~;
#X obj 765 90 inlet;
#N canvas 280 281 1462 686 in 0;
#X obj 41 17 inlet;
#X obj 41 260 != 0;
#X obj 138 218 s \$0-delayr;
#X obj 171 310 s \$0-random-delayr;
#X obj 41 100 route int.grain-trigger grain-distance random-grain-distance delay random-delay grainsize random-grainsize pitch random-pitch panorama random-panorama;
#X obj 203 183 s \$0-sizer;
#X obj 235 229 s \$0-random-sizer;
#X obj 235 208 max 0;
#X obj 268 155 s \$0-pitchr;
#X obj 300 179 s \$0-random-pitchr;
#X obj 333 201 s \$0-panr;
#X obj 365 229 s \$0-random-panr;
#X obj 398 294 s \$0-ampr;
#X obj 434 316 s \$0-random-ampr;
#X obj 468 343 s \$0-feedbackr;
#X obj 683 395 s \$0-drywetr;
#X obj 923 437 s \$0-env-typer;
#X obj 1026 483 s \$0-env-biasr;
#X obj 974 533 s \$0-env-shaper;
#X obj 974 509 clip 0 1;
#X obj 1026 459 clip 0 1;
#X obj 41 285 s \$0-int_triggeronoffr;
#X obj 1234 487 s \$0-trigger;
#X obj 1077 422 symbol;
#X obj 1077 445 s \$0-env-set;
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 67 38 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 134 75 pd recall;
#X obj 540 396 s \$0-hipr;
#X obj 647 360 s \$0-gainr;
#X obj 612 451 s \$0-random-pitch-feedr;
#X obj 576 426 s \$0-pitch-feedr;
#X obj 505 370 s \$0-lopr;
#X obj 1182 506 max 1;
#X obj 1182 529 s \$0-max-grains;
#X obj 923 378 route env-type env-shape env-bias set-env x-pan max-grains bang, f 61;
#X obj 398 257 route amplitude random-amplitude feedback lop hip pitch-feedback random-pitch-feedback gain dry/wet;
#X obj 1129 474 s \$0-x-panr;
#X obj 73 239 s \$0-distance-set;
#X obj 105 262 s \$0-random-distancer;
#X obj 692 302 route pan-feedback random-pan-feedback;
#X obj 795 329 s \$0-random-pan-feedr;
#X obj 692 326 s \$0-pan-feedr;
#X connect 0 0 4 0;
#X connect 0 0 25 0;
#X connect 1 0 21 0;
#X connect 4 0 1 0;
#X connect 4 1 37 0;
#X connect 4 2 38 0;
#X connect 4 3 2 0;
#X connect 4 4 3 0;
#X connect 4 5 5 0;
#X connect 4 6 7 0;
#X connect 4 7 8 0;
#X connect 4 8 9 0;
#X connect 4 9 10 0;
#X connect 4 10 11 0;
#X connect 4 11 35 0;
#X connect 7 0 6 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 23 0 24 0;
#X connect 26 0 4 0;
#X connect 32 0 33 0;
#X connect 34 0 16 0;
#X connect 34 1 19 0;
#X connect 34 2 20 0;
#X connect 34 3 23 0;
#X connect 34 4 36 0;
#X connect 34 5 32 0;
#X connect 34 6 22 0;
#X connect 35 0 12 0;
#X connect 35 1 13 0;
#X connect 35 2 14 0;
#X connect 35 3 31 0;
#X connect 35 4 27 0;
#X connect 35 5 30 0;
#X connect 35 6 29 0;
#X connect 35 7 28 0;
#X connect 35 8 15 0;
#X connect 35 9 39 0;
#X connect 39 0 41 0;
#X connect 39 1 40 0;
#X connect 39 2 34 0;
#X restore 765 113 pd in;
#N canvas 785 284 836 657 outlet-message 0;
#X obj 73 672 outlet;
#X obj 97 23 r \$0-int_triggeronoff;
#X obj 141 88 r \$0-delay;
#N canvas 3 54 1611 388 bang-once................................................... 0;
#X obj 145 81 t b f;
#X obj 103 81 t b f;
#X obj 60 177 del 0;
#X obj 60 81 t b f;
#X obj 188 81 t b f;
#X obj 232 81 t b f;
#X obj 274 81 t b f;
#X obj 60 35 inlet;
#X obj 103 34 inlet;
#X obj 145 34 inlet;
#X obj 188 34 inlet;
#X obj 232 35 inlet;
#X obj 275 35 inlet;
#X obj 436 326 outlet;
#X obj 60 211 f;
#X obj 321 82 t b f;
#X obj 322 36 inlet;
#X obj 368 80 t b f;
#X obj 369 34 inlet;
#X obj 419 81 t b f;
#X obj 463 81 t b f;
#X obj 505 81 t b f;
#X obj 419 34 inlet;
#X obj 463 35 inlet;
#X obj 506 35 inlet;
#X obj 551 80 t b f;
#X obj 595 80 t b f;
#X obj 637 80 t b f;
#X obj 551 34 inlet;
#X obj 595 35 inlet;
#X obj 638 35 inlet;
#X obj 680 82 t b f;
#X obj 681 36 inlet;
#X obj 726 81 t b f;
#X obj 770 81 t b f;
#X obj 812 81 t b f;
#X obj 726 35 inlet;
#X obj 770 36 inlet;
#X obj 813 36 inlet;
#X obj 859 82 t b f;
#X obj 860 36 inlet;
#X obj 905 81 t b f;
#X obj 949 81 t b f;
#X obj 991 81 t b f;
#X obj 905 35 inlet;
#X obj 949 36 inlet;
#X obj 992 36 inlet;
#X obj 1035 81 t b f;
#X obj 1036 36 inlet;
#X obj 1081 80 t b f;
#X obj 1082 35 inlet;
#X obj 1129 81 t b f;
#X obj 1130 36 inlet;
#X obj 1174 81 t b f;
#X obj 1175 36 inlet;
#X obj 436 301 pack 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 1222 81 t b f;
#X obj 1223 36 inlet;
#X connect 0 0 2 0;
#X connect 0 1 55 2;
#X connect 1 0 2 0;
#X connect 1 1 55 1;
#X connect 2 0 14 0;
#X connect 3 0 2 0;
#X connect 3 1 14 1;
#X connect 4 0 2 0;
#X connect 4 1 55 3;
#X connect 5 0 2 0;
#X connect 5 1 55 4;
#X connect 6 0 2 0;
#X connect 6 1 55 5;
#X connect 7 0 3 0;
#X connect 8 0 1 0;
#X connect 9 0 0 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 6 0;
#X connect 14 0 55 0;
#X connect 15 0 2 0;
#X connect 15 1 55 6;
#X connect 16 0 15 0;
#X connect 17 0 2 0;
#X connect 17 1 55 7;
#X connect 18 0 17 0;
#X connect 19 0 2 0;
#X connect 19 1 55 8;
#X connect 20 0 2 0;
#X connect 20 1 55 9;
#X connect 21 0 2 0;
#X connect 21 1 55 10;
#X connect 22 0 19 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 25 0 2 0;
#X connect 25 1 55 11;
#X connect 26 0 2 0;
#X connect 26 1 55 12;
#X connect 27 0 2 0;
#X connect 27 1 55 13;
#X connect 28 0 25 0;
#X connect 29 0 26 0;
#X connect 30 0 27 0;
#X connect 31 0 2 0;
#X connect 31 1 55 14;
#X connect 32 0 31 0;
#X connect 33 0 2 0;
#X connect 33 1 55 15;
#X connect 34 0 2 0;
#X connect 34 1 55 16;
#X connect 35 0 2 0;
#X connect 35 1 55 17;
#X connect 36 0 33 0;
#X connect 37 0 34 0;
#X connect 38 0 35 0;
#X connect 39 0 2 0;
#X connect 39 1 55 18;
#X connect 40 0 39 0;
#X connect 41 0 2 0;
#X connect 41 1 55 19;
#X connect 42 0 2 0;
#X connect 42 1 55 20;
#X connect 43 0 2 0;
#X connect 43 1 55 21;
#X connect 44 0 41 0;
#X connect 45 0 42 0;
#X connect 46 0 43 0;
#X connect 47 0 2 0;
#X connect 47 1 55 22;
#X connect 48 0 47 0;
#X connect 49 0 2 0;
#X connect 49 1 55 23;
#X connect 50 0 49 0;
#X connect 51 0 2 0;
#X connect 51 1 55 24;
#X connect 52 0 51 0;
#X connect 53 0 2 0;
#X connect 53 1 55 25;
#X connect 54 0 53 0;
#X connect 55 0 13 0;
#X connect 56 0 2 0;
#X connect 56 1 55 26;
#X connect 57 0 56 0;
#X restore 81 326 pd bang-once...................................................;
#X obj 156 109 r \$0-random-delay;
#X obj 171 130 r \$0-size;
#X obj 186 152 r \$0-random-size;
#X obj 245 242 r \$0-random-pan;
#X obj 230 221 r \$0-pan;
#X obj 216 198 r \$0-random-pitch;
#X obj 201 177 r \$0-pitch;
#X obj 260 265 r \$0-amp;
#X obj 271 288 r \$0-random-amp;
#X obj 274 3 r \$0-feedback;
#X obj 388 172 r \$0-env-type;
#X obj 403 194 r \$0-env-bias;
#X obj 418 215 r \$0-env-shape;
#X obj 153 593 list trim;
#X msg 86 591 addcomma;
#X obj 153 570 list prepend add2;
#X msg 12 458 set;
#X obj 65 366 t b a b;
#X obj 108 538 t b a a;
#N canvas 497 319 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 170 545 pd save;
#X obj 306 51 r \$0-hip;
#X obj 428 238 r \$0-x-pan;
#X obj 359 120 r \$0-pitch-feed;
#X obj 377 145 r \$0-random-pitch-feed;
#X obj 78 0 r \$0-max-grains;
#X obj 289 28 r \$0-lop;
#X obj 111 45 r \$0-distance;
#X obj 126 68 r \$0-random-distance;
#X obj 464 286 r \$0-drywet;
#X obj 446 263 r \$0-gain;
#X obj 321 74 r \$0-pan-feed;
#X obj 341 96 r \$0-random-pan-feed;
#X msg 85 413 max-grains \$1 \, int.grain-trigger \$2 \, grain-distance \$3 \, random-grain-distance \$4 \, delay \$5 \, random-delay \$6 \, grainsize \$7 \, random-grainsize \$8 \, pitch \$9 \, random-pitch \$10 \, panorama \$11 \, random-panorama \$12 \, amplitude \$13 \, random-amplitude \$14 \, feedback \$15 \, lop \$16 \, hip \$17 \, pan-feedback \$18 \, random-pan-feedback \$19 \, pitch-feedback \$20 \, random-pitch-feedback \$21 \, env-type \$22 \, env-bias \$23 \, env-shape \$24 \, x-pan \$25 \, gain \$26 \, dry/wet \$27;
#X connect 1 0 3 1;
#X connect 2 0 3 4;
#X connect 3 0 21 0;
#X connect 4 0 3 5;
#X connect 5 0 3 6;
#X connect 6 0 3 7;
#X connect 7 0 3 11;
#X connect 8 0 3 10;
#X connect 9 0 3 9;
#X connect 10 0 3 8;
#X connect 11 0 3 12;
#X connect 12 0 3 13;
#X connect 13 0 3 14;
#X connect 14 0 3 21;
#X connect 15 0 3 22;
#X connect 16 0 3 23;
#X connect 17 0 0 0;
#X connect 18 0 0 0;
#X connect 19 0 17 0;
#X connect 20 0 0 0;
#X connect 21 0 0 0;
#X connect 21 1 36 0;
#X connect 21 2 20 0;
#X connect 22 0 18 0;
#X connect 22 1 19 0;
#X connect 22 2 23 0;
#X connect 24 0 3 16;
#X connect 25 0 3 24;
#X connect 26 0 3 19;
#X connect 27 0 3 20;
#X connect 28 0 3 0;
#X connect 29 0 3 15;
#X connect 30 0 3 2;
#X connect 31 0 3 3;
#X connect 32 0 3 26;
#X connect 33 0 3 25;
#X connect 34 0 3 17;
#X connect 35 0 3 18;
#X connect 36 0 22 0;
#X restore 768 662 pd outlet-message;
#X obj 768 690 outlet;
#X obj 387 178 * 1000;
#X obj 340 193 / 1000;
#X obj 510 524 + 100;
#X obj 510 547 dbtorms;
#N canvas 1 57 607 400 dry/wet 0;
#X obj 46 0 inlet~;
#X obj 303 135 line~;
#X obj 303 113 pack 0 30;
#X obj 272 254 *~;
#X obj 46 374 outlet~;
#X obj 121 375 outlet~;
#X obj 288 222 -~;
#X obj 303 55 r \$0-drywet;
#X obj 272 1 inlet~;
#X obj 45 253 *~;
#X obj 121 1 inlet~;
#X obj 120 256 *~;
#X obj 303 78 / 50;
#X obj 302 198 clip~ 1 2;
#X obj 288 174 sig~ 2;
#X obj 135 212 clip~ 0 1;
#X connect 0 0 9 0;
#X connect 1 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 6 0 3 1;
#X connect 7 0 12 0;
#X connect 8 0 3 0;
#X connect 9 0 4 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 2 0;
#X connect 13 0 6 1;
#X connect 14 0 6 0;
#X connect 15 0 11 1;
#X connect 15 0 9 1;
#X restore 289 652 pd dry/wet;
#X f 63;
#X obj 510 502 r \$0-gain;
#X obj 422 351 r \$0-max-grains;
#X msg 422 372 resize \$1;
#X obj 489 614 *~ 1;
#X obj 289 616 *~ 1;
#X obj 289 268 t b b;
#X text 920 677 p s \, 2024;
#X obj 510 570 * 0.125;
#X obj 366 219 r \$0-distance;
#X obj 387 155 r \$0-random-distance;
#N canvas 73 297 532 262 \$0-grainrev~ 1;
#N canvas 78 500 841 473 mask 0;
#X obj 100 100 cnv 15 520 250 empty empty empty 20 12 0 14 #fcfcfc #404040 0;
#X obj 115 157 nbx 8 12 0 171000 0 0 \$0-delay \$0-delayr Delay(ms) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 109 128 tgl 20 0 \$0-int_triggeronoff \$0-int_triggeronoffr empty 17 7 2 10 #dcdcdc #000000 #000000 0 1;
#X obj 284 158 nbx 8 12 0 171000 0 0 \$0-random-delay \$0-random-delayr Random-Delay(ms) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 115 172 nbx 5 12 -1e+09 1e+09 0 0 \$0-size \$0-sizer Grainsize(ms) 69 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 142 142 nbx 4 12 5 1e+09 0 0 \$0-distance \$0-distancer Grain-Distance(ms) 42 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 173 nbx 5 12 0 1e+11 0 0 \$0-random-size \$0-random-sizer Random-Grainsize(ms) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 143 nbx 4 12 0 1e+37 0 0 \$0-random-distance \$0-random-distancer Random-Grain-Distance(ms) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 115 187 nbx 5 12 -1e+28 1e+28 0 0 \$0-pitch \$0-pitchr Pitch(cents) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 188 nbx 5 12 0 1e+13 0 0 \$0-random-pitch \$0-random-pitchr Random-Pitch(cents) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 273 193 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 198 cnv 5 1 1 empty empty _ 0 -5 0 10 #fcfcfc #404040 0;
#X obj 274 149 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 164 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 179 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 115 202 nbx 4 12 -100 100 0 0 \$0-pan \$0-panr Panorama 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 203 nbx 4 12 0 100 0 0 \$0-random-pan \$0-random-panr Random-Panorama(%) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 273 208 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 213 cnv 5 1 1 empty empty _ 0 -5 0 10 #fcfcfc #404040 0;
#X obj 115 217 nbx 4 12 -100 0 0 0 \$0-amp \$0-ampr Amplitude(dFS) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 218 nbx 4 12 0 100 0 0 \$0-random-amp \$0-random-ampr Random-Amplitude(db) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 273 224 cnv 5 1 1 empty empty _ 0 -5 0 10 #fcfcfc #404040 0;
#X obj 496 283 hradio 10 1 0 5 \$0-env-type \$0-env-typer Type 0 -7 2 10 #fcfcfc #000000 #000000 0;
#X obj 496 143 cnv 15 98 72 empty empty empty 20 12 0 14 #9c9c9c #404040 0;
#N canvas 3 52 450 300 mask 0;
#X obj 101 101 cnv 15 94 68 empty empty empty 20 12 0 14 #fcfcfc #404040 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-window 1024 float 3;
#A 0 0 0.00757387 0.0151477 0.0227216 0.0302955 0.0378693 0.0454432 0.0530171 0.0605909 0.0681648 0.0757387 0.0833125 0.0908864 0.0984603 0.106034 0.113608 0.121182 0.128756 0.13633 0.143903 0.151477 0.159051 0.166625 0.174199 0.181773 0.189347 0.196921 0.204494 0.212068 0.219642 0.227216 0.23479 0.242364 0.249938 0.257511 0.265085 0.272659 0.280233 0.287807 0.295381 0.302955 0.310529 0.318102 0.325676 0.33325 0.340824 0.348398 0.355972 0.363546 0.371119 0.378693 0.386267 0.393841 0.401415 0.408989 0.416563 0.424137 0.43171 0.439284 0.446858 0.454432 0.462006 0.46958 0.477154 0.484727 0.492301 0.499875 0.507449 0.515023 0.522597 0.530171 0.537745 0.545318 0.552892 0.560466 0.56804 0.575614 0.583188 0.590762 0.598335 0.605909 0.613483 0.621057 0.628631 0.636205 0.643779 0.651353 0.658926 0.6665 0.674074 0.681648 0.689222 0.696796 0.70437 0.711943 0.719517 0.727091 0.734665 0.742239 0.749813 0.757387 0.764961 0.772534 0.780108 0.787682 0.795256 0.80283 0.810404 0.817978 0.825551 0.833125 0.840699 0.848273 0.855847 0.863421 0.870995 0.878569 0.886142 0.893716 0.90129 0.908864 0.916438 0.924012 0.931586 0.939159 0.946733 0.954307 0.961881 0.969455 0.977029 0.984603 0.992177 0.99975 0.998915 0.997792 0.99667 0.995547 0.994425 0.993303 0.99218 0.991058 0.989936 0.988813 0.987691 0.986568 0.985446 0.984324 0.983201 0.982079 0.980957 0.979834 0.978712 0.977589 0.976467 0.975345 0.974222 0.9731 0.971978 0.970855 0.969733 0.96861 0.967488 0.966366 0.965243 0.964121 0.962999 0.961876 0.960754 0.959631 0.958509 0.957387 0.956264 0.955142 0.95402 0.952897 0.951775 0.950652 0.94953 0.948408 0.947285 0.946163 0.945041 0.943918 0.942796 0.941673 0.940551 0.939429 0.938306 0.937184 0.936062 0.934939 0.933817 0.932694 0.931572 0.93045 0.929327 0.928205 0.927083 0.92596 0.924838 0.923715 0.922593 0.921471 0.920348 0.919226 0.918104 0.916981 0.915859 0.914736 0.913614 0.912492 0.911369 0.910247 0.909125 0.908002 0.90688 0.905757 0.904635 0.903513 0.90239 0.901268 0.900146 0.899023 0.897901 0.896778 0.895656 0.894534 0.893411 0.892289 0.891167 0.890044 0.888922 0.887799 0.886677 0.885555 0.884432 0.88331 0.882187 0.881065 0.879943 0.87882 0.877698 0.876576 0.875453 0.874331 0.873209 0.872086 0.870964 0.869841 0.868719 0.867597 0.866474 0.865352 0.86423 0.863107 0.861985 0.860862 0.85974 0.858618 0.857495 0.856373 0.85525 0.854128 0.853006 0.851883 0.850761 0.849639 0.848516 0.847394 0.846272 0.845149 0.844027 0.842904 0.841782 0.84066 0.839537 0.838415 0.837292 0.83617 0.835048 0.833925 0.832803 0.831681 0.830558 0.829436 0.828313 0.827191 0.826069 0.824946 0.823824 0.822702 0.821579 0.820457 0.819334 0.818212 0.81709 0.815967 0.814845 0.813723 0.8126 0.811478 0.810355 0.809233 0.808111 0.806988 0.805866 0.804744 0.803621 0.802499 0.801376 0.800254 0.799132 0.798009 0.796887 0.795765 0.794642 0.79352 0.792397 0.791275 0.790153 0.78903 0.787908 0.786786 0.785663 0.784541 0.783418 0.782296 0.781174 0.780051 0.778929 0.777807 0.776684 0.775562 0.774439 0.773317 0.772195 0.771072 0.76995 0.768828 0.767705 0.766583 0.76546 0.764338 0.763216 0.762093 0.760971 0.759849 0.758726 0.757604 0.756481 0.755359 0.754237 0.753114 0.751992 0.75087 0.749747 0.748625 0.747502 0.74638 0.745258 0.744135 0.743013 0.741891 0.740768 0.739646 0.738523 0.737401 0.736279 0.735156 0.734034 0.732911 0.731789 0.730667 0.729544 0.728422 0.7273 0.726177 0.725055 0.723933 0.72281 0.721688 0.720565 0.719443 0.718321 0.717198 0.716076 0.714953 0.713831 0.712709 0.711586 0.710464 0.709342 0.708219 0.707097 0.705974 0.704852 0.70373 0.702607 0.701485 0.700363 0.69924 0.698118 0.696995 0.695873 0.694751 0.693628 0.692506 0.691384 0.690261 0.689139 0.688016 0.686894 0.685772 0.684649 0.683527 0.682405 0.681282 0.68016 0.679037 0.677915 0.676793 0.67567 0.674548 0.673426 0.672303 0.671181 0.670058 0.668936 0.667814 0.666691 0.665569 0.664447 0.663324 0.662202 0.661079 0.659957 0.658835 0.657712 0.65659 0.655468 0.654345 0.653223 0.6521 0.650978 0.649856 0.648733 0.647611 0.646489 0.645366 0.644244 0.643121 0.641999 0.640877 0.639754 0.638632 0.63751 0.636387 0.635265 0.634142 0.63302 0.631898 0.630775 0.629653 0.628531 0.627408 0.626286 0.625163 0.624041 0.622919 0.621796 0.620674 0.619552 0.618429 0.617307 0.616184 0.615062 0.61394 0.612817 0.611695 0.610573 0.60945 0.608328 0.607205 0.606083 0.604961 0.603838 0.602716 0.601593 0.600471 0.599349 0.598226 0.597104 0.595982 0.594859 0.593737 0.592615 0.591492 0.59037 0.589247 0.588125 0.587003 0.58588 0.584758 0.583636 0.582513 0.581391 0.580268 0.579146 0.578024 0.576901 0.575779 0.574656 0.573534 0.572412 0.571289 0.570167 0.569045 0.567922 0.5668 0.565678 0.564555 0.563433 0.56231 0.561188 0.560066 0.558943 0.557821 0.556698 0.555576 0.554454 0.553331 0.552209 0.551087 0.549964 0.548842 0.547719 0.546597 0.545475 0.544352 0.54323 0.542108 0.540985 0.539863 0.53874 0.537618 0.536496 0.535373 0.534251 0.533129 0.532006 0.530884 0.529761 0.528639 0.527517 0.526394 0.525272 0.52415 0.523027 0.521905 0.520782 0.51966 0.518538 0.517415 0.516293 0.515171 0.514048 0.512926 0.511803 0.510681 0.509559 0.508436 0.507314 0.506192 0.505069 0.503947 0.502824 0.501702 0.50058 0.499457 0.498335 0.497213 0.49609 0.494968 0.493845 0.492723 0.491601 0.490478 0.489356 0.488234 0.487111 0.485989 0.484866 0.483744 0.482622 0.481499 0.480377 0.479255 0.478132 0.47701 0.475887 0.474765 0.473643 0.47252 0.471398 0.470276 0.469153 0.468031 0.466908 0.465786 0.464664 0.463541 0.462419 0.461296 0.460174 0.459052 0.457929 0.456807 0.455685 0.454562 0.45344 0.452318 0.451195 0.450073 0.44895 0.447828 0.446706 0.445583 0.444461 0.443339 0.442216 0.441094 0.439971 0.438849 0.437727 0.436604 0.435482 0.434359 0.433237 0.432115 0.430992 0.42987 0.428748 0.427625 0.426503 0.42538 0.424258 0.423136 0.422013 0.420891 0.419769 0.418646 0.417524 0.416402 0.415279 0.414157 0.413034 0.411912 0.41079 0.409667 0.408545 0.407422 0.4063 0.405178 0.404055 0.402933 0.401811 0.400688 0.399566 0.398443 0.397321 0.396199 0.395076 0.393954 0.392832 0.391709 0.390587 0.389464 0.388342 0.38722 0.386097 0.384975 0.383853 0.38273 0.381608 0.380485 0.379363 0.378241 0.377118 0.375996 0.374874 0.373751 0.372629 0.371506 0.370384 0.369262 0.368139 0.367017 0.365895 0.364772 0.36365 0.362527 0.361405 0.360283 0.35916 0.358038 0.356916 0.355793 0.354671 0.353548 0.352426 0.351304 0.350181 0.349059 0.347937 0.346814 0.345692 0.344569 0.343447 0.342325 0.341202 0.34008 0.338958 0.337835 0.336713 0.33559 0.334468 0.333346 0.332223 0.331101 0.329979 0.328856 0.327734 0.326611 0.325489 0.324367 0.323244 0.322122 0.321 0.319877 0.318755 0.317632 0.31651 0.315388 0.314265 0.313143 0.312021 0.310898 0.309776 0.308653 0.307531 0.306409 0.305286 0.304164 0.303042 0.301919 0.300797 0.299674 0.298552 0.29743 0.296307 0.295185 0.294062 0.29294 0.291818 0.290695 0.289573 0.288451 0.287328 0.286206 0.285083 0.283961 0.282839 0.281716 0.280594 0.279472 0.278349 0.277227 0.276105 0.274982 0.27386 0.272737 0.271615 0.270493 0.26937 0.268248 0.267125 0.266003 0.264881 0.263758 0.262636 0.261514 0.260391 0.259269 0.258146 0.257024 0.255902 0.254779 0.253657 0.252535 0.251412 0.25029 0.249167 0.248045 0.246923 0.2458 0.244678 0.243556 0.242433 0.241311 0.240188 0.239066 0.237944 0.236821 0.235699 0.234577 0.233454 0.232332 0.231209 0.230087 0.228965 0.227842 0.22672 0.225598 0.224475 0.223353 0.22223 0.221108 0.219986 0.218863 0.217741 0.216619 0.215496 0.214374 0.213251 0.212129 0.211007 0.209884 0.208762 0.20764 0.206517 0.205395 0.204272 0.20315 0.202028 0.200905 0.199783 0.198661 0.197538 0.196416 0.195293 0.194171 0.193049 0.191926 0.190804 0.189682 0.188559 0.187437 0.186314 0.185192 0.18407 0.182947 0.181825 0.180703 0.17958 0.178458 0.177335 0.176213 0.175091 0.173968 0.172846 0.171724 0.170601 0.169479 0.168356 0.167234 0.166112 0.164989 0.163867 0.162745 0.161622 0.1605 0.159377 0.158255 0.157133 0.15601 0.154888 0.153765 0.152643 0.151521 0.150398 0.149276 0.148154 0.147031 0.145909 0.144786 0.143664 0.142542 0.141419 0.140297 0.139175 0.138052 0.13693 0.135808 0.134685 0.133563 0.13244 0.131318 0.130196 0.129073 0.127951 0.126828 0.125706 0.124584 0.123461 0.122339 0.121217 0.120094 0.118972 0.117849 0.116727 0.115605 0.114482 0.11336 0.112238 0.111115 0.109993 0.10887 0.107748 0.106626 0.105503 0.104381 0.103259 0.102136 0.101014 0.0998915 0.0987691 0.0976467 0.0965244 0.0954019 0.0942796 0.0931572 0.0920348 0.0909125 0.0897901 0.0886677 0.0875453 0.0864229 0.0853006 0.0841782 0.0830558 0.0819334 0.0808111 0.0796887 0.0785663 0.077444 0.0763215 0.0751992 0.0740768 0.0729544 0.0718321 0.0707097 0.0695873 0.0684649 0.0673426 0.0662202 0.0650978 0.0639755 0.062853 0.0617307 0.0606083 0.0594859 0.0583636 0.0572412 0.0561188 0.0549964 0.0538741 0.0527517 0.0516293 0.0505069 0.0493845 0.0482622 0.0471398 0.0460174 0.0448951 0.0437726 0.0426503 0.0415279 0.0404055 0.0392832 0.0381608 0.0370384 0.035916 0.0347937 0.0336713 0.0325489 0.0314265 0.0303041 0.0291818 0.0280594 0.026937;
#A 1000 0.0258147 0.0246923 0.0235699 0.0224475 0.0213252 0.0202028 0.0190804 0.017958 0.0168356 0.0157133 0.0145909 0.0134685 0.0123461 0.0112237 0.0101014 0.00897902 0.00785661 0.00673425 0.0056119 0.00448948 0.00336713 0.00224477 0.00112236 0;
#X coords 0 1 1024 0 96 70 1 0 0;
#X restore 100 100 graph;
#X coords 0 -1 1 1 96 70 2 100 100;
#X restore 497 144 pd mask;
#X obj 496 129 cnv 12 80 12 empty empty empty 20 12 0 14 #fcfcfc #404040 0;
#X obj 499 231 hsl 92 10 0 1 0 0 \$0-env-bias \$0-env-biasr Bias -2 -7 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 496 128 cnv 10 10 10 empty empty Grain-Envelope 0 5 2 10 #fcfcfc #000000 0;
#X obj 133 126 cnv 10 10 10 empty empty Int.Grain-Trigger 0 5 2 10 #fcfcfc #000000 0;
#X obj 499 257 hsl 92 10 0 1 0 0 \$0-env-shape \$0-env-shaper Shape -2 -7 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 303 118 cnv 15 10 10 empty empty grainrev~ 0 0 2 14 #fcfcfc #9c9c9c 0;
#X obj 527 109 cnv 10 10 10 empty \$0-active-grains 10 0 5 2 11 #fcfcfc #000000 0;
#X obj 546 109 cnv 10 10 10 empty empty Grains 0 5 2 10 #fcfcfc #000000 0;
#X obj 581 109 cnv 10 10 10 empty empty active 0 5 2 10 #fcfcfc #000000 0;
#X obj 282 258 nbx 4 12 -1000 1000 0 0 \$0-feedback \$0-feedbackr % 45 8 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 364 261 nbx 6 12 0 10000 0 0 \$0-lop \$0-lopr Lop\ (hz) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 555 318 nbx 4 14 0 100 0 0 \$0-drywet \$0-drywetr Dry/Wet(%) 0 -7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 364 276 nbx 6 12 0 10000 0 0 \$0-hip \$0-hipr Hip\ (hz) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 496 318 nbx 4 14 -100 100 0 0 \$0-gain \$0-gainr Gain\ (db) 0 -7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 115 318 nbx 5 12 -1e+28 1e+28 0 0 \$0-pitch-feed \$0-pitch-feedr Pitch-feedback 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 318 nbx 5 12 0 1e+13 0 0 \$0-random-pitch-feed \$0-random-pitch-feedr Random-Pitch-feedback 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 273 322 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 327 cnv 5 1 1 empty empty _ 0 -5 0 10 #fcfcfc #404040 0;
#X obj 115 283 tgl 10 0 \$0-x-pan \$0-x-panr X-Pan 15 6 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 117 258 hsl 150 12 0 100 0 0 \$0-feddgui \$0-feddguir Feedback -2 -6 2 10 #fcfcfc #000000 #000000 0 1;
#X msg 40 248 set \$1;
#X obj 364 247 cnv 10 10 10 empty empty Feedback-damping 0 5 2 10 #fcfcfc #000000 0;
#X obj 226 331 cnv 10 10 10 empty empty (cents) 0 5 2 10 #fcfcfc #000000 0;
#X obj 439 332 cnv 10 10 10 empty empty (cents) 0 5 2 10 #fcfcfc #000000 0;
#X obj 115 300 nbx 5 12 -100 100 0 0 \$0-pan-feed \$0-pan-feedr Pan-feedback 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 284 300 nbx 5 12 0 100 0 0 \$0-random-pan-feed \$0-random-pan-feedr Random-Pan-feedback 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 273 304 cnv 5 5 5 empty empty + 0 0 0 10 #fcfcfc #404040 0;
#X obj 273 309 cnv 5 1 1 empty empty _ 0 -5 0 10 #fcfcfc #404040 0;
#X connect 34 0 45 0;
#X connect 44 0 34 0;
#X connect 45 0 44 0;
#X coords 0 -1 1 1 521 251 2 100 100;
#X restore 5 3 pd mask;
#X restore 766 258 pd \$0-grainrev~;
#X obj 289 398 clone pp.grainrev-onegrain 4 \$0 \$1;
#X obj 171 196 r \$0-trigger;
#X obj 226 236 == 0;
#X obj 171 235 spigot 1;
#X connect 0 0 1 0;
#X connect 0 0 38 0;
#X connect 1 0 30 0;
#X connect 2 0 36 0;
#X connect 3 0 21 0;
#X connect 4 0 1 1;
#X connect 7 0 3 0;
#X connect 8 0 0 0;
#X connect 12 0 24 2;
#X connect 12 0 36 0;
#X connect 16 0 17 0;
#X connect 18 0 19 0;
#X connect 20 0 3 1;
#X connect 21 0 4 0;
#X connect 22 0 23 0;
#X connect 23 0 32 0;
#X connect 24 0 14 0;
#X connect 24 1 15 0;
#X connect 25 0 22 0;
#X connect 26 0 27 0;
#X connect 27 0 36 0;
#X connect 28 0 24 1;
#X connect 29 0 24 0;
#X connect 30 0 2 0;
#X connect 30 1 6 0;
#X connect 32 0 28 1;
#X connect 32 0 29 1;
#X connect 33 0 4 1;
#X connect 34 0 20 0;
#X connect 36 0 29 0;
#X connect 36 1 28 0;
#X connect 37 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 2 0;
#X coords 0 -1 1 1 155 33 1 100 100;