make [mstobpm] and [taptempo]

Author: michaelpace

mstobpm.pd

@@ -0,0 +1,12 @@
+#N canvas 121 159 450 300 12;
+#X obj 141 79 inlet;
+#X text 146 57 ms;
+#X obj 141 103 swap 60000;
+#X obj 141 127 /, f 10;
+#X obj 141 151 outlet;
+#X text 144 175 bpm;
+#X text 82 19 60 \, 0 / (ms) == bpm;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 3 1;
+#X connect 3 0 4 0;

taptempo.pd

@@ -0,0 +1,26 @@
+#N canvas 103 358 406 338 12;
+#X obj 158 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
+#000000;
+#X obj 158 97 t b b;
+#X obj 158 121 timer;
+#X floatatom 158 145 5 0 0 0 - - - 0;
+#X floatatom 158 222 5 0 0 0 - - - 0;
+#X obj 158 168 t b f, f 16;
+#X obj 158 245 mstobpm;
+#X floatatom 158 269 5 0 0 0 - - - 0;
+#X obj 158 53 inlet;
+#X obj 158 292 outlet;
+#X obj 158 198 rollingaverage 4;
+#X text 12 11 /// TAP 4 TIMES TO GET BPM AVERAGE OF PRIOR TAPS.;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 2 1;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 10 1;
+#X connect 5 1 10 0;
+#X connect 6 0 7 0;
+#X connect 7 0 9 0;
+#X connect 8 0 0 0;
+#X connect 10 0 4 0;