pp.grainrev~.pd

#N canvas 310 159 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 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 obj 290 8 inlet;
#X text 331 9 x;
#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 15 0;
#X connect 4 1 3 0;
#X connect 5 0 10 0;
#X connect 5 1 16 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 14 0;
#X connect 10 1 17 0;
#X connect 11 0 16 0;
#X connect 12 0 18 0;
#X connect 13 0 12 0;
#X connect 14 0 6 0;
#X connect 15 0 0 0;
#X connect 17 0 7 0;
#X connect 18 0 4 0;
#X connect 18 1 11 1;
#X connect 19 0 4 0;
#X connect 19 1 10 1;
#X connect 19 1 14 1;
#X connect 19 1 17 1;
#X connect 20 0 13 0;
#X connect 22 0 19 0;
#X restore 93 500 pd hann;
#N canvas 995 357 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 406 172 / 100;
#X obj 406 197 + 1;
#X obj 406 263 max 1;
#X obj 43 347 f 1024;
#X obj 213 505 expr -($f1-$f2)/(1024-$f2-1)+1;
#X obj 406 285 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 406 148 + 200;
#X obj 406 241 -;
#X msg 406 219 6 \$1;
#X obj 406 1 inlet;
#X obj 405 123 +;
#X obj 406 22 t f f, f 10;
#X obj 463 98 max 0;
#X obj 406 44 min 0;
#X obj 406 71 / 200;
#X obj 405 95 * 3000;
#X obj 238 12 inlet;
#X text 278 12 x;
#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 17 0;
#X connect 4 1 13 0;
#X connect 5 0 12 0;
#X connect 5 1 3 0;
#X connect 6 0 4 0;
#X connect 6 1 16 1;
#X connect 7 0 16 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 20 0;
#X connect 11 0 14 0;
#X connect 12 0 0 0;
#X connect 13 0 8 0;
#X connect 14 0 5 0;
#X connect 14 1 8 1;
#X connect 15 0 5 0;
#X connect 15 1 4 1;
#X connect 15 2 17 1;
#X connect 15 3 13 1;
#X connect 17 0 8 0;
#X connect 18 0 9 0;
#X connect 19 0 11 0;
#X connect 20 0 19 0;
#X connect 21 0 23 0;
#X connect 22 0 18 0;
#X connect 23 0 25 0;
#X connect 23 1 24 0;
#X connect 24 0 22 1;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 15 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 1027 277 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 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 obj 302 21 inlet;
#X text 342 20 x;
#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 22 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 22 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 17 1 22 0;
#X connect 18 0 14 0;
#X connect 19 0 12 0;
#X connect 20 0 6 0;
#X connect 21 0 19 0;
#X connect 22 0 4 0;
#X connect 22 2 6 1;
#X connect 22 3 23 0;
#X connect 23 0 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 21 0;
#X connect 29 0 27 0;
#X restore 219 501 pd curved2;
#N canvas 831 204 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 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 obj 304 30 inlet;
#X text 341 29 x;
#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 23 0;
#X connect 4 1 3 0;
#X connect 5 0 10 0;
#X connect 5 1 24 1;
#X connect 6 0 24 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 24 0;
#X connect 10 0 20 0;
#X connect 10 1 25 0;
#X connect 11 0 22 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 22 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 17 1 22 0;
#X connect 18 0 14 0;
#X connect 19 0 12 0;
#X connect 20 0 6 0;
#X connect 21 0 19 0;
#X connect 22 0 4 0;
#X connect 22 2 6 1;
#X connect 22 3 7 1;
#X connect 23 0 0 0;
#X connect 25 0 7 0;
#X connect 26 0 4 0;
#X connect 26 1 10 1;
#X connect 26 2 20 1;
#X connect 26 3 25 1;
#X connect 27 0 21 0;
#X connect 28 0 26 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 331 268 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 254 s \$0-grainpan;
#X obj 503 205 / 100;
#X obj 532 41 r \$0-trigger;
#X obj 503 19 r \$0-pan;
#X obj 503 232 clip -1 1;
#X obj 560 61 r \$0-random-pan;
#X obj 572 83 * 2;
#X obj 532 128 -;
#X obj 532 106 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 150 t b f;
#X obj 503 182 +;
#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 535 392 r \$0-trigger;
#X obj 506 589 clip -1 1;
#X obj 574 432 * 2;
#X obj 535 474 -;
#X obj 535 452 random;
#X obj 535 496 t b f;
#X obj 506 539 +;
#X obj 506 370 r \$0-pan-feed;
#X obj 575 412 r \$0-random-pan-feed;
#X obj 506 611 s \$0-grainpan-feed;
#X obj 506 562 / 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 513 523 + 100;
#X obj 513 546 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 513 501 r \$0-gain;
#X obj 422 351 r \$0-max-grains;
#X msg 422 372 resize \$1;
#X obj 492 613 *~ 1;
#X obj 289 616 *~ 1;
#X obj 289 268 t b b;
#X text 920 677 p s \, 2024;
#X obj 513 569 * 0.125;
#X obj 366 219 r \$0-distance;
#X obj 387 155 r \$0-random-distance;
#N canvas 32 241 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 15.4375 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 200 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.0494606 0.0989211 0.148382 0.197842 0.247303 0.296763 0.346224 0.395685 0.445145 0.494606 0.544066 0.593527 0.642987 0.692448 0.741909 0.791369 0.84083 0.89029 0.939751 0.989211 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1;
#A 1000 1 1 1 1 1 1 1 1 1 1 1 1 1 0.927483 0.834734 0.741986 0.649238 0.55649 0.463741 0.370993 0.278245 0.185497 0.0927477 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 5 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 200 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 171 196 r \$0-trigger;
#X obj 226 236 == 0;
#X obj 171 235 spigot 1;
#N canvas 295 369 450 300 equal_power_pan 0;
#X obj 104 76 +~;
#X obj 166 74 -~;
#X obj 103 144 +~;
#X obj 151 144 -~;
#X obj 104 106 *~ 1.414;
#X obj 104 31 inlet~;
#X obj 182 30 inlet~;
#X obj 103 195 outlet~;
#X obj 152 195 outlet~;
#X connect 0 0 4 0;
#X connect 1 0 2 1;
#X connect 1 0 3 1;
#X connect 2 0 7 0;
#X connect 3 0 8 0;
#X connect 4 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 5 0 1 0;
#X connect 6 0 1 1;
#X connect 6 0 0 1;
#X restore 290 421 pd equal_power_pan;
#X f 34;
#X obj 289 398 clone pp.grainrev-onegrain 4 \$0 \$1;
#X connect 0 0 1 0;
#X connect 0 0 37 0;
#X connect 1 0 30 0;
#X connect 2 0 40 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 40 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 40 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 38 0;
#X connect 37 0 38 1;
#X connect 38 0 2 0;
#X connect 39 0 29 0;
#X connect 39 1 28 0;
#X connect 40 0 39 0;
#X connect 40 1 39 1;
#X coords 0 -1 1 1 155 33 1 100 100;