#N canvas 441 80 777 616 12;
#X floatatom 289 44 5 0 0 0 a - -;
#X floatatom 76 73 5 0 0 0 B - -;
#X floatatom 190 49 5 0 0 0 b - -;
#X obj 203 77 inlet;
#X obj 85 93 inlet;
#X obj 291 66 inlet;
#X obj 115 267 int;
#X obj 80 290 -;
#X obj 80 239 t f f;
#X obj 237 495 outlet;
#X obj 156 493 outlet;
#X obj 80 462 del;
#X obj 80 494 outlet;
#X obj 22 364 r play;
#X obj 22 391 sel 0;
#X msg 22 418 stop;
#X obj 80 430 * 100;
#X text 224 235 Inputs (r to l)- old tempo \, new tempo \, beats until
new tempo;
#X text 223 261 Outputs (r to l)- increment to multiply 10x/second
\, number of times to multiply \, bang for next tempo;
#X obj 116 389 +;
#X obj 80 319 moses 0.5;
#X msg 80 345 0;
#X msg 147 345 1;
#X obj 80 139 expr ($f2-$f3)/(600 * $f1) + 1 \; $f1;
#X obj 80 198 expr if ($f2==$f3 \, 600*($f4/$f2) \, (log($f2/$f3))/log($f1))
;
#X connect 0 0 23 2;
#X connect 0 0 24 2;
#X connect 1 0 23 0;
#X connect 2 0 23 1;
#X connect 2 0 24 1;
#X connect 3 0 23 1;
#X connect 3 0 24 1;
#X connect 4 0 23 0;
#X connect 5 0 23 2;
#X connect 5 0 24 2;
#X connect 6 0 7 1;
#X connect 6 0 19 1;
#X connect 7 0 20 0;
#X connect 8 0 7 0;
#X connect 8 1 6 0;
#X connect 11 0 12 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 11 0;
#X connect 16 0 11 0;
#X connect 19 0 10 0;
#X connect 19 0 16 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 21 0 19 0;
#X connect 22 0 19 0;
#X connect 23 0 9 0;
#X connect 23 0 24 0;
#X connect 23 1 24 3;
#X connect 24 0 8 0;