[PD-cvs] externals/grill/vasp/pd-test granular1.pd, NONE, 1.1 granular2.pd, NONE, 1.1

[Thomas Grill]

Update of /cvsroot/pure-data/externals/grill/vasp/pd-test
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2740/pd-test

Added Files:
	granular1.pd granular2.pd 
Log Message:
updated usage examples
updated date!
added Glenn Meader's example patcher
resurrected help message functionality
examples updates
fixed broken help file names
corrected help patches, added sound enhancer
VC7 project files
fixed help names


--- NEW FILE: granular2.pd ---
#N canvas 30 24 708 560 10;
#N canvas 0 0 450 300 graph34 0;
#X array insert 128 float 0;
#X coords 0 1 127 -1 200 140 1;
#X restore 96 73 graph;
#N canvas 339 256 523 452 player 0;
#X obj 228 372 tabplay~ schnipparray;
#X obj 228 396 throw~ toex;
#X obj 208 45 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 208 76 spigot;
#X obj 104 330 s \$0-part;
#X obj 208 21 inlet;
#X obj 264 251 t b b;
#X obj 283 327 r \$0-partlen;
#X obj 253 299 r \$0-partlen;
#X obj 228 319 * 128;
#X obj 228 350 pack 0 128;
#X obj 253 147 + 1;
#X obj 208 147 t f f;
#X obj 143 251 t b b;
#X obj 203 250 t b b;
#X obj 240 192 t b b;
#X obj 208 125 1;
#X msg 265 212 1;
#X obj 208 170 sel 1 2 3;
#X msg 143 271 2;
#X msg 168 271 0;
#X msg 203 271 3;
#X msg 228 271 1;
#X msg 264 271 1;
#X msg 289 271 2;
#X connect 0 0 1 0;
#X connect 0 1 3 0;
#X connect 2 0 3 1;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 5 0 2 0;
#X connect 6 0 23 0;
#X connect 6 1 24 0;
#X connect 7 0 10 1;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 16 1;
#X connect 12 0 18 0;
#X connect 12 1 11 0;
#X connect 13 0 19 0;
#X connect 13 1 20 0;
#X connect 14 0 21 0;
#X connect 14 1 22 0;
#X connect 15 0 6 0;
#X connect 15 1 17 0;
#X connect 16 0 12 0;
#X connect 17 0 16 1;
#X connect 18 0 13 0;
#X connect 18 1 14 0;
#X connect 18 2 15 0;
#X connect 19 0 4 0;
#X connect 20 0 9 0;
#X connect 21 0 4 0;
#X connect 22 0 9 0;
#X connect 23 0 4 0;
#X connect 24 0 9 0;
#X restore 204 294 pd player;
#X obj 204 339 catch~ toex;
#X obj 204 403 dac~;
#X floatatom 51 318 0 0 0 0 - - -;
#X obj 51 278 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
10 -24198 -1 -1 80.13 256;
#X text 51 260 density;
#X obj 51 340 s \$0-density;
#X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1
1 1;
#X floatatom 241 430 0 0 0 0 - - -;
#X obj 241 407 env~ 32768;
#N canvas 202 187 293 232 inside 0;
#X obj 88 151 table positions;
#N canvas 136 160 532 356 inserter 0;
#X obj 48 55 r \$0-part;
#X text 50 33 after a sample-part is played \, next step is calculated
;
#X obj 169 145 sel 1 2 3;
#X msg 317 235 1;
#X text 411 234 clear;
#X msg 346 235 2;
#X msg 376 235 0;
#X obj 317 259 s \$0-clear;
#X obj 169 260 s \$0-partfw;
#X msg 169 233 0;
#X msg 205 233 1;
#X msg 238 233 2;
#X text 244 260 (offset);
#X obj 246 176 t b b;
#X obj 48 78 t b f;
#N canvas 267 0 670 675 three_steps 0;
#X msg 139 235 \; positions resize \$1;
#X obj 78 269 tabset positions;
#X obj 46 291 0;
#X obj 46 311 until;
#X obj 88 336 + 1;
#X obj 46 336 0;
#X obj 46 377 tabread positions;
#X msg 70 291 0;
#X obj 46 100 vasp.noise;
#X obj 46 165 vasp.??;
#X obj 46 122 vasp.abs;
#X obj 46 145 vasp.< 0.1;
#X obj 95 227 length;
#X obj 46 357 t f f;
#X obj 345 609 vasp.+ vasp insert;
#X obj 46 58 t b b;
#X obj 46 37 inlet;
#X obj 101 122 r \$0-density;
#X text 348 452 sample-length;
#X obj 313 473 - 0;
#X text 350 472 minus offset;
#X obj 46 620 vasp.+ vasp insert;
#X msg 46 527 vasp \$1 schnipparray;
#X text 164 621 insert at beginning;
#X obj 95 248 t f f;
#X obj 46 205 t b b l l;
#X msg 345 517 vasp \$1 schnipparray;
#X obj 345 587 vasp.o;
#X obj 149 599 vasp.o;
#X msg 448 588 vasp \$1 insert;
#X msg 149 576 vasp \$1 insert;
#X obj 46 502 t f f;
#X obj 46 479 - 0;
#X obj 46 400 t b b f f;
#X text 73 478 already at the end;
#X obj 313 494 t f f f f;
#X obj 46 79 vasp.! 128;
#X obj 313 450 128;
#X obj 46 457 128;
#X obj 399 195 r \$0-partlen;
#X text 405 261 clear;
#X obj 374 173 r \$0-clear;
#X obj 329 173 vasp.f;
#X msg 329 128 vasp schnipparray;
#X obj 329 261 vasp.= 0;
#X obj 374 217 * 128;
#X obj 360 150 r \$0-partlen;
#X obj 329 239 vasp.o;
#X obj 101 58 r \$0-partlen;
#X obj 470 541 r \$0-partlen;
#X obj 399 564 * 128;
#X obj 399 541 r \$0-partfw;
#X obj 376 564 + 0;
#X obj 326 428 r \$0-partlen;
#X obj 59 433 r \$0-partlen;
#X obj 46 595 vasp.o+;
#X obj 149 550 r \$0-partlen;
#X obj 83 572 * 128;
#X obj 83 550 r \$0-clear;
#X text 481 619 insert at end of this part;
#X text 163 634 of next part;
#X obj 46 185 route bang;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 13 0;
#X connect 6 0 33 0;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 9 0 61 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 24 0;
#X connect 13 0 6 0;
#X connect 13 1 4 0;
#X connect 15 0 36 0;
#X connect 15 1 43 0;
#X connect 16 0 15 0;
#X connect 17 0 11 1;
#X connect 19 0 35 0;
#X connect 22 0 55 0;
#X connect 24 0 2 1;
#X connect 24 1 0 0;
#X connect 25 0 2 0;
#X connect 25 1 7 0;
#X connect 25 2 1 0;
#X connect 25 3 12 0;
#X connect 26 0 27 0;
#X connect 27 0 14 0;
#X connect 28 0 21 1;
#X connect 29 0 14 1;
#X connect 30 0 28 0;
#X connect 31 0 22 0;
#X connect 31 1 30 0;
#X connect 32 0 31 0;
#X connect 33 0 38 0;
#X connect 33 1 37 0;
#X connect 33 2 19 1;
#X connect 33 3 52 0;
#X connect 35 0 32 1;
#X connect 35 1 28 1;
#X connect 35 2 26 0;
#X connect 35 3 29 0;
#X connect 36 0 8 0;
#X connect 37 0 19 0;
#X connect 38 0 32 0;
#X connect 39 0 45 1;
#X connect 41 0 45 0;
#X connect 42 0 47 0;
#X connect 43 0 42 0;
#X connect 45 0 47 1;
#X connect 46 0 42 1;
#X connect 47 0 44 0;
#X connect 48 0 36 1;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 50 0;
#X connect 52 0 27 1;
#X connect 53 0 37 1;
#X connect 54 0 38 1;
#X connect 55 0 21 0;
#X connect 56 0 57 1;
#X connect 57 0 55 1;
#X connect 58 0 57 0;
#X connect 61 1 25 0;
#X restore 48 259 pd three_steps;
#X obj 209 176 t b b;
#X obj 169 175 t b b;
#X text 386 260 (=nextpart);
#X connect 0 0 14 0;
#X connect 2 0 17 0;
#X connect 2 1 16 0;
#X connect 2 2 13 0;
#X connect 3 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 8 0;
#X connect 13 0 11 0;
#X connect 13 1 6 0;
#X connect 14 0 15 0;
#X connect 14 1 2 0;
#X connect 16 0 10 0;
#X connect 16 1 5 0;
#X connect 17 0 9 0;
#X connect 17 1 3 0;
#X restore 40 70 pd inserter;
#X obj 88 129 table schnipparray 384;
#N canvas 286 262 325 213 init 0;
#X obj 112 77 s \$0-partlen;
#X msg 112 100 \; insert resize \$1;
#X msg 50 137 \; schnipparray resize \$1;
#X obj 50 43 loadbang;
#X msg 50 65 128;
#X obj 50 113 * 3;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X restore 41 95 pd init;
#N canvas 409 43 526 376 create_schnippl 0;
#X msg 155 114 vasp insert;
#X obj 155 182 vasp.u;
#X obj 155 138 vasp.osc 6.4;
#X msg 66 114 vasp insert;
#X obj 66 162 vasp.u;
#X msg 293 113 vasp insert;
#X obj 293 161 vasp.u;
#X obj 293 137 vasp.osc 2;
#X msg 63 216 vasp insert;
#X obj 63 261 vasp.u;
#X obj 63 239 vasp.window;
#X obj 66 138 vasp.osc 128;
#X obj 155 160 vasp.*!window lin;
#X msg 273 230 vasp insert;
#X obj 273 292 vasp.u;
#X obj 273 251 vasp.osc 2;
#X obj 273 271 vasp.*xwindow hamming;
#X obj 355 230 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
10 -24198 -1 -1 3 256;
#X text 56 71 create various slices to insert;
#X msg 405 113 vasp insert;
#X obj 405 161 vasp.u;
#X obj 405 137 vasp.= 0;
#X connect 0 0 2 0;
#X connect 2 0 12 0;
#X connect 3 0 11 0;
#X connect 5 0 7 0;
#X connect 7 0 6 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X connect 11 0 4 0;
#X connect 12 0 1 0;
#X connect 13 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 14 0;
#X connect 17 0 15 1;
#X connect 19 0 21 0;
#X connect 21 0 20 0;
#X restore 40 47 pd create_schnippl;
#X restore 53 489 pd inside;
#X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198
-1 -1 4400 1;
#X obj 204 374 *~ 0.2;
#X text 332 464 needs the zexy library and vasp;
#X obj 51 297 * 0.0001;
#N canvas 0 0 478 359 glaetten 0;
#X floatatom 225 70 5 0 0 0 - - -;
#X floatatom 242 130 5 0 0 0 - - -;
#X obj 225 111 div 64;
#X obj 225 148 + 1;
#X obj 225 169 * 64;
#X floatatom 254 193 0 0 0 0 - - -;
#X obj 225 90 - 1;
#X text 40 193 correct to a size dividable by 64;
#X obj 225 215 * 3;
#X floatatom 238 240 0 0 0 0 - - -;
#X text 143 239 size of array;
#X text 115 68 length of sample;
#X text 303 194 (part-length);
#X obj 322 257 s \$0-partlen;
#X msg 313 285 \; insert resize \$1;
#X msg 73 287 \; schnipparray resize \$1;
#X obj 225 38 inlet;
#X connect 0 0 6 0;
#X connect 2 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 13 0;
#X connect 5 0 14 0;
#X connect 6 0 2 0;
#X connect 8 0 9 0;
#X connect 8 0 15 0;
#X connect 16 0 0 0;
#X restore 482 362 pd glaetten;
#X obj 482 320 soundfiler;
#X obj 482 278 openpanel;
#X msg 482 299 read -resize \$1 insert;
#X obj 482 251 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X floatatom 482 342 0 0 0 0 - - -;
#X text 326 103 this array is inserted at random triggering points
;
#X text 506 251 load sample to insert;
#X text 332 478 be careful with high density \, with large files costs
a lot of cpu and glitches can appear;
#X msg 481 211 \; pd-create_schnippl vis 1;
#X obj 481 189 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X text 509 188 create samples to insert;
#X connect 2 0 13 0;
#X connect 4 0 7 0;
#X connect 5 0 15 0;
#X connect 8 0 1 0;
#X connect 10 0 9 0;
#X connect 12 0 13 1;
#X connect 13 0 3 0;
#X connect 13 0 3 1;
#X connect 13 0 10 0;
#X connect 15 0 4 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 16 0;
#X connect 26 0 25 0;

