Tap Tempo, with fail

Dan b

Someone (can't find thread now) was talking about wanting a tap tempo that kept all the human failings. I thought it was a good idea so I sat down and had a go at knocking one out - here it is.
It takes 9 taps (yielding 8 durations, so superficially it's tied to 2 repeating bars of beats in 4/4 though of course given that you can tap out any rhythm in those 8 beasts, you can feed it any meter you like). Also it's scaleable. I nicked hardoff's toggle because I thought it was pretty.

You could probably "improve" it by resetting the metro counter on tap 8 (so that the metro immediately goes into your sequence as you finish. That's probably a matter of taste though.

#N canvas 302 0 701 714 10;
#X obj 91 370 counter;
#X floatatom 91 395 5 0 0 0 - - -;
#X obj 135 220 t b b;
#X obj 54 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -262144
-262130;
#X floatatom 174 389 5 0 0 0 - - -;
#X obj 135 285 moses 1;
#X obj 135 264 realtime;
#X obj 71 242 delay 1500;
#X obj 174 304 moses 1500;
#X obj 174 325 t b f;
#X obj 129 418 pack f f;
#X obj 114 505 f;
#X obj 129 526 f;
#X obj 144 545 f;
#X obj 160 505 f;
#X obj 175 526 f;
#X obj 190 545 f;
#X obj 206 507 f;
#X obj 221 526 f;
#X obj -53 571 metro 400;
#X obj -53 596 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -53 620 s \$1-drunkmetro-step;
#X obj -15 290 r \$1-drunkmetro-step;
#X obj -15 351 counter;
#X obj 38 102 tgl 15 0 \$0-toggle \$0-toggle-r OFF -30 8 0 13 -262144
-262144 -1 0 1;
#X obj -73 317 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom -15 374 5 0 0 0 - - -;
#X obj 129 469 route 0 1 2 3 4 5 6 7;
#X obj 62 441 select 0 1 2 3 4 5 6 7;
#X obj 45 338 select 7;
#X obj -41 320 select 7;
#X obj -76 659 outlet;
#X obj 189 143 s \$0-toggle-r;
#X obj 128 72 sel 0 1;
#X obj 126 50 r \$0-toggle;
#X msg 302 101 color \$1 \$1 -1;
#X msg 291 68 0;
#X msg 323 68 18;
#X msg 128 100 label OFF;
#X msg 210 101 label ON;
#X obj -1 535 *;
#X obj 4 119 hsl 52 10 4 0.25 1 0 blawhoof \$0-sliderinit empty -2
-8 0 10 -258113 -1 -1 0 1;
#X obj 14 511 r blawhoof;
#X floatatom 78 579 5 0 0 0 - - -;
#X obj 59 119 bng 10 250 50 0 ahr empty empty 17 7 0 10 -262144 -1
-1;
#X msg 55 166 1;
#X obj 53 199 s \$0-sliderinit;
#X obj 77 138 loadbang;
#X connect 0 0 1 0;
#X connect 0 0 29 0;
#X connect 1 0 10 0;
#X connect 2 0 6 0;
#X connect 2 0 7 0;
#X connect 2 1 6 1;
#X connect 3 0 2 0;
#X connect 4 0 10 1;
#X connect 5 1 8 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 0 0 2;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 9 1 4 0;
#X connect 10 0 27 0;
#X connect 11 0 40 0;
#X connect 12 0 40 0;
#X connect 13 0 40 0;
#X connect 14 0 40 0;
#X connect 15 0 40 0;
#X connect 16 0 40 0;
#X connect 17 0 40 0;
#X connect 18 0 40 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 0 31 0;
#X connect 22 0 23 0;
#X connect 23 0 26 0;
#X connect 23 0 30 0;
#X connect 24 0 19 0;
#X connect 24 0 25 0;
#X connect 25 0 23 3;
#X connect 26 0 28 0;
#X connect 27 0 11 1;
#X connect 27 1 12 1;
#X connect 27 2 13 1;
#X connect 27 3 14 1;
#X connect 27 4 15 1;
#X connect 27 5 16 1;
#X connect 27 6 17 1;
#X connect 27 7 18 1;
#X connect 28 0 11 0;
#X connect 28 1 12 0;
#X connect 28 2 13 0;
#X connect 28 3 14 0;
#X connect 28 4 15 0;
#X connect 28 5 16 0;
#X connect 28 6 17 0;
#X connect 28 7 18 0;
#X connect 29 0 0 2;
#X connect 30 0 23 2;
#X connect 33 0 38 0;
#X connect 33 0 36 0;
#X connect 33 1 39 0;
#X connect 33 1 37 0;
#X connect 34 0 33 0;
#X connect 35 0 32 0;
#X connect 36 0 35 0;
#X connect 37 0 35 0;
#X connect 38 0 32 0;
#X connect 39 0 32 0;
#X connect 40 0 19 1;
#X connect 42 0 40 1;
#X connect 42 0 43 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 47 0 45 0;
#X coords 0 -1 1 1 70 31 2 0 100;