From b25f226536efda8462316c452daccf4a41231b43 Mon Sep 17 00:00:00 2001 From: Davide Morelli Date: Thu, 8 Dec 2005 16:32:22 +0000 Subject: adding example svn path=/trunk/externals/frankenstein/; revision=4172 --- patches/sampleplayer.pd | 80 ++++ patches/test-GArhythm.pd | 999 +++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 1079 insertions(+) create mode 100755 patches/sampleplayer.pd create mode 100755 patches/test-GArhythm.pd diff --git a/patches/sampleplayer.pd b/patches/sampleplayer.pd new file mode 100755 index 0000000..adf6c9d --- /dev/null +++ b/patches/sampleplayer.pd @@ -0,0 +1,80 @@ +#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; diff --git a/patches/test-GArhythm.pd b/patches/test-GArhythm.pd new file mode 100755 index 0000000..200736e --- /dev/null +++ b/patches/test-GArhythm.pd @@ -0,0 +1,999 @@ +#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; -- cgit v1.2.1