1 files changed, 249 insertions, 0 deletions
diff --git a/granularLive~.pd b/granularLive~.pd
new file mode 100644
index 0000000..df715b9
--- /dev/null
+++ b/granularLive~.pd
@@ -0,0 +1,249 @@
+#N canvas 368 121 768 472 10;
+#N canvas 291 103 1105 738 process 0;
+#X obj 107 314 phasor~;
+#X obj 107 391 *~ -1;
+#X obj 108 416 +~ 1;
+#X obj 125 561 sig~ 1;
+#X obj 190 560 cos~;
+#X obj 126 585 -~;
+#X obj 127 610 *~ 0.5;
+#X obj 106 639 *~;
+#X obj 142 473 samphold~;
+#X obj 108 500 *~;
+#X obj 143 445 sig~;
+#X floatatom 135 260 10 0 0 0 - - -;
+#X floatatom 266 218 5 0 0 0 - - -;
+#X obj 249 253 t b f;
+#X obj 229 371 / 44.1;
+#X obj 342 392 *~ -1;
+#X obj 343 417 +~ 1;
+#X obj 360 562 sig~ 1;
+#X obj 424 562 cos~;
+#X obj 361 586 -~;
+#X obj 362 611 *~ 0.5;
+#X obj 343 636 *~;
+#X obj 377 474 samphold~;
+#X obj 343 501 *~;
+#X obj 378 446 sig~;
+#X obj 339 344 +~ 0.5;
+#X obj 339 366 wrap~;
+#X obj 144 288 expr (pow(2 \, ($f2/12)) - 1) * 44100/$f1;
+#X obj 102 97 vsl 15 128 100 30000 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 102 235 t b f;
+#X obj 266 138 vsl 15 73 -36 36 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 484 348 *~ 0;
+#X obj 517 107 vsl 15 128 0.01 1 1 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 517 267 sel 0.01;
+#X msg 515 294 0;
+#X floatatom 515 323 5 0 0 0 - - -;
+#X text 520 79 feedback;
+#X text 269 114 transposition;
+#X text 37 71 window-width (samples);
+#X obj 494 376 inlet~;
+#X obj 105 698 outlet~;
+#X obj 586 46 inlet;
+#X obj 675 46 inlet;
+#X obj 629 46 inlet;
+#X obj 485 408 delwrite~ \$0-delay 5000;
+#X obj 344 527 vd~ \$0-delay;
+#X obj 109 526 vd~ \$0-delay;
+#X connect 0 0 1 0;
+#X connect 0 0 4 0;
+#X connect 0 0 8 1;
+#X connect 0 0 25 0;
+#X connect 1 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 5 0;
+#X connect 4 0 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 1;
+#X connect 7 0 31 0;
+#X connect 7 0 40 0;
+#X connect 8 0 9 1;
+#X connect 9 0 46 0;
+#X connect 10 0 8 0;
+#X connect 11 0 27 0;
+#X connect 12 0 13 0;
+#X connect 13 0 11 0;
+#X connect 13 1 27 1;
+#X connect 14 0 10 0;
+#X connect 14 0 24 0;
+#X connect 15 0 16 0;
+#X connect 16 0 23 0;
+#X connect 17 0 19 0;
+#X connect 18 0 19 1;
+#X connect 19 0 20 0;
+#X connect 20 0 21 1;
+#X connect 21 0 31 0;
+#X connect 21 0 40 0;
+#X connect 22 0 23 1;
+#X connect 23 0 45 0;
+#X connect 24 0 22 0;
+#X connect 25 0 26 0;
+#X connect 26 0 15 0;
+#X connect 26 0 22 1;
+#X connect 26 0 18 0;
+#X connect 27 0 0 0;
+#X connect 28 0 29 0;
+#X connect 29 0 12 0;
+#X connect 29 1 14 0;
+#X connect 29 1 11 0;
+#X connect 30 0 12 0;
+#X connect 31 0 44 0;
+#X connect 32 0 33 0;
+#X connect 33 0 34 0;
+#X connect 33 1 35 0;
+#X connect 34 0 35 0;
+#X connect 35 0 31 1;
+#X connect 39 0 44 0;
+#X connect 41 0 29 0;
+#X connect 42 0 33 0;
+#X connect 43 0 12 0;
+#X connect 45 0 21 0;
+#X connect 46 0 7 0;
+#X restore 148 118 pd process;
+#X obj 56 65 inlet~;
+#X obj 100 260 outlet~;
+#X obj 151 238 outlet~;
+#X obj 101 66 inlet~;
+#X obj 536 238 inlet params;
+#X obj 536 284 print PARAM_NOTFOUND;
+#X obj 210 209 tof/param /wet 0 /g slider 0 1;
+#X obj 210 252 line~;
+#X msg 210 231 \$1 5;
+#X obj 102 208 tof/crossfade~ 2;
+#N canvas 292 102 1105 738 process 0;
+#X obj 107 314 phasor~;
+#X obj 107 391 *~ -1;
+#X obj 108 416 +~ 1;
+#X obj 125 561 sig~ 1;
+#X obj 190 560 cos~;
+#X obj 126 585 -~;
+#X obj 127 610 *~ 0.5;
+#X obj 106 639 *~;
+#X obj 142 473 samphold~;
+#X obj 108 500 *~;
+#X obj 143 445 sig~;
+#X floatatom 135 260 10 0 0 0 - - -;
+#X floatatom 266 218 5 0 0 0 - - -;
+#X obj 249 253 t b f;
+#X obj 229 371 / 44.1;
+#X obj 342 392 *~ -1;
+#X obj 343 417 +~ 1;
+#X obj 360 562 sig~ 1;
+#X obj 424 562 cos~;
+#X obj 361 586 -~;
+#X obj 362 611 *~ 0.5;
+#X obj 343 636 *~;
+#X obj 377 474 samphold~;
+#X obj 343 501 *~;
+#X obj 378 446 sig~;
+#X obj 339 344 +~ 0.5;
+#X obj 339 366 wrap~;
+#X obj 144 288 expr (pow(2 \, ($f2/12)) - 1) * 44100/$f1;
+#X obj 102 97 vsl 15 128 100 30000 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 102 235 t b f;
+#X obj 266 138 vsl 15 73 -36 36 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 484 348 *~ 0;
+#X obj 517 107 vsl 15 128 0.01 1 1 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 517 267 sel 0.01;
+#X msg 515 294 0;
+#X floatatom 515 323 5 0 0 0 - - -;
+#X text 520 79 feedback;
+#X text 269 114 transposition;
+#X text 37 71 window-width (samples);
+#X obj 494 376 inlet~;
+#X obj 105 698 outlet~;
+#X obj 586 46 inlet;
+#X obj 675 46 inlet;
+#X obj 629 46 inlet;
+#X obj 485 408 delwrite~ \$0-delayr 5000;
+#X obj 344 527 vd~ \$0-delayr;
+#X obj 109 526 vd~ \$0-delayr;
+#X connect 0 0 1 0;
+#X connect 0 0 4 0;
+#X connect 0 0 8 1;
+#X connect 0 0 25 0;
+#X connect 1 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 5 0;
+#X connect 4 0 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 1;
+#X connect 7 0 31 0;
+#X connect 7 0 40 0;
+#X connect 8 0 9 1;
+#X connect 9 0 46 0;
+#X connect 10 0 8 0;
+#X connect 11 0 27 0;
+#X connect 12 0 13 0;
+#X connect 13 0 11 0;
+#X connect 13 1 27 1;
+#X connect 14 0 10 0;
+#X connect 14 0 24 0;
+#X connect 15 0 16 0;
+#X connect 16 0 23 0;
+#X connect 17 0 19 0;
+#X connect 18 0 19 1;
+#X connect 19 0 20 0;
+#X connect 20 0 21 1;
+#X connect 21 0 31 0;
+#X connect 21 0 40 0;
+#X connect 22 0 23 1;
+#X connect 23 0 45 0;
+#X connect 24 0 22 0;
+#X connect 25 0 26 0;
+#X connect 26 0 15 0;
+#X connect 26 0 22 1;
+#X connect 26 0 18 0;
+#X connect 27 0 0 0;
+#X connect 28 0 29 0;
+#X connect 29 0 12 0;
+#X connect 29 1 14 0;
+#X connect 29 1 11 0;
+#X connect 30 0 12 0;
+#X connect 31 0 44 0;
+#X connect 32 0 33 0;
+#X connect 33 0 34 0;
+#X connect 33 1 35 0;
+#X connect 34 0 35 0;
+#X connect 35 0 31 1;
+#X connect 39 0 44 0;
+#X connect 41 0 29 0;
+#X connect 42 0 33 0;
+#X connect 43 0 12 0;
+#X connect 45 0 21 0;
+#X connect 46 0 7 0;
+#X restore 228 118 pd process;
+#X obj 420 38 tof/param /feedbackleft 0 /g slider 0 1;
+#X obj 446 94 tof/param /feedbackright 0 /g slider 0 1;
+#X obj 409 16 tof/param /transpositionleft 0 /g nbx;
+#X obj 438 76 tof/param /transpositionright 0 /g nbx;
+#X obj 400 -2 tof/param /windowleft 15000 /g nbx;
+#X obj 429 58 tof/param /windowright 15000 /g nbx;
+#X obj 536 260 tof/param route;
+#X connect 0 0 10 2;
+#X connect 1 0 10 0;
+#X connect 1 0 0 0;
+#X connect 4 0 10 1;
+#X connect 4 0 11 0;
+#X connect 5 0 18 0;
+#X connect 7 0 9 0;
+#X connect 8 0 10 4;
+#X connect 9 0 8 0;
+#X connect 10 0 2 0;
+#X connect 10 1 3 0;
+#X connect 11 0 10 3;
+#X connect 12 0 0 3;
+#X connect 13 0 11 3;
+#X connect 14 0 0 2;
+#X connect 15 0 11 2;
+#X connect 16 0 0 1;
+#X connect 17 0 11 1;
+#X connect 18 0 6 0;