/abs/grain~.pd

#N canvas 159 15 865 650 12;

#X obj 447 446 r gain;

#X obj 252 25 r gfreq;

#X obj 407 481 *~;

#X obj 408 516 outlet~;

#X obj 252 61 phasor~ 20;

#X obj 234 305 +~;

#X obj 407 424 *~;

#X obj 327 26 inlet;

#X text 369 178 sync envelope of grain with reading sample;

#X obj 315 281 *~ 1;

#X obj 341 254 r trisize;

#X obj 223 212 *~ 2;

#X obj 252 247 -~ 1;

#X text 14 101 play position in sample (ms);

#X obj 234 332 /~ 1000;

#X obj 253 278 *~;

#X obj 234 359 *~ 44100;

#X obj 110 263 samphold~;

#X obj 317 227 samphold~;

#X text 375 25 different phase for each grain;

#X obj 67 121 r~ control;

#X obj 273 187 r~ gdur;

#X text 146 553 sample and hold (change value only when wave~ outputs

signal 0 - for avoiding noises when play position is changed );

#X obj 315 314 tabread4~ wndw;

#X obj 234 392 tabread4~ playobject;

#X connect 0 0 2 1;

#X connect 1 0 4 0;

#X connect 2 0 3 0;

#X connect 4 0 17 1;

#X connect 4 0 18 1;

#X connect 4 0 11 0;

#X connect 5 0 14 0;

#X connect 6 0 2 0;

#X connect 7 0 4 1;

#X connect 9 0 23 0;

#X connect 10 0 9 1;

#X connect 11 0 12 0;

#X connect 12 0 9 0;

#X connect 12 0 15 0;

#X connect 14 0 16 0;

#X connect 15 0 5 1;

#X connect 16 0 24 0;

#X connect 17 0 5 0;

#X connect 18 0 15 1;

#X connect 20 0 17 0;

#X connect 21 0 18 0;

#X connect 23 0 6 1;

#X connect 24 0 6 0;