--- NEW FILE: granular1.pd ---
#N canvas 62 0 630 495 10;
#N canvas 0 0 450 300 graph34 0;
#X array insert 128 float 1;
#A 0 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147 0.77301 0.707107
0.634393 0.55557 0.471397 0.382683 0.290285 0.19509 0.0980171 -3.82859e-016
-0.0980171 -0.19509 -0.290285 -0.382683 -0.471397 -0.55557 -0.634393
-0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694 -0.980785 -0.995185
-1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921 -0.83147 -0.77301
-0.707107 -0.634393 -0.55557 -0.471397 -0.382683 -0.290285 -0.19509
-0.0980171 7.04487e-016 0.0980171 0.19509 0.290285 0.382683 0.471397
0.55557 0.634393 0.707107 0.77301 0.83147 0.881921 0.92388 0.95694
0.980785 0.995185 1 0.995185 0.980785 0.95694 0.92388 0.881921 0.83147
0.77301 0.707107 0.634393 0.55557 0.471397 0.382683 0.290285 0.19509
0.0980171 1.00761e-014 -0.0980171 -0.19509 -0.290285 -0.382683 -0.471397
-0.55557 -0.634393 -0.707107 -0.77301 -0.83147 -0.881921 -0.92388 -0.95694
-0.980785 -0.995185 -1 -0.995185 -0.980785 -0.95694 -0.92388 -0.881921
-0.83147 -0.77301 -0.707107 -0.634393 -0.55557 -0.471397 -0.382683
-0.290285 -0.19509 -0.0980171 -1.99685e-014 0.0980171 0.19509 0.290285
0.382683 0.471397 0.55557 0.634393 0.707107 0.77301 0.83147 0.881921
0.92388 0.95694 0.980785 0.995185;
#X coords 0 1 127 -1 200 140 1;
#X restore 78 68 graph;
#N canvas 112 314 505 434 player 0;
#X obj 117 137 tabplay~ schnipparray;
#X obj 171 245 tabplay~ schnipparray;
#X obj 250 350 tabplay~ schnipparray;
#X obj 117 161 throw~ toex;
#X obj 171 264 throw~ toex;
#X obj 250 374 throw~ toex;
#X obj 88 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 88 73 spigot;
#X obj 85 283 s \$0-part;
#X obj 143 200 t b b;
#X obj 222 306 t b b;
#X obj 88 22 inlet;
#X msg 114 115 0 128;
#X msg 171 225 128 128;
#X msg 251 330 256 128;
#X obj 89 93 t b b;
#X msg 222 328 1;
#X msg 143 225 3;
#X msg 85 117 2;
#X connect 0 0 3 0;
#X connect 0 1 9 0;
#X connect 1 0 4 0;
#X connect 1 1 10 0;
#X connect 2 0 5 0;
#X connect 2 1 7 0;
#X connect 6 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 9 0 17 0;
#X connect 9 1 13 0;
#X connect 10 0 16 0;
#X connect 10 1 14 0;
#X connect 11 0 6 0;
#X connect 12 0 0 0;
#X connect 13 0 1 0;
#X connect 14 0 2 0;
#X connect 15 0 18 0;
#X connect 15 1 12 0;
#X connect 16 0 8 0;
#X connect 17 0 8 0;
#X connect 18 0 8 0;
#X restore 204 294 pd player;
#X obj 204 339 catch~ toex;
#X obj 204 403 dac~;
#X floatatom 76 311 0 0 0 0 - - -;
#X obj 76 271 nbx 5 14 -1e+037 1e+037 0 1 empty empty empty 0 -6 0
10 -24198 -1 -1 11 256;
#X text 76 253 density;
#X obj 76 333 s \$0-density;
#X obj 204 275 tgl 15 0 empty empty start/stop 0 -6 0 8 -24198 -1 -1
1 1;
#X obj 76 290 * 0.001;
#X floatatom 241 429 0 0 0 0 - - -;
#X obj 241 407 env~ 32768;
#N canvas 0 0 392 261 inside 0;
#X obj 41 63 table positions;
#N canvas 0 0 478 328 create_schippler 0;
#X msg 155 114 vasp insert;
#X obj 155 162 vasp.u;
#X obj 155 138 vasp.osc 6.4;
#X msg 66 114 vasp insert;
#X obj 66 162 vasp.u;
#X obj 66 138 vasp.osc 64;
#X msg 251 115 vasp insert;
#X obj 251 163 vasp.u;
#X obj 251 139 vasp.osc 2;
#X text 56 71 create various samples to insert;
#X msg 63 216 vasp insert;
#X obj 63 261 vasp.u;
#X obj 63 239 vasp.window;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 10 0 12 0;
#X connect 12 0 11 0;
#X restore 43 113 pd create_schippler;
#N canvas 0 0 660 348 inserter 0;
#X obj 48 84 sel 1 2 3;
#N canvas 2 7 415 675 first_part 0;
#X obj 48 483 tabread positions;
#X obj 48 172 vasp.noise;
#X obj 48 238 vasp.??;
#X obj 48 192 vasp.abs;
#X obj 48 215 vasp.< 0.1;
#X obj 48 262 route list;
#X text 58 501 insert a soundfile at certain offset-position;
#X obj 48 547 vasp.+ vasp insert;
#X obj 48 120 t b b;
#X obj 126 146 vasp.= 0;
#X obj 48 70 inlet;
#X obj 103 192 r \$0-density;
#X msg 162 326 \; positions resize \$1;
#X obj 80 362 tabset positions;
#X obj 48 387 0;
#X obj 48 411 until;
#X obj 90 436 + 1;
#X obj 48 436 0;
#X msg 72 386 0;
#X obj 97 310 length;
#X obj 48 460 t f f;
#X obj 97 331 t f f;
#X obj 48 288 t b b l l;
#X obj 48 149 vasp.! 128;
#X msg 48 522 vasp 128 schnipparray \$1;
#X msg 126 125 vasp 128 schnipparray 128;
#X connect 0 0 24 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 22 0;
#X connect 8 0 23 0;
#X connect 8 1 25 0;
#X connect 10 0 8 0;
#X connect 11 0 4 1;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 20 0;
#X connect 18 0 17 1;
#X connect 19 0 21 0;
#X connect 20 0 0 0;
#X connect 20 1 16 0;
#X connect 21 0 14 1;
#X connect 21 1 12 0;
#X connect 22 0 14 0;
#X connect 22 1 18 0;
#X connect 22 2 13 0;
#X connect 22 3 19 0;
#X connect 23 0 1 0;
#X connect 24 0 7 0;
#X connect 25 0 9 0;
#X restore 48 183 pd first_part;
#N canvas 162 22 383 663 second_part 0;
#X obj 48 483 tabread positions;
#X obj 48 172 vasp.noise;
#X obj 48 238 vasp.??;
#X obj 48 192 vasp.abs;
#X obj 48 215 vasp.< 0.1;
#X obj 48 262 route list;
#X text 58 501 insert a soundfile at certain offset-position;
#X text 124 552 fuer drei teilbereiche;
#X obj 48 586 vasp.+ vasp insert;
#X obj 48 120 t b b;
#X obj 126 146 vasp.= 0;
#X obj 48 70 inlet;
#X obj 103 192 r \$0-density;
#X msg 162 323 \; positions resize \$1;
#X obj 80 359 tabset positions;
#X obj 48 384 0;
#X obj 48 408 until;
#X obj 90 433 + 1;
#X obj 48 433 0;
#X msg 72 383 0;
#X obj 97 307 length;
#X obj 48 457 t f f;
#X obj 97 328 t f f;
#X obj 48 285 t b b l l;
#X obj 48 148 vasp.! 128;
#X msg 48 525 vasp 128 schnipparray \$1;
#X obj 48 551 vasp.o+ 128;
#X msg 126 124 vasp 128 schnipparray 256;
#X connect 0 0 25 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 23 0;
#X connect 9 0 24 0;
#X connect 9 1 27 0;
#X connect 11 0 9 0;
#X connect 12 0 4 1;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 21 0;
#X connect 19 0 18 1;
#X connect 20 0 22 0;
#X connect 21 0 0 0;
#X connect 21 1 17 0;
#X connect 22 0 15 1;
#X connect 22 1 13 0;
#X connect 23 0 15 0;
#X connect 23 1 19 0;
#X connect 23 2 14 0;
#X connect 23 3 20 0;
#X connect 24 0 1 0;
#X connect 25 0 26 0;
#X connect 26 0 8 0;
#X connect 27 0 10 0;
#X restore 191 181 pd second_part;
#N canvas 427 3 562 703 third_part 0;
#X msg 155 289 \; positions resize \$1;
#X obj 73 325 tabset positions;
#X obj 41 350 0;
#X obj 41 374 until;
#X obj 83 399 + 1;
#X obj 41 399 0;
#X obj 41 445 tabread positions;
#X msg 65 349 0;
#X obj 41 134 vasp.noise;
#X obj 41 200 vasp.??;
#X obj 41 154 vasp.abs;
#X obj 41 177 vasp.< 0.1;
#X obj 90 273 length;
#X obj 41 423 t f f;
#X obj 41 224 route list;
#X obj 310 641 vasp.+ vasp insert;
#X obj 41 82 t b b;
#X obj 119 108 vasp.= 0;
#X obj 41 52 inlet;
#X obj 96 154 r \$0-density;
#X text 177 107 (clears second part);
#X text 327 499 sample-length;
#X obj 292 520 - 0;
#X text 329 519 minus offset;
#X text 292 215 this part has to write "around the corner";
#X obj 48 636 vasp.+ vasp insert;
#X msg 48 586 vasp \$1 schnipparray;
#X text 446 641 insert at end;
#X text 49 663 insert at beginning;
#X obj 90 294 t f f;
#X obj 41 251 t b b l l;
#X msg 310 565 vasp \$1 schnipparray;
#X obj 310 613 vasp.o;
#X obj 186 609 vasp.o;
#X msg 413 614 vasp \$1 insert;
#X msg 186 586 vasp \$1 insert;
#X obj 48 550 t f f;
#X obj 48 527 - 0;
#X obj 276 471 t b b f f;
#X text 73 528 already at the end;
#X obj 292 541 t f f f f;
#X obj 41 111 vasp.! 128;
#X obj 292 497 128;
#X obj 48 505 128;
#X obj 341 590 + 256;
#X msg 119 86 vasp 128 schnipparray;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 13 0;
#X connect 6 0 38 0;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 29 0;
#X connect 13 0 6 0;
#X connect 13 1 4 0;
#X connect 14 0 30 0;
#X connect 16 0 41 0;
#X connect 16 1 45 0;
#X connect 18 0 16 0;
#X connect 19 0 11 1;
#X connect 22 0 40 0;
#X connect 26 0 25 0;
#X connect 29 0 2 1;
#X connect 29 1 0 0;
#X connect 30 0 2 0;
#X connect 30 1 7 0;
#X connect 30 2 1 0;
#X connect 30 3 12 0;
#X connect 31 0 32 0;
#X connect 32 0 15 0;
#X connect 33 0 25 1;
#X connect 34 0 15 1;
#X connect 35 0 33 0;
#X connect 36 0 26 0;
#X connect 36 1 35 0;
#X connect 37 0 36 0;
#X connect 38 0 43 0;
#X connect 38 1 42 0;
#X connect 38 2 22 1;
#X connect 38 3 44 0;
#X connect 40 0 37 1;
#X connect 40 1 33 1;
#X connect 40 2 31 0;
#X connect 40 3 34 0;
#X connect 41 0 8 0;
#X connect 42 0 22 0;
#X connect 43 0 37 0;
#X connect 44 0 32 1;
#X connect 45 0 17 0;
#X restore 336 183 pd third_part;
#X obj 48 55 r \$0-part;
#X text 50 33 after a sample-part is played \, next step is calculated
;
#X text 296 84 1) generate noise \; 2) get triggering-values \; 3)
...save in positions-array \; 4) read samplevalues of positions \;
5) at every trigger insert the "insert"array;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 0 2 3 0;
#X connect 4 0 0 0;
#X restore 42 88 pd inserter;
#X obj 40 37 table schnipparray 384;
#X restore 516 119 pd inside;
#X obj 322 271 vsl 15 100 0 1 0 1 empty empty volume 0 -8 0 8 -24198
-1 -1 600 1;
#X obj 204 374 *~ 0.2;
#X text 387 445 needs the zexy library and vasp;
#X text 319 80 this array is inserted at triggering points;
#X connect 2 0 14 0;
#X connect 4 0 7 0;
#X connect 5 0 9 0;
#X connect 8 0 1 0;
#X connect 9 0 4 0;
#X connect 11 0 10 0;
#X connect 13 0 14 1;
#X connect 14 0 3 0;
#X connect 14 0 3 1;
#X connect 14 0 11 0;