1 files changed, 197 insertions, 0 deletions
diff --git a/tempo.pd b/tempo.pd
new file mode 100644
index 0000000..fa27724
--- /dev/null
+++ b/tempo.pd
@@ -0,0 +1,197 @@
+#N canvas 1024 0 1018 716 10;
+#X obj 86 -57 inlet;
+#X obj 150 236 outlet;
+#X obj 103 127 tgl 14 0 empty empty on 0 -5 0 8 -262144 -1 -1 0 1;
+#X obj 123 127 nbx 5 14 0.001 1e+37 0 0 empty empty bpm 0 -5 0 8 -1
+-262144 -1 0.001 256;
+#X obj 228 -46 inlet;
+#X obj 157 -46 inlet;
+#X obj 280 -32 inlet;
+#X obj 172 127 nbx 5 14 1 1e+37 0 0 empty empty mult 0 -5 0 8 -1 -262144
+-1 1 256;
+#X obj 222 127 nbx 5 14 1 1e+37 0 0 empty empty div 0 -5 0 8 -1 -262144
+-1 1 256;
+#N canvas 1069 191 936 517 tempo 0;
+#X obj 223 97 inlet;
+#X obj 160 562 outlet;
+#N canvas 0 0 454 304 bpm2ms 0;
+#X obj 130 52 inlet;
+#X obj 130 112 /;
+#X obj 130 138 * 60;
+#X msg 130 89 1000 \$1;
+#X obj 129 191 outlet;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X restore 173 276 pd bpm2ms;
+#X obj 234 184 f \$1;
+#X obj 86 137 inlet;
+#N canvas 0 0 587 427 countmodulo 0;
+#X obj 62 164 float;
+#X obj 102 163 + 1;
+#X obj 63 9 inlet;
+#X msg 62 126 bang;
+#X obj 62 258 outlet;
+#X obj 61 208 mod;
+#X obj 133 10 inlet;
+#X msg 134 113 0;
+#X obj 360 9 inlet;
+#X text 168 9 reset or set;
+#X obj 133 51 route bang reset float;
+#X obj 181 124 mod;
+#X text 399 9 modulo value (max value);
+#X connect 0 0 5 0;
+#X connect 1 0 0 1;
+#X connect 2 0 3 0;
+#X connect 3 0 0 0;
+#X connect 5 0 1 0;
+#X connect 5 0 4 0;
+#X connect 6 0 10 0;
+#X connect 7 0 0 1;
+#X connect 8 0 5 1;
+#X connect 8 0 11 1;
+#X connect 10 0 7 0;
+#X connect 10 1 7 0;
+#X connect 10 2 11 0;
+#X connect 11 0 0 1;
+#X restore 166 522 pd countmodulo;
+#X msg 489 216 16;
+#X obj 517 165 f \$3;
+#X obj 196 398 / 4;
+#X msg 203 487 reset;
+#X obj 95 403 t b b;
+#X obj 123 371 sel 1;
+#X obj 608 97 inlet;
+#X obj 314 315 t b f;
+#X obj 391 26 inlet;
+#X obj 323 277 / 1;
+#X msg 169 246 120;
+#X obj 402 149 f \$2;
+#X msg 347 210 1;
+#X obj 385 182 moses 1;
+#X obj 499 189 moses 1;
+#X obj 181 220 moses 1;
+#X obj 419 213 / 4;
+#X obj 777 95 inlet shuffle;
+#N canvas 0 0 994 658 shuffle 0;
+#X obj 577 46 inlet;
+#X obj 118 53 inlet;
+#X obj 773 55 inlet;
+#X obj 743 315 * 1000;
+#X obj 234 457 delay;
+#X obj 110 613 outlet;
+#X obj 394 393 *;
+#X obj 405 280 delay;
+#X obj 440 256 / 2;
+#X obj 668 373 expr 0.5+($f1/1000)-($f2/2);
+#X text 573 23 Metro Time;
+#X text 775 24 Shuffle 0 to 1;
+#X msg 365 133 stop;
+#X obj 668 343 random 0;
+#X msg 267 160 stop;
+#X obj 164 151 t b b b;
+#X obj 604 301 metro;
+#X text 106 31 start/stop;
+#X obj 743 289 clip 0 1;
+#X obj 197 101 sel 1 0;
+#X obj 133 76 route bang;
+#X connect 0 0 6 1;
+#X connect 0 0 8 0;
+#X connect 0 0 16 1;
+#X connect 1 0 20 0;
+#X connect 2 0 9 1;
+#X connect 2 0 18 0;
+#X connect 3 0 13 1;
+#X connect 4 0 5 0;
+#X connect 6 0 4 0;
+#X connect 7 0 16 0;
+#X connect 8 0 7 1;
+#X connect 9 0 6 0;
+#X connect 12 0 7 0;
+#X connect 12 0 4 0;
+#X connect 12 0 16 0;
+#X connect 13 0 9 0;
+#X connect 14 0 7 0;
+#X connect 14 0 4 0;
+#X connect 14 0 16 0;
+#X connect 15 0 5 0;
+#X connect 15 1 14 0;
+#X connect 15 1 7 0;
+#X connect 16 0 13 0;
+#X connect 18 0 3 0;
+#X connect 19 0 15 0;
+#X connect 19 1 12 0;
+#X connect 20 0 15 0;
+#X connect 20 1 19 0;
+#X restore 106 480 pd shuffle;
+#X obj 109 324 != 0;
+#X obj 60 291 route bang float;
+#X connect 0 0 3 0;
+#X connect 2 0 8 0;
+#X connect 3 0 21 0;
+#X connect 4 0 26 0;
+#X connect 5 0 1 0;
+#X connect 6 0 5 2;
+#X connect 6 0 22 0;
+#X connect 7 0 20 0;
+#X connect 8 0 24 1;
+#X connect 9 0 5 1;
+#X connect 10 0 24 0;
+#X connect 10 1 9 0;
+#X connect 11 0 10 0;
+#X connect 11 1 24 0;
+#X connect 12 0 7 0;
+#X connect 13 0 3 0;
+#X connect 13 1 8 1;
+#X connect 14 0 17 0;
+#X connect 15 0 13 0;
+#X connect 16 0 2 0;
+#X connect 17 0 19 0;
+#X connect 18 0 15 1;
+#X connect 19 0 18 0;
+#X connect 19 1 15 1;
+#X connect 20 0 6 0;
+#X connect 20 1 5 2;
+#X connect 20 1 22 0;
+#X connect 21 0 16 0;
+#X connect 21 1 2 0;
+#X connect 22 0 15 0;
+#X connect 23 0 24 2;
+#X connect 24 0 5 0;
+#X connect 25 0 11 0;
+#X connect 26 0 10 0;
+#X connect 26 1 25 0;
+#X restore 147 176 pd tempo;
+#X obj 312 78 tof/argument 3 16;
+#X obj 234 47 tof/argument 2 1;
+#X obj 163 22 tof/argument 1 120;
+#X obj 275 130 hsl 40 10 0 1 0 0 empty empty shuffle -2 -6 0 8 -262144
+-1 -1 0 1;
+#X obj 375 140 tof/argument 4 0;
+#X obj 509 -7 inlet;
+#X obj 509 40 clip 0 1;
+#X obj 361 -19 loadbang;
+#X obj 365 7 t b b b b;
+#X connect 0 0 2 0;
+#X connect 2 0 9 0;
+#X connect 3 0 9 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 6 0 8 0;
+#X connect 7 0 9 2;
+#X connect 8 0 9 3;
+#X connect 9 0 1 0;
+#X connect 10 0 8 0;
+#X connect 11 0 7 0;
+#X connect 12 0 3 0;
+#X connect 13 0 9 4;
+#X connect 14 0 13 0;
+#X connect 15 0 16 0;
+#X connect 16 0 13 0;
+#X connect 17 0 18 0;
+#X connect 18 0 12 0;
+#X connect 18 1 11 0;
+#X connect 18 2 10 0;
+#X connect 18 3 14 0;
+#X coords 0 -1 1 1 220 43 1 100 100;