1 files changed, 128 insertions, 0 deletions
diff --git a/smpToBpm.pd b/smpToBpm.pd
new file mode 100644
index 0000000..3abc229
--- /dev/null
+++ b/smpToBpm.pd
@@ -0,0 +1,128 @@
+#N canvas 261 41 715 668 10;
+#X obj 43 18 inlet smp;
+#X obj 268 8 inlet samplerate;
+#X obj 229 587 outlet beats;
+#X obj 78 288 * 120;
+#X obj 367 106 loadbang;
+#X obj 367 131 samplerate~;
+#X obj 56 541 outlet bpm;
+#N canvas 454 83 891 537 fit 0;
+#X obj 45 53 inlet;
+#X obj 378 50 inlet;
+#X obj 250 228 /;
+#X obj 222 379 *;
+#X obj 303 170 t f f;
+#X obj 375 417 /;
+#X obj 272 566 outlet;
+#X obj 196 255 t b f;
+#N canvas 289 98 991 658 closestmult2 0;
+#X msg 403 194 2;
+#X obj 407 228 float;
+#X obj 465 262 moses;
+#X obj 521 193 * 2;
+#X obj 506 374 -;
+#X obj 406 145 t b f f;
+#X obj 517 417 moses;
+#X obj 529 339 t f f;
+#X obj 564 361 * 0.25;
+#X obj 492 480 float;
+#X msg 490 448 bang;
+#X msg 575 445 bang;
+#X obj 581 476 float;
+#X obj 606 501 / 2;
+#X obj 513 286 t f f f;
+#X obj 149 40 inlet;
+#X obj 255 610 outlet;
+#X obj 190 75 moses 1;
+#X obj 66 81 /;
+#X msg 75 53 1.125 \$1;
+#X obj 301 82 t f b;
+#X msg 403 354 1;
+#X obj 226 124 t f b;
+#X msg 365 355 0;
+#X msg 408 578 1 \$1;
+#X obj 412 605 /;
+#X obj 327 534 zexy/demultiplex 0 1;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 14 0;
+#X connect 3 0 1 0;
+#X connect 4 0 6 0;
+#X connect 5 0 0 0;
+#X connect 5 1 2 1;
+#X connect 5 2 4 1;
+#X connect 6 0 10 0;
+#X connect 6 1 11 0;
+#X connect 7 0 4 0;
+#X connect 7 1 8 0;
+#X connect 8 0 6 1;
+#X connect 9 0 26 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 26 0;
+#X connect 14 0 7 0;
+#X connect 14 1 9 1;
+#X connect 14 2 12 1;
+#X connect 15 0 17 0;
+#X connect 17 0 19 0;
+#X connect 17 1 20 0;
+#X connect 18 0 22 0;
+#X connect 19 0 18 0;
+#X connect 20 0 5 0;
+#X connect 20 1 21 0;
+#X connect 21 0 26 1;
+#X connect 22 0 5 0;
+#X connect 22 1 23 0;
+#X connect 23 0 26 1;
+#X connect 24 0 25 0;
+#X connect 25 0 16 0;
+#X connect 26 0 24 0;
+#X connect 26 1 16 0;
+#X restore 286 293 pd closestmult2;
+#X obj 281 319 t f f;
+#X obj 160 304 f;
+#X obj 245 96 t f b f f;
+#X connect 0 0 4 0;
+#X connect 1 0 11 0;
+#X connect 2 0 7 0;
+#X connect 3 0 5 0;
+#X connect 4 0 2 0;
+#X connect 4 1 5 1;
+#X connect 5 0 6 0;
+#X connect 7 0 10 0;
+#X connect 7 1 8 0;
+#X connect 8 0 9 0;
+#X connect 9 1 3 1;
+#X connect 10 0 3 0;
+#X connect 11 0 10 1;
+#X connect 11 2 2 1;
+#X restore 95 219 pd fit;
+#X obj 51 357 t f f;
+#X obj 249 460 expr $f2/$f1;
+#X obj 452 554 outlet smp_per_beat;
+#X obj 89 90 t f f f;
+#X obj 447 436 expr $f2/$f1;
+#X obj 278 520 t f f;
+#X obj 220 271 ./smpToMs;
+#X obj 134 419 ./bpmToMs;
+#X obj 251 484 ./round;
+#X connect 0 0 11 0;
+#X connect 1 0 7 1;
+#X connect 3 0 8 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 1;
+#X connect 7 0 3 0;
+#X connect 8 0 6 0;
+#X connect 8 1 15 0;
+#X connect 9 0 16 0;
+#X connect 11 0 7 0;
+#X connect 11 1 14 0;
+#X connect 11 2 12 1;
+#X connect 12 0 10 0;
+#X connect 13 0 2 0;
+#X connect 13 1 12 0;
+#X connect 14 0 9 1;
+#X connect 15 0 9 0;
+#X connect 16 0 13 0;