#N canvas 0 339 1187 689 10; #N canvas 560 121 485 652 obalka 0; #X msg 124 403 \$1 \, \$2 \$3; #X obj 124 357 pack -1 0 f; #X obj 206 357 pack 0 -1 f; #X obj 222 300 t b f; #X obj 222 270 pipe; #X obj 86 488 *~; #X obj 86 548 outlet~; #X obj 87 50 inlet~; #X obj 222 51 inlet; #X obj 319 546 outlet; #X obj 124 460 expr~ 1-(pow($v1 \, 2)); #X obj 124 318 t b f; #X obj 124 432 vline~; #X obj 86 515 *~ 1; #X obj 272 232 -; #X obj 222 247 f; #X obj 319 457 delay; #X obj 124 197 rr 10 30; #X obj 222 161 t b f b b; #X text 324 527 bang when finished; #X obj 287 196 rr 10 30; #X connect 0 0 12 0; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 2 0; #X connect 3 0 16 0; #X connect 3 1 2 2; #X connect 3 1 16 1; #X connect 4 0 3 0; #X connect 5 0 13 0; #X connect 7 0 5 0; #X connect 8 0 18 0; #X connect 10 0 5 1; #X connect 11 0 1 0; #X connect 11 1 1 2; #X connect 12 0 10 0; #X connect 13 0 6 0; #X connect 14 0 4 1; #X connect 15 0 4 0; #X connect 16 0 9 0; #X connect 17 0 11 0; #X connect 18 0 15 0; #X connect 18 0 17 0; #X connect 18 1 14 0; #X connect 18 2 20 0; #X connect 20 0 14 1; #X connect 20 0 15 1; #X restore 483 467 pd obalka; #X msg 534 313 60; #X obj 482 212 random 1000; #X obj 482 246 sig~; #X obj 658 231 switch~; #X obj 482 135 t b b; #X obj 658 101 loadbang; #X msg 658 192 0; #X obj 567 504 t a b; #X obj 482 375 vd~ \$1-buffer; #X obj 567 467 pack \$2 0; #X obj 482 101 r \$2-grrr; #X msg 685 169 1; #X obj 483 582 throw~ \$1-grrrsum; #X text 16 21 grrr~ single grain abstraction; #X text 15 56 first arg. \$0 \, second arg. grain ID; #X text 141 222 Im not sure I understand background of vd~ object :) explanation would be welcomed \, but this sounds good -------------------------------------> ; #X text 568 375 <--- buffer length is 5000ms; #X text 114 319 As I said... cant cope with variable delay line stuff \, therefore its a little bit difficult to imagine how would pitchshifting looks like here ... ------------------>; #X text 710 205 <--- cpu friendly (read in mailing list :); #X text 480 48 metro driven trigger |; #X obj 567 541 s \$1-finished; #X text 653 540 <--- grain processing finished; #X text 572 315 <--- fixed grain duration (too simple patch to be parametrized :); #X text 113 445 simple x^2 envelope with random-ranged attack and release (works well) ---->; #X text 41 591 THANKS.; #X connect 0 0 13 0; #X connect 0 1 10 0; #X connect 1 0 0 1; #X connect 2 0 3 0; #X connect 2 0 1 0; #X connect 3 0 9 0; #X connect 5 0 2 0; #X connect 5 1 12 0; #X connect 6 0 7 0; #X connect 7 0 4 0; #X connect 8 0 21 0; #X connect 8 1 7 0; #X connect 9 0 0 0; #X connect 10 0 8 0; #X connect 11 0 5 0; #X connect 12 0 4 0;