#N canvas 183 108 1322 1057 10;
#N canvas 0 22 450 300 graph1 0;
#X array table19 44103 float 0;
#X coords 0 1.02 44100 -1.02 200 130 1;
#X restore 680 8 graph;
#X obj 40 382 hip~ 5;
#X floatatom 474 253 0 0 0 0 - - -;
#X text 510 251 <-- frequency (Hz.);
#X floatatom 132 107 0 0 0 0 - - -;
#X obj 129 135 * 441;
#X obj 100 158 *~ 0;
#X obj 100 181 +~ 1;
#X msg 194 281 bang;
#X text 164 106 <-- chunk size (100ths of a second);
#X obj 187 377 adc~ 1;
#X obj 187 403 hip~ 5;
#X msg 205 431 bang;
#N canvas 0 22 450 300 graph2 0;
#X array graph19 44100 float 0;
#X coords 0 44100 44100 0 200 130 1;
#X restore 681 196 graph;
#X obj 40 356 *~;
#X obj 123 276 line~;
#X obj 123 228 * 441;
#X floatatom 123 205 0 0 0 0 - - -;
#X obj 123 252 pack 0 100;
#X obj 101 310 +~;
#X text 242 281 <-- graph table index;
#X text 684 337 ----- 1 second ------;
#X obj 191 498 loadbang;
#X text 227 522 v-- re-read the original sample;
#X obj 201 567 soundfiler;
#X text 678 147 ---- 44103 samples ---;
#X obj 187 463 tabwrite~ table19;
#X msg 212 623 \; graph19 ylabel 48000 0 44100;
#X obj 39 103 -~ 0.5;
#X obj 99 76 phasor~;
#X obj 39 127 *~ 0.5;
#X obj 39 150 cos~;
#X text 157 206 <-- read point (100ths of a second);
#X text 247 430 <-- record;
#X text 36 13 ENVELOPING THE LOOPING SAMPLER;
#X obj 100 336 tabread4~ table19;
#X obj 194 307 tabwrite~ graph19;
#X text 653 562 table;
#X obj 532 393 cnv 15 600 350 empty empty empty 20 12 0 14 -99865 -66577
0;
#X obj 553 429 bng 15 250 50 0 select empty sample 0 -6 0 8 -195568
-1 -262144;
#X obj 727 421 bng 25 250 50 0 start empty start 0 -6 0 8 -195568 -1
-262144;
#X obj 802 423 bng 25 250 50 0 stop empty stop 0 -6 0 8 -195568 -1
-262144;
#X obj 554 466 hsl 128 15 0 100 0 0 volume volume1 volume -2 -6 0 8
-195568 -1 -262144 10460 1;
#X obj 552 506 hsl 128 15 5 0.1 0 0 speed speed1 speed -2 -6 0 8 -195568
-1 -262144 9071 1;
#X obj 553 666 hsl 128 15 90 0.9 1 0 diatonic diatonic1 scale-switching
-2 -6 0 8 -195568 -1 -262144 1118 1;
#X obj 866 406 cnv 15 250 250 empty empty empty 20 12 0 14 -166441
-66577 0;
#X obj 552 586 hsl 128 15 -50 50 0 0 pitchshift pitchshift1 transposition
-2 -6 0 8 -195568 -1 -262144 6350 1;
#X obj 955 642 bng 8 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
-1;
#X obj 1018 634 bng 8 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
-1;
#X obj 1027 574 bng 8 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
-1;
#X obj 978 546 bng 8 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
-1;
#X obj 927 573 bng 8 250 50 0 empty empty empty 0 -6 0 8 -258699 -262144
-1;
#X obj 998 523 bng 8 250 50 0 empty empty empty 0 -6 0 8 -241291 -262144
-1;
#X obj 1041 558 bng 8 250 50 0 empty empty empty 0 -6 0 8 -241291 -262144
-1;
#X obj 1082 487 bng 8 250 50 0 empty empty empty 0 -6 0 8 -241291 -262144
-1;
#X obj 1061 456 bng 8 250 50 0 empty empty empty 0 -6 0 8 -241291 -262144
-1;
#X obj 987 472 bng 8 250 50 0 empty empty empty 0 -6 0 8 -241291 -262144
-1;
#X obj 875 501 bng 8 250 50 0 empty empty empty 0 -6 0 8 -62784 -262144
-1;
#X obj 913 558 bng 8 250 50 0 empty empty empty 0 -6 0 8 -62784 -262144
-1;
#X obj 959 526 bng 8 250 50 0 empty empty empty 0 -6 0 8 -62784 -262144
-1;
#X obj 971 472 bng 8 250 50 0 empty empty empty 0 -6 0 8 -62784 -262144
-1;
#X obj 900 436 bng 8 250 50 0 empty empty empty 0 -6 0 8 -62784 -262144
-1;
#X obj 954 636 bng 15 250 50 0 empty 5a 6 0 -6 0 8 -258699 -262144
-1;
#X obj 1011 634 bng 15 250 50 0 empty 4a 5 0 -6 0 8 -258699 -262144
-1;
#X obj 1022 572 bng 15 250 50 0 empty 3a 3 0 -6 0 8 -258699 -262144
-1;
#X obj 975 545 bng 15 250 50 0 empty 2a 2 0 -6 0 8 -258699 -262144
-1;
#X obj 997 522 bng 15 250 50 0 empty 2c 2 0 -6 0 8 -241291 -262144
-1;
#X obj 1037 557 bng 15 250 50 0 empty 1c 1 0 -6 0 8 -241291 -262144
-1;
#X obj 1080 486 bng 15 250 50 0 empty 5c 6 0 -6 0 8 -241291 -262144
-1;
#X obj 1057 456 bng 15 250 50 0 empty 4c 5 0 -6 0 8 -241291 -262144
-1;
#X obj 985 472 bng 15 250 50 0 empty 3c 3 0 -6 0 8 -241291 -262144
-1;
#X obj 871 498 bng 15 250 50 0 empty 4b 5 0 -6 0 8 -62784 -262144 -1
;
#X obj 910 557 bng 15 250 50 0 empty 3b 3 0 -6 0 8 -62784 -262144 -1
;
#X obj 952 520 bng 15 250 50 0 empty 2b 2 0 -6 0 8 -62784 -262144 -1
;
#X obj 968 469 bng 15 250 50 0 empty 1b 1 0 -6 0 8 -62784 -262144 -1
;
#X obj 899 435 bng 15 250 50 0 empty 5b 6 0 -6 0 8 -62784 -262144 -1
;
#X obj 553 546 hsl 128 15 1 100 0 0 density density1 density -2 -6
0 8 -195568 -1 -262144 10134 1;
#X obj 553 627 hsl 128 15 6 50 0 0 range range1 melodic-range -2 -6
0 8 -195568 -1 -262144 2598 1;
#X obj 641 424 bng 15 250 50 0 listen empty listen 0 -6 0 8 -195568
-1 -262144;
#X obj 783 634 nbx 5 18 1 5000 1 0 empty pitchin Pitch 0 -10 0 10 -133184
-1 -262144 48 72;
#X obj 782 676 nbx 5 18 1 5000 1 0 empty sub Rhythmic-Subdivision 0
-10 0 10 -133184 -1 -262144 4 72;
#N canvas 27 22 1305 1001 guts 0;
#X obj -21 596 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 25 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 72 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 119 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 317 525 5 0 0 0 - - -;
#X obj 312 502 / 1000;
#X obj 261 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 307 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 652 291 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 38 525 5 0 0 0 - - -;
#X obj 34 502 / 1000;
#X obj 60 143 f;
#X obj 89 143 + 1;
#X floatatom 68 167 5 0 0 0 - - -;
#X obj 43 -3 f;
#X obj 72 -3 + 1;
#X msg 101 41 0;
#X floatatom 72 21 5 0 0 0 - - -;
#X obj 62 118 spigot;
#X floatatom 83 96 1 0 0 0 - - -;
#X msg 49 93 0;
#X msg 99 94 1;
#X obj 62 210 f;
#X obj 91 210 + 1;
#X msg 98 255 0;
#X floatatom 70 234 5 0 0 0 - - -;
#X msg 98 187 0;
#X obj 155 143 f;
#X obj 184 143 + 1;
#X floatatom 163 167 5 0 0 0 - - -;
#X obj 157 118 spigot;
#X floatatom 178 96 1 0 0 0 - - -;
#X msg 144 93 0;
#X msg 194 94 1;
#X obj 157 210 f;
#X obj 186 210 + 1;
#X msg 192 255 0;
#X floatatom 165 234 5 0 0 0 - - -;
#X msg 193 187 0;
#X obj 252 143 f;
#X obj 281 143 + 1;
#X floatatom 260 167 5 0 0 0 - - -;
#X obj 254 118 spigot;
#X floatatom 275 96 1 0 0 0 - - -;
#X msg 241 93 0;
#X msg 291 94 1;
#X obj 254 210 f;
#X obj 283 210 + 1;
#X msg 289 255 0;
#X floatatom 262 234 5 0 0 0 - - -;
#X msg 290 187 0;
#X obj 165 279 t b b;
#X obj 262 279 t b b;
#X obj 70 279 t b b;
#X obj 51 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 592 221 r node;
#X floatatom 592 246 5 0 0 0 - - -;
#X msg 592 268 set \$1;
#X msg 592 293 2;
#X obj -35 97 metro;
#X obj -50 -27 bng 15 250 50 0 empty start empty 0 -6 0 8 -24198 -1
-1;
#X msg -35 50 stop;
#X floatatom 0 74 5 0 0 0 - speed -;
#N canvas 635 137 809 730 output 0;
#X obj 338 160 t b;
#X obj 338 110 f;
#X obj 338 60 inlet;
#X text 344 29 mute;
#X obj 338 185 f;
#X msg 425 178 0;
#X msg 338 85 bang;
#X obj 338 135 moses 1;
#X obj 425 153 t b f;
#X obj 397 117 moses 1;
#X obj 83 148 dbtorms;
#X obj 397 92 r master-lvl;
#X obj 83 42 r master-lvl;
#X obj 338 210 s master-lvl;
#X obj 22 181 inlet~;
#X obj 199 41 inlet;
#X text 199 18 level;
#X obj 199 100 s master-lvl;
#X msg 96 65 set \$1;
#X obj 99 95 outlet;
#X msg 214 64 \; pd dsp 1;
#X obj 83 194 line~;
#X obj 22 212 *~;
#X obj 22 349 dac~;
#X obj 83 171 pack 0 50;
#X text 20 158 audio;
#X text 93 110 show level;
#X obj 88 269 send~ mlabtrack3;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 22 0 27 0;
#X connect 24 0 21 0;
#X restore 1074 743 pd output;
#X obj 1073 714 receive~ melody;
#X floatatom 1015 726 5 0 0 2 volume volume -;
#X obj 448 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 493 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 539 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 583 587 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 504 525 5 0 0 0 - - -;
#X obj 499 502 / 1000;
#X obj 516 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1038 441 route 1 2 3 5 6;
#X obj -24 631 + 2;
#X msg -24 654 2;
#X obj -30 565 moses;
#X obj 15 565 moses;
#X obj 60 565 moses;
#X obj 105 565 moses;
#X obj 436 564 moses;
#X obj 481 564 moses;
#X obj 526 564 moses;
#X obj 571 564 moses;
#X obj 607 168 + 12;
#X obj 662 168 - 12;
#X floatatom 70 326 5 0 0 2 melodic-variation diatonic -;
#X obj -14 -27 bng 15 250 50 0 empty stop empty 0 -6 0 8 -258699 -1
-1;
#X obj 15 479 random 6000;
#X obj 479 479 random 6000;
#X obj 165 587 bng 20 250 50 0 rootswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 209 588 bng 20 250 50 0 rootswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 206 631 - 2;
#X msg 160 654 5;
#X msg 205 654 2;
#X obj 150 565 moses;
#X obj 195 565 moses;
#X obj 161 631 + 3;
#X obj 23 631 + 4;
#X msg 68 654 5;
#X msg 116 654 6;
#X msg 23 654 3;
#X obj 68 631 - 5;
#X obj 116 631 - 3;
#X obj -46 356 / 60;
#X obj -1 356 / 30;
#X obj 44 356 / 20;
#X obj 89 355 / 15;
#X obj 134 355 / 12;
#X obj 178 356 / 10;
#X obj 292 479 random 1000;
#X obj 349 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 394 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 259 632 - 2;
#X msg 259 655 1;
#X obj 302 632 + 2;
#X msg 302 655 3;
#X obj 347 632 + 5;
#X msg 347 655 5;
#X obj 389 632 - 5;
#X msg 389 655 6;
#X obj 443 631 - 4;
#X msg 443 654 1;
#X obj 491 631 - 2;
#X msg 491 655 2;
#X obj 533 631 + 3;
#X msg 532 654 5;
#X obj 580 631 + 5;
#X msg 579 655 6;
#X obj 624 587 bng 20 250 50 0 thirdswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 672 585 bng 20 250 50 0 thirdswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X msg 668 654 2;
#X obj 616 564 moses;
#X obj 661 563 moses;
#X obj 620 632 - 3;
#X msg 619 655 6;
#X obj 669 630 + 2;
#X obj 822 286 route 1 2 3 5 6;
#X obj 1076 239 spigot;
#X floatatom 1119 219 1 0 0 0 - - -;
#X msg 1085 216 0;
#X msg 1135 217 1;
#X obj 949 239 spigot;
#X floatatom 990 219 1 0 0 0 - - -;
#X msg 956 216 0;
#X msg 1006 217 1;
#X obj 822 239 spigot;
#X floatatom 865 219 1 0 0 0 - - -;
#X msg 831 216 0;
#X msg 885 216 1;
#X obj 822 312 bng 15 250 50 0 1a empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 845 312 bng 15 250 50 0 2a empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 868 312 bng 15 250 50 0 3a empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 891 312 bng 15 250 50 0 4a empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 914 312 bng 15 250 50 0 5a empty empty 0 -6 0 8 -262144 -1 -1
;
#N canvas 171 22 1097 958 sampler 0;
#X msg 253 7 bang;
#X obj 253 35 delay 5;
#X text 685 244 end of note;
#N canvas 459 46 740 513 samples 0;
#N canvas 0 22 450 300 graph1 0;
#X array sample1 176403 float 0;
#X coords 0 1.02 176403 -1.02 200 130 1;
#X restore 262 41 graph;
#X restore 29 277 pd samples;
#N canvas 424 117 725 803 playback 0;
#X obj 37 79 line~;
#X obj 56 271 line~;
#X obj 37 302 *~;
#X obj 56 242 r cutoff;
#X obj 37 50 r phase;
#X obj 37 626 outlet~;
#X obj 37 598 hip~ 5;
#X obj 55 338 r envelope;
#X obj 55 396 dbtorms;
#X obj 55 367 unpack;
#X obj 55 425 sqrt;
#X obj 55 454 sqrt;
#X obj 55 482 line~;
#X obj 37 569 *~;
#X obj 55 511 *~;
#X obj 55 540 *~;
#X text 107 51 messages to the phase generating line~;
#X text 116 270 line~ for de-clicking;
#X text 156 341 The envelope generator. Rather than sending our message
straight to the line~ we unpack it in order to fool with the amplitude
field.;
#X text 126 397 convert amplitude to linear units.;
#X text 121 426 take the fourth root. This because we want to raies
the line~'s output to the 4th power afterward. This is an inexpensive
way to give the rise and decay a more natural sounding evolution than
just a straight line.;
#X text 94 514 square the output twice to get the fourth power.;
#X obj 36 211 tabread4~ sample1;
#X connect 0 0 22 0;
#X connect 1 0 2 1;
#X connect 2 0 13 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 12 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 0 14 1;
#X connect 13 0 6 0;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 13 1;
#X connect 22 0 2 0;
#X restore 68 516 pd playback;
#X text 641 25 ARGUMENTS FOR NOTES:;
#X text 662 53 pitch in halftones;
#X text 662 77 amplitude (dB);
#X text 662 125 sample number;
#X text 662 101 duration (msec);
#X text 662 149 start location (msec);
#X text 662 173 rise time (msec);
#X text 662 197 decay time (msec);
#X obj 359 62 unpack 0 0 0 0 0 0 0;
#X obj 517 168 f;
#X obj 452 142 f;
#X obj 383 142 f;
#X obj 346 142 f;
#X obj 314 142 f;
#X obj 220 142 f;
#X obj 220 169 mtof;
#X obj 220 197 / 261.62;
#X obj 220 224 * 4.41e+08;
#X obj 220 252 +;
#X obj 485 142 delay;
#X obj 314 312 pack 0 0 0 0 0;
#X obj 253 62 t b b b;
#X text 500 345 This starts the note \, sending to "receives" in the
playback subptach. The new receive "envelope" is an amplitude control
in parallel with the cutoff control. The "sample-number" switches the
tabread4~ between tables.;
#X msg 152 44 \; pd dsp 1 \; cutoff 0 5;
#X obj 383 197 + 1;
#X msg 517 196 \; envelope 0 \$1;
#X msg 605 548 48;
#X obj 383 169 * 44.1;
#X text 6 109 transposition works;
#X text 6 133 by altering the phase;
#X text 6 181 The mtof and / 261;
#X text 6 205 calculate speed change;
#X text 6 229 considering 60 as unity.;
#X text 6 157 target ($4 below right.);
#X text 452 302 combine amplitude \, rise time \, start phase \, end
phase \, and sample number in one message;
#X text 799 759 updated for Pd version 0.33;
#X msg 420 546 60 100 600 1 0 0 900;
#X obj 29 407 loadbang;
#X msg 314 340 \; envelope 0 \, \$1 \$2 \; phase \$3 \, \$4 1e+07 \;
cutoff 1 5 \;;
#X obj 76 18 inlet;
#X obj 466 19 inlet;
#X msg 605 429 set \$1;
#X obj 66 549 send~ melody;
#X obj 605 661 s mel;
#X obj 359 34 r mel;
#X obj 241 470 delay 500;
#X obj 67 680 soundfiler;
#X obj 66 625 openpanel;
#X msg 66 650 read \$1 sample1;
#X obj 67 598 r select;
#X obj 605 611 +;
#X floatatom 681 533 5 0 0 0 - pitchshift -;
#X obj 681 556 int;
#X floatatom 681 581 5 0 0 0 - - displaytrans;
#X connect 0 0 1 0;
#X connect 0 0 28 0;
#X connect 1 0 26 0;
#X connect 4 0 47 0;
#X connect 13 0 19 1;
#X connect 13 0 0 0;
#X connect 13 1 18 1;
#X connect 13 2 24 1;
#X connect 13 3 17 1;
#X connect 13 4 16 1;
#X connect 13 5 15 1;
#X connect 13 6 14 1;
#X connect 14 0 30 0;
#X connect 15 0 25 1;
#X connect 16 0 32 0;
#X connect 17 0 25 4;
#X connect 18 0 25 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 25 3;
#X connect 24 0 14 0;
#X connect 25 0 43 0;
#X connect 26 0 18 0;
#X connect 26 1 19 0;
#X connect 26 2 15 0;
#X connect 26 2 16 0;
#X connect 26 2 17 0;
#X connect 26 2 24 0;
#X connect 29 0 25 2;
#X connect 29 0 23 1;
#X connect 31 0 55 0;
#X connect 32 0 29 0;
#X connect 41 0 48 0;
#X connect 42 0 50 0;
#X connect 44 0 31 0;
#X connect 45 0 46 0;
#X connect 46 0 31 0;
#X connect 49 0 13 0;
#X connect 50 0 41 0;
#X connect 52 0 53 0;
#X connect 53 0 51 0;
#X connect 54 0 52 0;
#X connect 55 0 48 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 57 0 55 1;
#X restore 652 311 pd sampler;
#X floatatom 889 87 5 0 0 0 - - -;
#X msg 854 25 1;
#X msg 889 25 2;
#X msg 922 25 3;
#X obj 764 72 bng 15 250 50 0 empty rootswitch switch-from-root 0 -6
0 8 -262144 -1 -1;
#X obj 1092 73 bng 15 250 50 0 empty thirdswitch switch-from-3rd 0
-6 0 8 -262144 -1 -1;
#X obj 844 113 == 1;
#X obj 889 113 == 2;
#X obj 934 113 == 3;
#X obj 844 136 sel 1;
#X obj 889 136 sel 1;
#X obj 934 136 sel 1;
#X msg 889 60 set \$1;
#X floatatom 1029 88 5 0 0 0 - - -;
#X msg 994 26 1;
#X msg 1029 26 2;
#X msg 1062 26 3;
#X obj 984 114 == 1;
#X obj 1029 114 == 2;
#X obj 1074 114 == 3;
#X obj 984 137 sel 1;
#X obj 1029 137 sel 1;
#X obj 1074 137 sel 1;
#X msg 1029 61 set \$1;
#X floatatom 1006 171 5 0 0 0 - - -;
#X obj 885 196 sel 1;
#X obj 1006 196 sel 2;
#X obj 1135 196 sel 3;
#X obj 949 286 route 1 2 3 5 6;
#X obj 949 312 bng 15 250 50 0 1b empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 972 312 bng 15 250 50 0 2b empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 995 312 bng 15 250 50 0 3b empty empty 0 -6 0 8 -262144 -1 -1
;
#X obj 1018 312 bng 15 250 50 0 4b empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1041 312 bng 15 250 50 0 5b empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1076 286 route 1 2 3 5 6;
#X obj 1076 312 bng 15 250 50 0 1c empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1099 312 bng 15 250 50 0 2c empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1122 312 bng 15 250 50 0 3c empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1145 312 bng 15 250 50 0 4c empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 1168 312 bng 15 250 50 0 5c empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 822 263 f;
#X obj 1076 262 f;
#X obj 949 262 f;
#X obj 788 132 bng 15 250 50 0 empty resetdisplay empty 0 -6 0 8 -262144
-1 -1;
#X obj 788 196 t b b;
#X obj 743 311 f;
#X obj 500 406 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 330 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 762 240 set \$1;
#X msg 762 264 48;
#X floatatom 762 289 5 0 0 0 - - -;
#X obj 653 219 t b b b;
#X obj 340 143 f;
#X obj 369 143 + 1;
#X floatatom 348 167 5 0 0 0 - - -;
#X obj 342 118 spigot;
#X floatatom 363 96 1 0 0 0 - - -;
#X msg 329 93 0;
#X msg 379 94 1;
#X obj 342 210 f;
#X obj 371 210 + 1;
#X msg 378 255 0;
#X floatatom 350 234 5 0 0 0 - - -;
#X msg 378 187 0;
#X obj 428 143 f;
#X obj 457 143 + 1;
#X floatatom 436 167 5 0 0 0 - - -;
#X obj 430 118 spigot;
#X floatatom 451 96 1 0 0 0 - - -;
#X msg 417 93 0;
#X msg 467 94 1;
#X obj 430 210 f;
#X obj 459 210 + 1;
#X msg 465 255 0;
#X floatatom 438 234 5 0 0 0 - - -;
#X msg 466 187 0;
#X obj 515 143 f;
#X obj 544 143 + 1;
#X floatatom 523 167 5 0 0 0 - - -;
#X obj 517 118 spigot;
#X floatatom 538 96 1 0 0 0 - - -;
#X msg 504 93 0;
#X msg 554 94 1;
#X obj 517 210 f;
#X obj 546 210 + 1;
#X msg 552 255 0;
#X floatatom 525 234 5 0 0 0 - - -;
#X msg 553 187 0;
#X obj 438 279 t b b;
#X obj 525 279 t b b;
#X obj 350 279 t b b;
#X obj 37 41 sel 420;
#X obj 34 187 sel 210;
#X obj 132 187 sel 140;
#X obj 227 187 sel 105;
#X obj 324 187 sel 84;
#X obj 413 187 sel 70;
#X obj 501 187 sel 60;
#X obj 52 255 sel 3;
#X obj 149 255 sel 4;
#X obj 244 255 sel 5;
#X obj 332 255 sel 6;
#X obj 422 255 sel 7;
#X obj 507 255 sel 8;
#X obj 454 337 moses;
#X floatatom 504 337 5 0 0 2 density density -;
#X obj 306 314 t b b;
#X obj 362 317 random 100;
#X obj 500 381 spigot;
#X floatatom 543 360 1 0 0 0 - - -;
#X msg 509 357 0;
#X msg 559 358 1;
#X obj 162 455 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 162 475 random 2;
#X obj 162 500 sel 0;
#X obj 162 525 bng 15 250 50 0 rootswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 197 526 bng 15 250 50 0 rootswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 621 456 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 621 476 random 2;
#X obj 621 501 sel 0;
#X obj 621 526 bng 15 250 50 0 thirdswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 656 527 bng 15 250 50 0 thirdswitch empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 607 143 moses;
#X obj 654 143 moses;
#X floatatom 708 29 5 0 0 0 - - -;
#X obj 689 52 +;
#X obj 642 52 -;
#X floatatom 642 -22 5 0 0 2 melodic-range range -;
#X obj 642 0 t b f;
#X floatatom 689 101 5 0 0 0 - - -;
#X obj 642 76 max 1;
#X floatatom 642 101 5 0 0 0 - - -;
#X msg 642 25 60;
#X obj 652 264 r listen;
#X obj 1080 675 s node \$1;
#X obj -24 609 f;
#X obj 23 609 f;
#X obj 69 609 f;
#X obj 116 609 f;
#X obj 206 609 f;
#X obj 161 609 f;
#X obj 259 610 f;
#X obj 302 610 f;
#X obj 347 610 f;
#X obj 248 564 moses;
#X obj 293 565 moses;
#X obj 338 565 moses;
#X obj 383 566 moses;
#X obj 389 610 f;
#X floatatom -29 545 5 0 0 0 - dia1 -;
#X floatatom 15 545 5 0 0 0 - dia2 -;
#X floatatom 60 545 5 0 0 0 - dia3 -;
#X floatatom 105 545 5 0 0 0 - dia4 -;
#X floatatom 150 545 5 0 0 0 - dia5 -;
#X floatatom 195 545 5 0 0 0 - dia6 -;
#X floatatom -46 379 5 0 0 0 - - dia1;
#X floatatom -1 379 5 0 0 0 - - dia2;
#X floatatom 44 379 5 0 0 0 - - dia3;
#X floatatom 89 379 5 0 0 0 - - dia4;
#X floatatom 134 379 5 0 0 0 - - dia5;
#X floatatom 179 380 5 0 0 0 - - dia6;
#X floatatom 248 545 5 0 0 0 - moses1 -;
#X floatatom 293 545 5 0 0 0 - moses2 -;
#X floatatom 338 545 5 0 0 0 - moses3 -;
#X floatatom 383 545 5 0 0 0 - moses4 -;
#X obj 443 609 f;
#X obj 491 609 f;
#X obj 533 609 f;
#X obj 580 609 f;
#X floatatom 117 434 5 0 0 0 - pitchout -;
#X floatatom 99 680 5 0 0 0 - - -;
#X obj 621 610 f;
#X obj 669 608 f;
#X floatatom 436 544 5 0 0 0 - dia1 -;
#X floatatom 481 545 5 0 0 0 - dia2 -;
#X floatatom 526 545 5 0 0 0 - dia3 -;
#X floatatom 571 544 5 0 0 0 - dia4 -;
#X floatatom 616 544 5 0 0 0 - dia5 -;
#X floatatom 661 544 5 0 0 0 - dia6 -;
#X floatatom 785 525 5 0 0 0 - - -;
#X obj 780 502 / 1000;
#X obj 729 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 775 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 760 479 random 1000;
#X obj 817 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 862 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 727 655 1;
#X msg 857 655 6;
#X obj 798 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 727 610 f;
#X obj 770 610 f;
#X obj 815 610 f;
#X obj 716 564 moses;
#X obj 761 565 moses;
#X obj 806 565 moses;
#X obj 851 566 moses;
#X obj 857 610 f;
#X floatatom 716 544 5 0 0 0 - moses1 -;
#X floatatom 761 545 5 0 0 0 - moses2 -;
#X floatatom 806 545 5 0 0 0 - moses3 -;
#X floatatom 851 546 5 0 0 0 - moses4 -;
#X msg 770 655 2;
#X msg 815 655 3;
#X floatatom 974 526 5 0 0 0 - - -;
#X obj 969 503 / 1000;
#X obj 918 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 964 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 949 480 random 1000;
#X obj 1006 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 1049 588 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144
-1 -1;
#X msg 916 655 1;
#X obj 987 461 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 916 610 f;
#X obj 959 610 f;
#X obj 1004 610 f;
#X obj 905 565 moses;
#X obj 950 565 moses;
#X obj 995 565 moses;
#X obj 1040 566 moses;
#X obj 1046 610 f;
#X floatatom 905 545 5 0 0 0 - moses1 -;
#X floatatom 950 545 5 0 0 0 - moses2 -;
#X floatatom 995 545 5 0 0 0 - moses3 -;
#X floatatom 1040 545 5 0 0 0 - moses4 -;
#X msg 959 655 2;
#X msg 1004 655 3;
#X obj 916 632 + 3;
#X obj 959 632 + 5;
#X obj 1004 632 - 5;
#X obj 1046 632 - 2;
#X msg 1046 655 5;
#X floatatom 607 122 5 0 0 0 - pitchout -;
#X floatatom 647 198 5 0 0 0 - - -;
#X floatatom 762 218 5 0 0 0 - pitchout -;
#X floatatom -50 152 5 0 0 0 - - pitchin;
#X obj 45 -25 nbx 5 12 1 5000 1 0 pitchout pitchin Pitch 0 -10 0 8
-133184 -1 -1 48 72;
#N canvas 0 22 1107 749 loadbang 0;
#X obj 284 133 loadbang;
#X obj 408 501 s speed1;
#X msg 407 419 80;
#X obj 407 446 s volume1;
#X obj 406 231 s pitchshift1;
#X msg 406 206 0;
#X obj 406 392 s variation1;
#X msg 408 473 1.5;
#X obj 407 286 s diatonic1;
#X obj 406 339 s density1;
#X msg 406 153 15;
#X obj 406 178 s range1;
#X msg 407 260 60;
#X msg 406 365 6.2;
#X msg 406 314 80;
#X obj -8 288 s moses1;
#X obj 62 288 s moses2;
#X obj 132 288 s moses3;
#X obj 203 288 s moses4;
#X msg -8 264 0.25;
#X msg 62 264 0.5;
#X msg 132 264 0.75;
#X msg 203 264 1;
#X obj 280 307 bng 15 250 50 0 resetdisplay empty empty 0 -6 0 8 -262144
-1 -1;
#X obj 302 307 bng 15 250 50 0 subinit empty empty 0 -6 0 8 -262144
-1 -1;
#X connect 0 0 7 0;
#X connect 0 0 2 0;
#X connect 0 0 13 0;
#X connect 0 0 12 0;
#X connect 0 0 5 0;
#X connect 0 0 14 0;
#X connect 0 0 10 0;
#X connect 0 0 22 0;
#X connect 0 0 21 0;
#X connect 0 0 20 0;
#X connect 0 0 19 0;
#X connect 0 0 23 0;
#X connect 0 0 24 0;
#X connect 2 0 3 0;
#X connect 5 0 4 0;
#X connect 7 0 1 0;
#X connect 10 0 11 0;
#X connect 12 0 8 0;
#X connect 13 0 6 0;
#X connect 14 0 9 0;
#X connect 19 0 15 0;
#X connect 20 0 16 0;
#X connect 21 0 17 0;
#X connect 22 0 18 0;
#X restore 852 352 pd loadbang;
#X floatatom 329 681 5 0 0 0 - - -;
#X floatatom 561 681 5 0 0 0 - - -;
#X floatatom 798 682 5 0 0 0 - - -;
#X floatatom 987 683 5 0 0 0 - - -;
#X floatatom 319 434 5 0 0 0 - pitchout -;
#X floatatom 565 434 5 0 0 0 - pitchout -;
#X floatatom 783 434 5 0 0 0 - pitchout -;
#X floatatom 975 434 5 0 0 0 - pitchout -;
#X msg -50 128 60;
#X obj 727 632 + 5;
#X obj 770 632 - 5;
#X obj 815 632 - 3;
#X obj 857 632 + 2;
#X floatatom 561 706 5 0 0 0 - - pitchin;
#X text 203 50 Chooses rhythmic subdivision;
#X text 881 -2 Sends signals to display;
#X text 24 400 Chooses intervals from pentatonic scale degree:;
#X text 111 414 1 (root);
#X text 332 416 2;
#X text 578 416 3;
#X text 798 415 5;
#X text 989 408 6;
#X text 637 712 Example of scale structure: C D E G A;
#X text 861 729 linked by "E" to:;
#X text 861 745 E F# G# B C#;
#X text 860 761 linked by "G#" to:;
#X text 860 777 G#(Ab) Bb C Eb F;
#X text 860 793 linked by "C" to first scale;
#X text 638 810 The display is a visual representation of the three
scales \, with the common tones next to each other.;
#X text 613 731 (there are 3 other possible;
#X text 623 747 structures \, transposing;
#X text 625 762 up in 1/2 steps);
#X floatatom 481 48 5 0 0 0 - - sub;
#X obj 97 -25 nbx 5 12 1 5000 1 0 empty sub Subdivision 0 -10 0 8 -133184
-1 -1 4 72;
#X floatatom -51 247 5 0 0 0 - - displayspeed;
#X obj -51 199 pow -1;
#X obj -51 223 * 5;
#X floatatom -47 454 5 0 0 0 - - displayswitch;
#X obj -47 406 pow -1;
#X obj -47 430 * 90;
#X obj 717 -23 * 2;
#X floatatom 717 3 5 0 0 0 - - displayrange;
#X obj 239 4 sel;
#X floatatom 258 -16 2 0 0 0 - subdiv2 -;
#X obj 271 4 sel;
#X floatatom 290 -16 2 0 0 0 - subdiv3 -;
#X obj 305 4 sel;
#X floatatom 324 -16 2 0 0 0 - subdiv4 -;
#X obj 337 4 sel;
#X floatatom 356 -16 2 0 0 0 - subdiv5 -;
#X obj 369 5 sel;
#X floatatom 389 -16 2 0 0 0 - subdiv6 -;
#X floatatom 421 -16 2 0 0 0 - subdiv7 -;
#X obj 59 65 random 6;
#X obj 402 5 sel;
#X obj 442 6 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 239 28 2;
#X msg 272 28 3;
#X msg 305 28 4;
#X msg 338 28 5;
#X msg 370 28 6;
#X msg 401 29 7;
#X obj 209 -16 + 2;
#X text 160 67 (any combination of 2 \, 3 \, 4 \, 5 \, 6 or 7);
#X text -20 713 PENTAMACHINE: Creates melodic lines based on an array
of three pentatonic scales major thirds apart from each other \, linked
by common tones at the root and third. This makes a twelve-tone generator
(15 tones with 3 common tones) with the possibility of a built-in diatonic
structure. The melodic lines switch from one scale to another through
the common tones. The probability of this switch is selected with the
"scale-switching" control.;
#X text -20 850 The "rhythmic-subdivision" control allows the user
to pick different rhythmic values for the notes. The machine randomly
chooses between the selected values.;
#X connect 0 0 291 0;
#X connect 1 0 292 0;
#X connect 2 0 293 0;
#X connect 3 0 294 0;
#X connect 4 0 300 0;
#X connect 5 0 4 0;
#X connect 6 0 297 0;
#X connect 7 0 298 0;
#X connect 8 0 155 0;
#X connect 9 0 76 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 11 1;
#X connect 12 0 13 0;
#X connect 12 0 248 0;
#X connect 14 0 15 0;
#X connect 15 0 14 1;
#X connect 15 0 17 0;
#X connect 15 0 247 0;
#X connect 16 0 14 0;
#X connect 18 0 11 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 19 0;
#X connect 22 0 23 0;
#X connect 23 0 22 1;
#X connect 23 0 25 0;
#X connect 23 0 254 0;
#X connect 24 0 22 0;
#X connect 26 0 11 0;
#X connect 27 0 28 0;
#X connect 28 0 27 1;
#X connect 28 0 29 0;
#X connect 28 0 249 0;
#X connect 30 0 27 0;
#X connect 31 0 30 1;
#X connect 32 0 31 0;
#X connect 33 0 31 0;
#X connect 34 0 35 0;
#X connect 35 0 34 1;
#X connect 35 0 37 0;
#X connect 35 0 255 0;
#X connect 36 0 34 0;
#X connect 38 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 39 1;
#X connect 40 0 41 0;
#X connect 40 0 250 0;
#X connect 42 0 39 0;
#X connect 43 0 42 1;
#X connect 44 0 43 0;
#X connect 45 0 43 0;
#X connect 46 0 47 0;
#X connect 47 0 46 1;
#X connect 47 0 49 0;
#X connect 47 0 256 0;
#X connect 48 0 46 0;
#X connect 50 0 39 0;
#X connect 51 0 36 0;
#X connect 51 1 32 0;
#X connect 52 0 48 0;
#X connect 52 1 44 0;
#X connect 53 0 24 0;
#X connect 53 1 20 0;
#X connect 54 0 88 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 56 0 197 1;
#X connect 56 0 198 1;
#X connect 56 0 196 1;
#X connect 57 0 58 0;
#X connect 58 0 73 0;
#X connect 59 0 18 0;
#X connect 59 0 30 0;
#X connect 59 0 42 0;
#X connect 59 0 14 0;
#X connect 59 0 211 0;
#X connect 59 0 223 0;
#X connect 59 0 235 0;
#X connect 60 0 59 0;
#X connect 60 0 401 0;
#X connect 61 0 59 0;
#X connect 62 0 59 1;
#X connect 62 0 428 0;
#X connect 64 0 63 0;
#X connect 65 0 63 1;
#X connect 66 0 321 0;
#X connect 67 0 322 0;
#X connect 68 0 323 0;
#X connect 69 0 324 0;
#X connect 70 0 80 0;
#X connect 71 0 70 0;
#X connect 72 0 89 0;
#X connect 73 0 54 0;
#X connect 73 1 203 0;
#X connect 73 2 72 0;
#X connect 73 3 344 0;
#X connect 73 4 367 0;
#X connect 74 0 75 0;
#X connect 74 0 326 0;
#X connect 75 0 290 0;
#X connect 76 0 0 0;
#X connect 76 1 77 0;
#X connect 77 0 1 0;
#X connect 77 1 78 0;
#X connect 78 0 2 0;
#X connect 78 1 79 0;
#X connect 79 0 3 0;
#X connect 79 1 95 0;
#X connect 80 0 66 0;
#X connect 80 1 81 0;
#X connect 81 0 67 0;
#X connect 81 1 82 0;
#X connect 82 0 68 0;
#X connect 82 1 83 0;
#X connect 83 0 69 0;
#X connect 83 1 132 0;
#X connect 84 0 388 0;
#X connect 85 0 388 0;
#X connect 86 0 104 0;
#X connect 86 0 105 0;
#X connect 86 0 106 0;
#X connect 86 0 107 0;
#X connect 86 0 108 0;
#X connect 86 0 109 0;
#X connect 86 0 431 0;
#X connect 87 0 61 0;
#X connect 88 0 10 0;
#X connect 89 0 71 0;
#X connect 90 0 296 0;
#X connect 91 0 295 0;
#X connect 92 0 94 0;
#X connect 92 0 326 0;
#X connect 93 0 290 0;
#X connect 94 0 290 0;
#X connect 95 0 90 0;
#X connect 95 1 96 0;
#X connect 96 0 91 0;
#X connect 96 1 268 0;
#X connect 97 0 93 0;
#X connect 97 0 326 0;
#X connect 98 0 101 0;
#X connect 98 0 326 0;
#X connect 99 0 290 0;
#X connect 100 0 290 0;
#X connect 101 0 290 0;
#X connect 102 0 99 0;
#X connect 102 0 326 0;
#X connect 103 0 100 0;
#X connect 103 0 326 0;
#X connect 104 0 311 0;
#X connect 105 0 312 0;
#X connect 106 0 313 0;
#X connect 107 0 314 0;
#X connect 108 0 315 0;
#X connect 109 0 316 0;
#X connect 110 0 5 0;
#X connect 111 0 299 0;
#X connect 112 0 304 0;
#X connect 113 0 114 0;
#X connect 113 0 393 0;
#X connect 114 0 290 0;
#X connect 115 0 116 0;
#X connect 115 0 393 0;
#X connect 116 0 290 0;
#X connect 117 0 118 0;
#X connect 117 0 393 0;
#X connect 118 0 290 0;
#X connect 119 0 120 0;
#X connect 119 0 393 0;
#X connect 120 0 290 0;
#X connect 121 0 122 0;
#X connect 121 0 394 0;
#X connect 122 0 290 0;
#X connect 123 0 124 0;
#X connect 123 0 394 0;
#X connect 124 0 290 0;
#X connect 125 0 126 0;
#X connect 125 0 394 0;
#X connect 126 0 290 0;
#X connect 127 0 128 0;
#X connect 127 0 394 0;
#X connect 128 0 290 0;
#X connect 129 0 327 0;
#X connect 130 0 328 0;
#X connect 131 0 290 0;
#X connect 132 0 129 0;
#X connect 132 1 133 0;
#X connect 133 0 130 0;
#X connect 133 1 273 0;
#X connect 134 0 135 0;
#X connect 134 0 394 0;
#X connect 135 0 290 0;
#X connect 136 0 131 0;
#X connect 136 0 394 0;
#X connect 137 0 150 0;
#X connect 137 1 151 0;
#X connect 137 2 152 0;
#X connect 137 3 153 0;
#X connect 137 4 154 0;
#X connect 138 0 197 0;
#X connect 139 0 138 1;
#X connect 140 0 139 0;
#X connect 141 0 139 0;
#X connect 142 0 198 0;
#X connect 143 0 142 1;
#X connect 144 0 143 0;
#X connect 145 0 143 0;
#X connect 146 0 196 0;
#X connect 147 0 146 1;
#X connect 148 0 147 0;
#X connect 149 0 147 0;
#X connect 156 0 162 0;
#X connect 156 0 163 0;
#X connect 156 0 164 0;
#X connect 157 0 168 0;
#X connect 157 0 180 0;
#X connect 157 0 179 0;
#X connect 158 0 168 0;
#X connect 158 0 180 0;
#X connect 158 0 179 0;
#X connect 159 0 168 0;
#X connect 159 0 180 0;
#X connect 159 0 179 0;
#X connect 160 0 156 0;
#X connect 161 0 169 0;
#X connect 162 0 165 0;
#X connect 163 0 166 0;
#X connect 164 0 167 0;
#X connect 165 0 158 0;
#X connect 166 0 159 0;
#X connect 167 0 157 0;
#X connect 168 0 156 0;
#X connect 169 0 173 0;
#X connect 169 0 174 0;
#X connect 169 0 175 0;
#X connect 170 0 179 0;
#X connect 170 0 180 0;
#X connect 170 0 168 0;
#X connect 171 0 179 0;
#X connect 171 0 180 0;
#X connect 171 0 168 0;
#X connect 172 0 179 0;
#X connect 172 0 180 0;
#X connect 172 0 168 0;
#X connect 173 0 176 0;
#X connect 174 0 177 0;
#X connect 175 0 178 0;
#X connect 176 0 172 0;
#X connect 177 0 170 0;
#X connect 178 0 171 0;
#X connect 179 0 169 0;
#X connect 180 0 181 0;
#X connect 180 0 182 0;
#X connect 180 0 183 0;
#X connect 181 0 149 0;
#X connect 181 0 144 0;
#X connect 181 0 140 0;
#X connect 182 0 148 0;
#X connect 182 0 140 0;
#X connect 182 0 145 0;
#X connect 183 0 148 0;
#X connect 183 0 144 0;
#X connect 183 0 141 0;
#X connect 184 0 185 0;
#X connect 184 1 186 0;
#X connect 184 2 187 0;
#X connect 184 3 188 0;
#X connect 184 4 189 0;
#X connect 190 0 191 0;
#X connect 190 1 192 0;
#X connect 190 2 193 0;
#X connect 190 3 194 0;
#X connect 190 4 195 0;
#X connect 196 0 137 0;
#X connect 197 0 190 0;
#X connect 198 0 184 0;
#X connect 199 0 200 0;
#X connect 200 0 157 0;
#X connect 200 0 170 0;
#X connect 200 1 148 0;
#X connect 200 1 144 0;
#X connect 200 1 140 0;
#X connect 201 0 155 1;
#X connect 202 0 58 0;
#X connect 202 0 207 0;
#X connect 203 0 110 0;
#X connect 204 0 205 0;
#X connect 205 0 206 0;
#X connect 206 0 201 1;
#X connect 207 0 8 0;
#X connect 207 0 138 0;
#X connect 207 0 142 0;
#X connect 207 0 146 0;
#X connect 207 1 201 0;
#X connect 207 2 205 0;
#X connect 208 0 209 0;
#X connect 209 0 208 1;
#X connect 209 0 210 0;
#X connect 209 0 251 0;
#X connect 211 0 208 0;
#X connect 212 0 211 1;
#X connect 213 0 212 0;
#X connect 214 0 212 0;
#X connect 215 0 216 0;
#X connect 216 0 215 1;
#X connect 216 0 218 0;
#X connect 216 0 257 0;
#X connect 217 0 215 0;
#X connect 219 0 208 0;
#X connect 220 0 221 0;
#X connect 221 0 220 1;
#X connect 221 0 222 0;
#X connect 221 0 252 0;
#X connect 223 0 220 0;
#X connect 224 0 223 1;
#X connect 225 0 224 0;
#X connect 226 0 224 0;
#X connect 227 0 228 0;
#X connect 228 0 227 1;
#X connect 228 0 230 0;
#X connect 228 0 258 0;
#X connect 229 0 227 0;
#X connect 231 0 220 0;
#X connect 232 0 233 0;
#X connect 233 0 232 1;
#X connect 233 0 234 0;
#X connect 233 0 253 0;
#X connect 235 0 232 0;
#X connect 236 0 235 1;
#X connect 237 0 236 0;
#X connect 238 0 236 0;
#X connect 239 0 240 0;
#X connect 240 0 239 1;
#X connect 240 0 242 0;
#X connect 240 0 259 0;
#X connect 241 0 239 0;
#X connect 243 0 232 0;
#X connect 244 0 229 0;
#X connect 244 1 225 0;
#X connect 245 0 241 0;
#X connect 245 1 237 0;
#X connect 246 0 217 0;
#X connect 246 1 213 0;
#X connect 247 0 16 0;
#X connect 247 0 446 0;
#X connect 248 0 26 0;
#X connect 248 0 22 0;
#X connect 248 0 262 0;
#X connect 249 0 38 0;
#X connect 249 0 34 0;
#X connect 249 0 262 0;
#X connect 250 0 50 0;
#X connect 250 0 46 0;
#X connect 250 0 262 0;
#X connect 251 0 219 0;
#X connect 251 0 215 0;
#X connect 251 0 262 0;
#X connect 252 0 231 0;
#X connect 252 0 227 0;
#X connect 252 0 262 0;
#X connect 253 0 243 0;
#X connect 253 0 239 0;
#X connect 253 0 262 0;
#X connect 254 0 53 0;
#X connect 255 0 51 0;
#X connect 256 0 52 0;
#X connect 257 0 246 0;
#X connect 258 0 244 0;
#X connect 259 0 245 0;
#X connect 260 0 267 0;
#X connect 260 1 266 0;
#X connect 261 0 260 1;
#X connect 262 0 264 0;
#X connect 262 1 263 0;
#X connect 263 0 260 0;
#X connect 264 0 202 0;
#X connect 265 0 264 1;
#X connect 266 0 265 0;
#X connect 267 0 265 0;
#X connect 268 0 269 0;
#X connect 269 0 270 0;
#X connect 270 0 271 0;
#X connect 270 1 272 0;
#X connect 271 0 296 0;
#X connect 272 0 295 0;
#X connect 273 0 274 0;
#X connect 274 0 275 0;
#X connect 275 0 276 0;
#X connect 275 1 277 0;
#X connect 276 0 327 0;
#X connect 277 0 328 0;
#X connect 278 0 84 0;
#X connect 278 1 279 0;
#X connect 279 1 85 0;
#X connect 280 0 282 1;
#X connect 280 0 281 1;
#X connect 281 0 285 0;
#X connect 282 0 286 0;
#X connect 283 0 284 0;
#X connect 283 0 433 0;
#X connect 284 0 288 0;
#X connect 284 1 280 0;
#X connect 285 0 279 1;
#X connect 286 0 287 0;
#X connect 287 0 278 1;
#X connect 288 0 282 0;
#X connect 288 0 281 0;
#X connect 289 0 8 0;
#X connect 291 0 74 0;
#X connect 292 0 98 0;
#X connect 293 0 102 0;
#X connect 294 0 103 0;
#X connect 295 0 92 0;
#X connect 296 0 97 0;
#X connect 297 0 113 0;
#X connect 298 0 115 0;
#X connect 299 0 117 0;
#X connect 300 0 6 0;
#X connect 300 1 301 0;
#X connect 301 0 7 0;
#X connect 301 1 302 0;
#X connect 302 0 111 0;
#X connect 302 1 303 0;
#X connect 303 0 112 0;
#X connect 304 0 119 0;
#X connect 305 0 76 1;
#X connect 306 0 77 1;
#X connect 307 0 78 1;
#X connect 308 0 79 1;
#X connect 309 0 95 1;
#X connect 310 0 96 1;
#X connect 317 0 300 1;
#X connect 318 0 301 1;
#X connect 319 0 302 1;
#X connect 320 0 303 1;
#X connect 321 0 121 0;
#X connect 322 0 123 0;
#X connect 323 0 125 0;
#X connect 324 0 127 0;
#X connect 325 0 291 1;
#X connect 325 0 293 1;
#X connect 325 0 294 1;
#X connect 325 0 296 1;
#X connect 325 0 295 1;
#X connect 325 0 292 1;
#X connect 326 0 406 0;
#X connect 327 0 134 0;
#X connect 328 0 136 0;
#X connect 329 0 80 1;
#X connect 330 0 81 1;
#X connect 331 0 82 1;
#X connect 332 0 83 1;
#X connect 333 0 132 1;
#X connect 334 0 133 1;
#X connect 335 0 348 0;
#X connect 336 0 335 0;
#X connect 337 0 345 0;
#X connect 338 0 346 0;
#X connect 339 0 336 0;
#X connect 340 0 347 0;
#X connect 341 0 352 0;
#X connect 342 0 290 0;
#X connect 343 0 290 0;
#X connect 344 0 339 0;
#X connect 345 0 402 0;
#X connect 346 0 403 0;
#X connect 347 0 404 0;
#X connect 348 0 337 0;
#X connect 348 1 349 0;
#X connect 349 0 338 0;
#X connect 349 1 350 0;
#X connect 350 0 340 0;
#X connect 350 1 351 0;
#X connect 351 0 341 0;
#X connect 352 0 405 0;
#X connect 353 0 349 0;
#X connect 354 0 349 1;
#X connect 355 0 350 1;
#X connect 356 0 351 1;
#X connect 357 0 290 0;
#X connect 358 0 290 0;
#X connect 359 0 371 0;
#X connect 360 0 359 0;
#X connect 361 0 368 0;
#X connect 362 0 369 0;
#X connect 363 0 360 0;
#X connect 364 0 370 0;
#X connect 365 0 375 0;
#X connect 366 0 290 0;
#X connect 367 0 363 0;
#X connect 368 0 382 0;
#X connect 369 0 383 0;
#X connect 370 0 384 0;
#X connect 371 0 361 0;
#X connect 371 1 372 0;
#X connect 372 0 362 0;
#X connect 372 1 373 0;
#X connect 373 0 364 0;
#X connect 373 1 374 0;
#X connect 374 0 365 0;
#X connect 375 0 385 0;
#X connect 376 0 371 1;
#X connect 377 0 372 1;
#X connect 378 0 374 0;
#X connect 379 0 374 1;
#X connect 380 0 290 0;
#X connect 381 0 290 0;
#X connect 382 0 366 0;
#X connect 382 0 396 0;
#X connect 383 0 380 0;
#X connect 383 0 396 0;
#X connect 384 0 381 0;
#X connect 384 0 396 0;
#X connect 385 0 386 0;
#X connect 385 0 396 0;
#X connect 386 0 290 0;
#X connect 387 0 278 0;
#X connect 388 0 406 0;
#X connect 389 0 204 0;
#X connect 393 0 406 0;
#X connect 394 0 406 0;
#X connect 395 0 406 0;
#X connect 396 0 406 0;
#X connect 397 0 297 1;
#X connect 397 0 298 1;
#X connect 397 0 299 1;
#X connect 397 0 304 1;
#X connect 398 0 321 1;
#X connect 398 0 322 1;
#X connect 398 0 323 1;
#X connect 398 0 324 1;
#X connect 398 0 327 1;
#X connect 398 0 328 1;
#X connect 399 0 345 1;
#X connect 399 0 346 1;
#X connect 399 0 347 1;
#X connect 399 0 352 1;
#X connect 400 0 368 1;
#X connect 400 0 369 1;
#X connect 400 0 370 1;
#X connect 400 0 375 1;
#X connect 401 0 390 0;
#X connect 402 0 342 0;
#X connect 402 0 395 0;
#X connect 403 0 357 0;
#X connect 403 0 395 0;
#X connect 404 0 358 0;
#X connect 404 0 395 0;
#X connect 405 0 343 0;
#X connect 405 0 395 0;
#X connect 428 0 429 0;
#X connect 429 0 427 0;
#X connect 431 0 432 0;
#X connect 432 0 430 0;
#X connect 433 0 434 0;
#X connect 435 0 21 0;
#X connect 435 0 449 0;
#X connect 435 1 437 0;
#X connect 436 0 435 1;
#X connect 437 0 33 0;
#X connect 437 0 450 0;
#X connect 437 1 439 0;
#X connect 438 0 437 1;
#X connect 439 0 45 0;
#X connect 439 0 451 0;
#X connect 439 1 441 0;
#X connect 440 0 439 1;
#X connect 441 0 214 0;
#X connect 441 0 452 0;
#X connect 441 1 443 0;
#X connect 442 0 441 1;
#X connect 443 0 226 0;
#X connect 443 0 453 0;
#X connect 443 1 447 0;
#X connect 444 0 443 1;
#X connect 445 0 447 1;
#X connect 446 0 455 0;
#X connect 447 0 238 0;
#X connect 447 0 454 0;
#X connect 447 1 448 0;
#X connect 448 0 446 0;
#X connect 449 0 425 0;
#X connect 450 0 425 0;
#X connect 451 0 425 0;
#X connect 452 0 425 0;
#X connect 453 0 425 0;
#X connect 454 0 425 0;
#X connect 455 0 435 0;
#X restore 888 722 pd guts;
#X obj 690 468 nbx 5 15 1 5000 1 0 empty volume empty 0 -10 0 10 -133184
-1 -262144 82.3622 72;
#X obj 690 508 nbx 5 15 1 5000 0 0 empty displayspeed empty 0 -10 0
10 -133184 -1 -262144 3.33297 72;
#X obj 690 546 nbx 5 15 1 5000 1 0 empty density empty 0 -10 0 10 -133184
-1 -262144 79.9973 72;
#X obj 690 666 nbx 5 15 1 5000 1 0 empty displayswitch <-never-always->
-140 20 0 10 -133184 -1 -262144 1.4999 72;
#X obj 690 627 nbx 5 15 1 5000 0 0 empty displayrange rhythmic-subdivisions
-140 83 0 10 -133184 -1 -262144 30.0019 72;
#X obj 690 586 nbx 5 15 -5000 5000 0 0 empty displaytrans empty 0 -10
0 10 -133184 -1 -262144 0 72;
#X obj 911 693 tgl 15 0 subdiv2 empty 2 4 -6 0 10 -195568 -1 -262144
0 2;
#X obj 934 693 tgl 15 0 subdiv3 empty 3 4 -6 0 10 -195568 -1 -262144
0 3;
#X obj 956 693 tgl 15 0 subdiv4 subinit 4 4 -6 0 10 -195568 -1 -262144
4 4;
#X obj 979 693 tgl 15 0 subdiv5 empty 5 4 -6 0 10 -195568 -1 -262144
0 5;
#X obj 1001 693 tgl 15 0 subdiv6 empty 6 4 -6 0 10 -195568 -1 -262144
0 6;
#X obj 1024 693 tgl 15 0 subdiv7 empty 7 4 -6 0 10 -195568 -1 -262144
0 7;
#X obj 925 572 bng 15 250 50 0 empty 1a 1 0 -6 0 8 -258699 -262144
-1;
#X obj 1121 846 tabplay~ mlab;
#X obj 1118 938 *~;
#X floatatom 1179 892 5 0 0 0 - - -;
#X floatatom 1179 929 5 0 0 0 - - -;
#X obj 1179 909 dbtorms;
#X obj 1078 1036 dac~;
#X obj 1147 983 +~;
#X obj 1222 870 hsl 128 15 0 100 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 11500 1;
#X text 1222 888 volume controler;
#X obj 595 845 soundfiler;
#X floatatom 595 864 8 0 0 0 - - -;
#N canvas 0 22 450 300 graph5 0;
#X array mlab 79144 float 2;
#X coords 0 1 79144 -1 400 140 1;
#X restore 1050 185 graph;
#X msg 626 751 \; pd dsp 1 \;;
#X msg 704 751 \; pd dsp 0 \;;
#X obj 595 794 loadbang;
#X text 665 795 gives bang when this patch begins to run;
#X text 713 836 reads the located sound file into table;
#X obj 623 883 / 44.1;
#X floatatom 681 887 8 0 0 0 - - -;
#X text 658 863 amount of samples of the loaded sound file;
#X text 1167 830 from the target table;
#X text 1166 818 plays the audio file;
#X msg 805 886 \; beg range 0 \$1;
#X msg 921 889 \; dura range 0 \$1;
#X obj 908 1040 send~ mlabtrack1;
#X obj 1124 783 metro 2000;
#X obj 1119 760 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X msg 595 819 read -resize beat.wav mlab;
#X msg 201 543 read laaseri.wav table19;
#X floatatom 98 570 3 0 100 0 dB - -;
#X obj 150 615 bng 15 250 50 0 empty empty mute -38 7 0 12 -262144
-1 -1;
#X obj 69 655 output~;
#X msg 75 811 start;
#X msg 188 819 stop;
#X msg 266 805 open -bytes 3 record24.wav;
#X msg 316 835 open -bytes 4 record32.wav;
#X obj 317 939 writesf~ 3;
#X text 261 758 creates a 16bit wav file to record;
#X text 274 792 creates a 24bit wav file to record;
#X text 316 822 creates a 32bit wav file to record;
#X text 66 786 starts recording;
#X text 182 845 stops recording;
#X obj 422 855 receive~ mlabtrack1;
#X obj 423 885 receive~ mlabtrack2;
#X obj 443 929 receive~ mlabtrack3;
#X msg 198 774 open record1611.wav;
#X obj 75 709 send~ mlabtrack1;
#X connect 1 0 126 0;
#X connect 2 0 29 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 19 0;
#X connect 8 0 36 0;
#X connect 10 0 11 0;
#X connect 11 0 26 0;
#X connect 12 0 26 0;
#X connect 14 0 1 0;
#X connect 15 0 19 1;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 15 0;
#X connect 19 0 35 0;
#X connect 19 0 36 0;
#X connect 22 0 27 0;
#X connect 22 0 123 0;
#X connect 28 0 30 0;
#X connect 29 0 6 0;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 14 0;
#X connect 35 0 14 1;
#X connect 47 0 51 0;
#X connect 48 0 47 0;
#X connect 49 0 48 0;
#X connect 50 0 49 0;
#X connect 51 0 50 0;
#X connect 52 0 56 0;
#X connect 53 0 52 0;
#X connect 54 0 53 0;
#X connect 55 0 54 0;
#X connect 56 0 55 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 61 0 57 0;
#X connect 95 0 96 0;
#X connect 96 0 101 0;
#X connect 97 0 99 0;
#X connect 98 0 96 1;
#X connect 99 0 98 0;
#X connect 101 0 100 0;
#X connect 101 0 100 1;
#X connect 101 0 119 0;
#X connect 102 0 97 0;
#X connect 104 0 105 0;
#X connect 105 0 112 0;
#X connect 105 0 117 0;
#X connect 109 0 122 0;
#X connect 109 0 122 0;
#X connect 112 0 113 0;
#X connect 113 0 118 0;
#X connect 113 0 120 1;
#X connect 120 0 95 0;
#X connect 121 0 120 0;
#X connect 122 0 104 0;
#X connect 122 0 104 0;
#X connect 123 0 24 0;
#X connect 124 0 126 2;
#X connect 125 0 126 3;
#X connect 127 0 131 0;
#X connect 128 0 131 0;
#X connect 129 0 131 0;
#X connect 130 0 131 0;
#X connect 137 0 131 0;
#X connect 138 0 131 1;
#X connect 139 0 131 2;
#X connect 140 0 131 0;