externals/frankenstein/patches sampleplayer.pd, NONE, 1.1 test-GArhythm.pd, NONE, 1.1 - Pd-cvs

8 Dec 2005


      Update of /cvsroot/pure-data/externals/frankenstein/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21387
Added Files:
    sampleplayer.pd test-GArhythm.pd 
Log Message:
adding example
--- NEW FILE: test-GArhythm.pd ---
#N canvas 0 0 1011 709 12;
#X obj 22 629 dac~;
#N canvas 4 65 458 308 perc 0;
#X obj 351 17 inlet;
#X obj 158 250 outlet~;
#X obj 168 45 noise~;
#X obj 180 190 line 0 50;
#X obj 158 216 *~;
#X msg 310 137 0 50;
#X obj 156 112 *~ 0.5;
#X msg 262 96 1 10;
#X obj 316 90 delay 50;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X restore 53 459 pd perc;
#X obj 54 441 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1
-1;
#X obj 361 183 metro;
#N canvas 1 23 466 316 msecs 0;
#X obj 58 19 inlet;
#X obj 61 209 outlet;
#X obj 57 147 /;
#X obj 57 100 bang;
#X obj 73 79 t f f;
#X obj 57 174 / 4;
#X msg 57 122 60000;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 4 1 2 1;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X restore 425 154 pd msecs;
#X obj 424 80 loadbang;
#X msg 425 101 60;
#X obj 361 160 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#N canvas 0 0 490 340 graph2 0;
#X obj 122 9 inlet;
#X obj 362 255 outlet;
#X obj 171 33 int;
#X obj 204 31 + 1;
#X obj 185 57 % 4;
#X obj 168 78 sel 0;
#X obj 168 105 bng 15 250 50 0 empty empty beat 0 -6 0 8 -262144 -1
-1;
#X obj 263 86 sel 0;
#X obj 264 108 bng 15 250 50 0 empty empty bar 0 -6 0 8 -262144 -1
-1;
#X obj 262 63 % 16;
#X obj 69 278 hradio 10 1 0 16 empty empty empty 0 -6 0 8 -262144 -1
-1 0;
#X obj 70 64 / 2;
#X obj 71 87 int;
#X obj 72 111 hradio 10 1 0 2 empty empty 1/8 0 -6 0 8 -262144 -1 -1
0;
#X obj 342 78 int;
#X obj 73 220 hradio 10 1 0 4 empty empty 1/4 0 -6 0 8 -262144 -1 -1
0;
#X obj 341 55 / 4;
#X obj 70 167 hradio 10 1 0 4 empty empty 1/16 0 -6 0 8 -262144 -1
-1 0;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 2 1;
#X connect 3 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 4 0 17 0;
#X connect 4 0 11 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 7 0;
#X connect 9 0 10 0;
#X connect 9 0 16 0;
#X connect 9 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 16 0 14 0;
#X coords 0 1 100 -1 200 140 1;
#X restore 381 242 graph;
#X floatatom 447 179 5 0 0 0 - - -;
#X obj 475 424 t a a;
#X obj 470 450 bang;
#X obj 373 221 delay;
#X obj 408 200 / 2;
#N canvas 65 11 799 687 instr_bass 0;
#X obj 72 43 inlet;
#X obj 249 569 throw~ mainL;
#X obj 355 563 throw~ mainR;
#X obj 81 80 int;
#X obj 45 132 select 1;
#X obj 146 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 238 34 inlet;
#X obj 223 299 bng 25 250 50 0 empty empty play 30 10 0 8 -258699 -241291
-1;
#X obj 253 322 bng 25 250 50 0 empty empty load 30 10 0 8 -258699 -241291
-1;
#X obj 223 276 r channel1;
#X obj 136 382 sampleplayer 1;
#X msg 250 356 samples/BD01.WAV;
#X obj 401 522 outlet~;
#X obj 96 214 r sampleinit;
#X floatatom 62 338 5 0 0 0 - - -;
#X text 57 320 length;
#X floatatom 63 361 5 0 0 0 - - -;
#X text 56 379 volume;
#X floatatom 110 338 5 0 0 0 - - -;
#X floatatom 159 338 5 0 0 0 - - -;
#X text 159 318 pitch;
#X text 111 319 start;
#X obj 250 413 s lastload;
#X msg 100 290 1;
#X msg 62 290 440;
#X msg 137 290 100;
#X obj 337 509 *~ 0;
#X obj 520 119 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7620 1;
#X obj 504 46 loadbang;
#X obj 509 350 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 577 382 pd varia;
#X obj 637 358 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 583 435 5 0 0 0 - - -;
#X msg 509 373 0.005;
#X obj 542 462 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 610 494 pd varia;
#X obj 670 470 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 619 546 5 0 0 0 - - -;
#X obj 609 521 * 20;
#X msg 542 485 0.025;
#X obj 300 460 bp~ 100 20;
#X obj 576 409 * 100;
#X msg 506 70 0.6;
#X obj 81 104 tabread proposed1;
#X connect 0 0 3 0;
#X connect 3 0 43 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 10 4;
#X connect 8 0 10 5;
#X connect 9 0 7 0;
#X connect 10 0 26 0;
#X connect 10 1 22 0;
#X connect 11 0 10 6;
#X connect 13 0 11 0;
#X connect 13 0 24 0;
#X connect 13 0 23 0;
#X connect 13 0 25 0;
#X connect 14 0 10 1;
#X connect 16 0 10 0;
#X connect 18 0 10 2;
#X connect 19 0 10 3;
#X connect 23 0 18 0;
#X connect 24 0 14 0;
#X connect 25 0 19 0;
#X connect 26 0 1 0;
#X connect 26 0 2 0;
#X connect 26 0 12 0;
#X connect 27 0 26 1;
#X connect 28 0 42 0;
#X connect 29 0 33 0;
#X connect 30 0 41 0;
#X connect 31 0 30 1;
#X connect 33 0 30 0;
#X connect 34 0 39 0;
#X connect 35 0 38 0;
#X connect 36 0 35 1;
#X connect 38 0 37 0;
#X connect 38 0 40 2;
#X connect 39 0 35 0;
#X connect 41 0 32 0;
#X connect 41 0 40 1;
#X connect 42 0 27 0;
#X connect 43 0 4 0;
#X restore 325 431 pd instr_bass;
#N canvas 65 11 787 675 instr_high 0;
#X obj 72 43 inlet;
#X obj 150 594 throw~ mainL;
#X obj 274 591 throw~ mainR;
#X obj 81 80 int;
#X obj 45 132 select 1;
#X obj 146 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 260 44 inlet;
#X obj 229 309 bng 25 250 50 0 empty empty play 30 10 0 8 -258699 -241291
-1;
#X obj 259 332 bng 25 250 50 0 empty empty load 30 10 0 8 -258699 -241291
-1;
#X obj 378 570 outlet~;
#X obj 106 227 r sampleinit;
#X floatatom 68 348 5 0 0 0 - - -;
#X text 63 330 length;
#X floatatom 69 371 5 0 0 0 - - -;
#X text 62 389 volume;
#X floatatom 116 348 5 0 0 0 - - -;
#X floatatom 165 348 5 0 0 0 - - -;
#X text 165 328 pitch;
#X text 117 329 start;
#X obj 249 420 s lastload;
#X msg 106 300 1;
#X msg 68 300 440;
#X obj 142 392 sampleplayer 2;
#X obj 229 286 r channel2;
#X msg 143 300 100;
#X msg 256 366 samples/SD01.WAV;
#X obj 250 525 *~ 0;
#X obj 523 151 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 5080 1;
#X obj 504 46 loadbang;
#X obj 475 365 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 543 397 pd varia;
#X obj 603 373 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X obj 266 477 bp~ 100 20;
#X floatatom 549 450 5 0 0 0 - - -;
#X obj 542 424 * 8000;
#X msg 475 388 0.005;
#X obj 508 477 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 576 509 pd varia;
#X obj 636 485 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 585 561 5 0 0 0 - - -;
#X obj 575 536 * 20;
#X msg 508 500 0.025;
#X msg 506 70 0.4;
#X obj 81 104 tabread proposed2;
#X connect 0 0 3 0;
#X connect 3 0 43 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 22 4;
#X connect 8 0 22 5;
#X connect 10 0 25 0;
#X connect 10 0 21 0;
#X connect 10 0 20 0;
#X connect 10 0 24 0;
#X connect 11 0 22 1;
#X connect 13 0 22 0;
#X connect 15 0 22 2;
#X connect 16 0 22 3;
#X connect 20 0 15 0;
#X connect 21 0 11 0;
#X connect 22 0 26 0;
#X connect 22 1 19 0;
#X connect 23 0 7 0;
#X connect 24 0 16 0;
#X connect 25 0 22 6;
#X connect 26 0 9 0;
#X connect 26 0 1 0;
#X connect 26 0 2 0;
#X connect 27 0 26 1;
#X connect 28 0 42 0;
#X connect 29 0 35 0;
#X connect 30 0 34 0;
#X connect 31 0 30 1;
#X connect 34 0 32 1;
#X connect 34 0 33 0;
#X connect 35 0 30 0;
#X connect 36 0 41 0;
#X connect 37 0 40 0;
#X connect 38 0 37 1;
#X connect 40 0 32 2;
#X connect 40 0 39 0;
#X connect 41 0 37 0;
#X connect 42 0 27 0;
#X connect 43 0 4 0;
#X restore 325 454 pd instr_high;
#N canvas 48 52 595 565 metro 0;
#X obj 64 231 throw~ mainL;
#X obj 186 232 throw~ mainR;
#X obj 83 33 inlet;
#X obj 82 87 bang;
#N canvas 4 65 458 308 perc 0;
#X obj 351 17 inlet;
#X obj 158 250 outlet~;
#X obj 168 45 noise~;
#X obj 180 190 line 0 50;
#X obj 158 216 *~;
#X msg 310 137 0 50;
#X msg 262 96 1 10;
#X obj 316 90 delay 50;
#X obj 156 113 *~ 0.1;
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 2 0 8 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X restore 83 149 pd perc;
#X obj 103 185 *~ 0.3;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X restore 325 410 pd metro;
#X obj 118 514 catch~ mainL;
#X obj 118 536 catch~ mainR;
#N canvas 23 68 811 352 capture 0;
#X obj 713 29 inlet;
#X obj 148 224 int;
#X msg 58 204 1;
#X obj 68 179 t a a;
#X obj 101 200 bang;
#X obj 43 247 tabwrite played1;
#X obj 59 145 inlet;
#X obj 305 227 int;
#X msg 215 207 1;
#X obj 225 182 t a a;
#X obj 258 203 bang;
#X obj 216 148 inlet;
#X obj 458 227 int;
#X msg 368 207 1;
#X obj 378 182 t a a;
#X obj 411 203 bang;
#X obj 369 148 inlet;
#X obj 607 227 int;
#X msg 517 207 1;
#X obj 527 182 t a a;
#X obj 560 203 bang;
#X obj 518 148 inlet;
#X obj 200 250 tabwrite played2;
#X obj 354 250 tabwrite played3;
#X obj 502 250 tabwrite played4;
#X connect 0 0 1 1;
#X connect 0 0 7 1;
#X connect 0 0 12 1;
#X connect 0 0 17 1;
#X connect 1 0 5 1;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 3 1 4 0;
#X connect 4 0 1 0;
#X connect 6 0 3 0;
#X connect 7 0 22 1;
#X connect 8 0 22 0;
#X connect 9 0 8 0;
#X connect 9 1 10 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X connect 12 0 23 1;
#X connect 13 0 23 0;
#X connect 14 0 13 0;
#X connect 14 1 15 0;
#X connect 15 0 12 0;
#X connect 16 0 14 0;
#X connect 17 0 24 1;
#X connect 18 0 24 0;
#X connect 19 0 18 0;
#X connect 19 1 20 0;
#X connect 20 0 17 0;
#X connect 21 0 19 0;
#X restore 135 484 pd capture;
#X text 37 224 this delay is to center the quantization;
#X obj 426 130 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
10 -258699 -1 -1 60 256;
#X text 29 30 test1: detect rhythmic pattern and proposes a counterpoint
;
#X obj 476 397 select 0;
#N canvas 0 0 454 304 valori 0;
#X obj 57 40 inlet;
#X obj 136 42 inlet;
#X obj 229 42 inlet;
#X obj 58 215 outlet;
#X msg 60 112 variazione $1;
#X msg 135 74 riempimento $1;
#X msg 231 133 aderenza $1;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X restore 698 378 pd valori;
#X obj 678 220 vsl 15 128 0 1 0 0 empty empty variazione 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 730 226 vsl 15 128 0 1 0 0 empty empty riempimento 0 -8 0 8
-262144 -1 -1 0 1;
#X obj 788 239 vsl 15 128 0 1 0 0 empty empty aderenza 0 -8 0 8 -262144
-1 -1 10160 1;
#N canvas 0 4 458 308 ritmino 0;
#X obj 216 31 inlet;
#X obj 201 268 outlet;
#X obj 48 131 select 0;
#X obj 131 135 select 3;
#X obj 211 136 select 6;
#X obj 200 238 bang;
#X obj 307 133 select 8;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X restore 58 412 pd ritmino;
#X floatatom 665 357 5 0 0 0 - - -;
#X floatatom 719 359 5 0 0 0 - - -;
#X floatatom 786 371 5 0 0 0 - - -;
#X obj 460 101 s sampleinit;
#X obj 59 507 *~ 1;
#X obj 22 431 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 1270 1;
#X obj 19 351 loadbang;
#X obj 285 385 t a a a a a a a;
#N canvas 65 11 783 671 instr3 0;
#X obj 72 43 inlet;
#X obj 242 561 throw~ mainL;
#X obj 366 558 throw~ mainR;
#X obj 81 80 int;
#X obj 45 132 select 1;
#X obj 146 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 260 44 inlet;
#X obj 229 309 bng 25 250 50 0 empty empty play 30 10 0 8 -258699 -241291
-1;
#X obj 259 332 bng 25 250 50 0 empty empty load 30 10 0 8 -258699 -241291
-1;
#X obj 470 537 outlet~;
#X obj 106 227 r sampleinit;
#X floatatom 68 348 5 0 0 0 - - -;
#X text 63 330 length;
#X floatatom 69 371 5 0 0 0 - - -;
#X text 62 389 volume;
#X floatatom 116 348 5 0 0 0 - - -;
#X floatatom 165 348 5 0 0 0 - - -;
#X text 165 328 pitch;
#X text 117 329 start;
#X obj 249 420 s lastload;
#X msg 106 300 1;
#X msg 68 300 440;
#X obj 229 286 r channel2;
#X msg 143 300 100;
#X obj 287 502 *~ 0;
#X obj 523 151 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 5080 1;
#X obj 504 46 loadbang;
#X msg 256 366 samples/claps.WAV;
#X obj 142 392 sampleplayer 3;
#X obj 288 461 bp~ 100 20;
#X obj 513 339 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 581 371 pd varia;
#X obj 641 347 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 587 424 5 0 0 0 - - -;
#X obj 580 398 * 8000;
#X msg 513 362 0.005;
#X obj 546 451 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 614 483 pd varia;
#X obj 674 459 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 623 535 5 0 0 0 - - -;
#X obj 613 510 * 20;
#X msg 546 474 0.025;
#X msg 506 70 0.4;
#X obj 81 104 tabread proposed3;
#X connect 0 0 3 0;
#X connect 3 0 43 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 28 4;
#X connect 8 0 28 5;
#X connect 10 0 27 0;
#X connect 10 0 21 0;
#X connect 10 0 20 0;
#X connect 10 0 23 0;
#X connect 11 0 28 1;
#X connect 13 0 28 0;
#X connect 15 0 28 2;
#X connect 16 0 28 3;
#X connect 20 0 15 0;
#X connect 21 0 11 0;
#X connect 22 0 7 0;
#X connect 23 0 16 0;
#X connect 24 0 9 0;
#X connect 24 0 1 0;
#X connect 24 0 2 0;
#X connect 25 0 24 1;
#X connect 26 0 42 0;
#X connect 27 0 28 6;
#X connect 28 0 24 0;
#X connect 28 1 19 0;
#X connect 30 0 35 0;
#X connect 31 0 34 0;
#X connect 32 0 31 1;
#X connect 34 0 33 0;
#X connect 34 0 29 1;
#X connect 35 0 31 0;
#X connect 36 0 41 0;
#X connect 37 0 40 0;
#X connect 38 0 37 1;
#X connect 40 0 39 0;
#X connect 40 0 29 2;
#X connect 41 0 37 0;
#X connect 42 0 25 0;
#X connect 43 0 4 0;
#X restore 325 479 pd instr3;
#N canvas 65 11 775 663 instr4 0;
#X obj 72 43 inlet;
#X obj 242 561 throw~ mainL;
#X obj 366 558 throw~ mainR;
#X obj 81 80 int;
#X obj 45 132 select 1;
#X obj 146 179 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 260 44 inlet;
#X obj 229 309 bng 25 250 50 0 empty empty play 30 10 0 8 -258699 -241291
-1;
#X obj 259 332 bng 25 250 50 0 empty empty load 30 10 0 8 -258699 -241291
-1;
#X obj 470 537 outlet~;
#X obj 106 227 r sampleinit;
#X floatatom 68 348 5 0 0 0 - - -;
#X text 63 330 length;
#X floatatom 69 371 5 0 0 0 - - -;
#X text 62 389 volume;
#X floatatom 116 348 5 0 0 0 - - -;
#X floatatom 165 348 5 0 0 0 - - -;
#X text 165 328 pitch;
#X text 117 329 start;
#X obj 249 420 s lastload;
#X msg 106 300 1;
#X msg 68 300 440;
#X obj 229 286 r channel2;
#X msg 143 300 100;
#X obj 294 505 *~ 0;
#X obj 523 151 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 7620 1;
#X obj 504 46 loadbang;
#X obj 142 392 sampleplayer 4;
#X msg 255 365 samples/SHAKE1.WAV;
#X obj 529 338 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 597 370 pd varia;
#X obj 657 346 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 603 423 5 0 0 0 - - -;
#X obj 596 397 * 8000;
#X msg 529 361 0.005;
#X obj 562 450 loadbang;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 630 482 pd varia;
#X obj 690 458 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X floatatom 639 534 5 0 0 0 - - -;
#X obj 629 509 * 20;
#X msg 562 473 0.025;
#X obj 316 454 bp~ 100 20;
#X msg 506 70 0.6;
#X obj 81 104 tabread proposed4;
#X connect 0 0 3 0;
#X connect 3 0 43 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 27 4;
#X connect 8 0 27 5;
#X connect 10 0 28 0;
#X connect 10 0 21 0;
#X connect 10 0 20 0;
#X connect 10 0 23 0;
#X connect 11 0 27 1;
#X connect 13 0 27 0;
#X connect 15 0 27 2;
#X connect 16 0 27 3;
#X connect 20 0 15 0;
#X connect 21 0 11 0;
#X connect 22 0 7 0;
#X connect 23 0 16 0;
#X connect 24 0 9 0;
#X connect 24 0 1 0;
#X connect 24 0 2 0;
#X connect 25 0 24 1;
#X connect 26 0 42 0;
#X connect 27 0 24 0;
#X connect 27 1 19 0;
#X connect 28 0 27 6;
#X connect 29 0 34 0;
#X connect 30 0 33 0;
#X connect 31 0 30 1;
#X connect 33 0 32 0;
#X connect 33 0 41 1;
#X connect 34 0 30 0;
#X connect 35 0 40 0;
#X connect 36 0 39 0;
#X connect 37 0 36 1;
#X connect 39 0 38 0;
#X connect 39 0 41 2;
#X connect 40 0 36 0;
#X connect 42 0 25 0;
#X connect 43 0 4 0;
#X restore 325 503 pd instr4;
#X obj 72 590 *~;
#X obj 158 565 vsl 15 40 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 3120 1;
#X obj 104 588 *~;
#X obj 190 565 loadbang;
#X obj 109 72 loadbang;
#X msg 109 95 0.001;
#X obj 178 130 + 1;
#X obj 812 155 loadbang;
#X obj 177 154 * 50;
#X obj 891 341 loadbang;
#X msg 848 244 0.8;
#N canvas 263 354 478 328 varia 0;
#X obj 244 46 inlet;
#X obj 135 193 outlet;
#X obj 137 94 osc~ 0.001;
#X obj 137 119 snapshot~;
#X obj 244 110 metro 100;
#X obj 136 168 / 2;
#X obj 131 48 inlet;
#X obj 137 142 + 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X restore 177 104 pd varia;
#N canvas 186 160 510 360 varia2 0;
#X obj 244 46 inlet;
#X obj 94 275 outlet;
#X obj 84 172 snapshot~;
#X obj 244 110 metro 100;
#X obj 60 53 inlet;
#X obj 226 230 table varia2;
#X obj 47 236 tabread varia2;
#X obj 45 201 * 100;
#X obj 53 121 phasor~ 0.01;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 8 0;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X restore 823 203 pd varia2;
#X msg 811 178 0.01;
#X obj 237 80 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0 1
;
#X obj 890 182 tgl 15 0 empty empty empty 0 -6 0 8 -258699 -1 -1 0
1;
#X msg 21 375 0.1;
#X msg 192 588 0.8;
#N canvas 26 13 993 549 tables 0;
#N canvas 0 0 450 300 graph1 0;
#X array played1 16 float 1;
#A 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 101 20 graph;
#N canvas 0 0 450 300 graph1 0;
#X array src1 16 float 1;
#A 0 1 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 494 25 graph;
#N canvas 0 0 450 300 graph1 0;
#X array proposed1 16 float 1;
#A 0 1 0 0 1 1 0 1 0 1 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 483 257 graph;
#N canvas 0 0 450 300 graph1 0;
#X array proposed2 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 482 307 graph;
#N canvas 0 0 450 300 graph1 0;
#X array proposed3 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 482 354 graph;
#N canvas 0 0 450 300 graph1 0;
#X array proposed4 16 float 1;
#A 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 482 401 graph;
#N canvas 0 0 450 300 graph1 0;
#X array played2 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 100 68 graph;
#N canvas 0 0 450 300 graph1 0;
#X array src2 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 492 76 graph;
#N canvas 0 0 450 300 graph1 0;
#X array played3 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 97 117 graph;
#N canvas 0 0 450 300 graph1 0;
#X array src3 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 492 126 graph;
#N canvas 0 0 450 300 graph1 0;
#X array played4 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 96 168 graph;
#N canvas 0 0 450 300 graph1 0;
#X array src4 16 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1.5 15 -0.5 200 40 1;
#X restore 491 178 graph;
#X restore 303 104 pd tables;
#X obj 380 599 GArhythm src1 src2 src3 src4 proposed1 proposed2 proposed3
proposed4;
#N canvas 0 0 454 304 avg_rhythms 0;
#X obj 41 76 bang;
#X obj 46 104 ritmo1 played1 src1;
#X obj 45 125 ritmo1 played2 src2;
#X obj 46 146 ritmo1 played3 src3;
#X obj 45 165 ritmo1 played4 src4;
#X obj 116 44 inlet;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 5 0 0 0;
#X restore 510 452 pd avg_rhythms;
#N canvas 0 0 458 308 audio2bang 0;
#X obj 54 38 inlet~;
#X obj 53 61 bonk~ 64;
#X obj 69 117 outlet;
#X obj 155 42 inlet~;
#X obj 154 65 bonk~ 64;
#X obj 170 121 outlet;
#X obj 240 41 inlet~;
#X obj 239 64 bonk~ 64;
#X obj 255 120 outlet;
#X obj 333 45 inlet~;
#X obj 332 68 bonk~ 64;
#X obj 348 124 outlet;
#X connect 0 0 1 0;
#X connect 1 1 2 0;
#X connect 3 0 4 0;
#X connect 4 1 5 0;
#X connect 6 0 7 0;
#X connect 7 1 8 0;
#X connect 9 0 10 0;
#X connect 10 1 11 0;
#X restore 128 328 pd audio2bang;
#X obj 67 628 outlet~;
#X obj 132 629 outlet~;
#X obj 372 55 inlet;
#X obj 90 295 adc~ 1;
#X obj 141 296 adc~ 2;
#X obj 194 296 adc~ 3;
#X obj 247 295 adc~ 4;
#X msg 450 512 reinit;
#X msg 490 560 reinsert_src $1;
#X msg 642 562 reinsert_last $1;
#X floatatom 492 540 5 0 0 0 - - -;
#X floatatom 645 539 5 0 0 0 - - -;
#X msg 578 503 help;
#X msg 658 511 prob_crossover $1;
#X msg 808 512 prob_mutation $1;
#X obj 659 475 vsl 10 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 809 474 vsl 10 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X msg 659 453 0.9;
#X msg 810 451 0.025;
#X floatatom 672 490 5 0 0 0 - - -;
#X floatatom 824 491 5 0 0 0 - - -;
#X connect 1 0 33 0;
#X connect 1 0 60 0;
#X connect 2 0 1 0;
#X connect 3 0 12 0;
#X connect 4 0 3 1;
#X connect 4 0 9 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 5 0 32 0;
#X connect 6 0 21 0;
#X connect 7 0 3 0;
#X connect 8 0 23 0;
#X connect 8 0 36 0;
#X connect 10 0 11 0;
#X connect 10 1 59 0;
#X connect 11 0 58 0;
#X connect 12 0 8 0;
#X connect 13 0 12 1;
#X connect 17 0 39 0;
#X connect 18 0 41 0;
#X connect 21 0 4 0;
#X connect 23 0 10 0;
#X connect 24 0 58 0;
#X connect 25 0 24 0;
#X connect 25 0 29 0;
#X connect 26 0 24 1;
#X connect 26 0 30 0;
#X connect 27 0 24 2;
#X connect 27 0 31 0;
#X connect 28 0 2 0;
#X connect 33 0 39 0;
#X connect 34 0 33 1;
#X connect 35 0 55 0;
#X connect 36 0 28 0;
#X connect 36 1 19 4;
#X connect 36 2 16 0;
#X connect 36 3 14 0;
#X connect 36 4 15 0;
#X connect 36 5 37 0;
#X connect 36 6 38 0;
#X connect 39 0 0 0;
#X connect 39 0 61 0;
#X connect 40 0 39 1;
#X connect 40 0 41 1;
#X connect 41 0 0 1;
#X connect 41 0 62 0;
#X connect 42 0 56 0;
#X connect 43 0 44 0;
#X connect 44 0 50 0;
#X connect 45 0 47 0;
#X connect 46 0 52 0;
#X connect 47 0 21 0;
#X connect 48 0 49 0;
#X connect 48 0 79 0;
#X connect 48 0 78 0;
#X connect 49 0 27 0;
#X connect 50 0 45 0;
#X connect 51 0 26 0;
#X connect 52 0 51 0;
#X connect 53 0 50 1;
#X connect 54 0 51 1;
#X connect 55 0 34 0;
#X connect 56 0 40 0;
#X connect 60 0 19 0;
#X connect 60 1 19 1;
#X connect 60 2 19 2;
#X connect 60 3 19 3;
#X connect 63 0 7 0;
#X connect 64 0 60 0;
#X connect 65 0 60 1;
#X connect 66 0 60 2;
#X connect 67 0 60 3;
#X connect 68 0 58 0;
#X connect 69 0 58 0;
#X connect 70 0 58 0;
#X connect 71 0 69 0;
#X connect 72 0 70 0;
#X connect 73 0 58 0;
#X connect 74 0 58 0;
#X connect 75 0 58 0;
#X connect 76 0 74 0;
#X connect 76 0 80 0;
#X connect 77 0 75 0;
#X connect 77 0 81 0;
#X connect 78 0 76 0;
#X connect 79 0 77 0;
--- NEW FILE: sampleplayer.pd ---
#N canvas -35 33 1009 703 12;
#X obj 476 599 outlet~;
#X obj 504 481 line~;
#X obj 402 281 line~;
#X obj 476 548 *~;
#X msg 424 142 bang;
#X obj 425 192 delay 5;
#X text 477 142 <-- play the sample;
#X text 349 223 sound off;
#X msg 393 245 0 5;
#X msg 612 32 1 , 4.41e+008 1e+007 ;;
#X msg 428 244 1 5;
#X text 617 9 set line to play sample;
#X obj 476 574 *~ 1;
#X obj 394 42 table $1-sampletable;
#X obj 476 520 tabread4~ $1-sampletable;
#X obj 712 257 openpanel;
#X obj 712 416 soundfiler;
#X msg 712 230 bang;
#X text 756 230 read file;
#X obj 712 283 t s b;
#X obj 751 318 symbol $1-sampletable;
#X msg 712 387 read -resize $1 $2;
#X obj 712 356 pack s s;
#X obj 713 196 inlet;
#X obj 400 92 inlet;
#X obj 103 139 inlet;
#X obj 760 68 inlet;
#X obj 658 196 symbol;
#X obj 689 499 outlet;
#X obj 172 141 inlet;
#X obj 278 191 delay 10000;
#X obj 492 418 pack 0 0;
#X obj 551 388 * 4.41e+008;
#X msg 492 283 bang;
#X msg 501 449 $1 , $2 1e+007 ;;
#X obj 492 336 int 1;
#X obj 250 142 inlet;
#X obj 304 140 inlet;
#X obj 551 336 float 1;
#X obj 602 298 / 100;
#X connect 1 0 14 0;
#X connect 2 0 3 1;
#X connect 3 0 12 0;
#X connect 4 0 5 0;
#X connect 4 0 8 0;
#X connect 4 0 30 0;
#X connect 5 0 9 0;
#X connect 5 0 10 0;
#X connect 5 0 33 0;
#X connect 8 0 2 0;
#X connect 10 0 2 0;
#X connect 12 0 0 0;
#X connect 14 0 3 0;
#X connect 15 0 19 0;
#X connect 15 0 28 0;
#X connect 17 0 15 0;
#X connect 19 0 22 0;
#X connect 19 1 20 0;
#X connect 20 0 22 1;
#X connect 21 0 16 0;
#X connect 22 0 21 0;
#X connect 23 0 17 0;
#X connect 24 0 4 0;
#X connect 25 0 12 1;
#X connect 26 0 27 0;
#X connect 27 0 19 0;
#X connect 27 0 28 0;
#X connect 29 0 30 1;
#X connect 30 0 8 0;
#X connect 31 0 34 0;
#X connect 32 0 31 1;
#X connect 33 0 35 0;
#X connect 33 0 38 0;
#X connect 34 0 1 0;
#X connect 35 0 31 0;
#X connect 36 0 35 1;
#X connect 37 0 39 0;
#X connect 38 0 32 0;
#X connect 39 0 38 0;