Data commit

Task/Metronome/J/metronome.j

@@ -0,0 +1,40 @@
+MET=: _ _&$: :(4 : 0)
+
+  'BEL BS LF CR'=. 7 8 10 13 { a.
+  '`print stime delay'=. 1!:2&4`(6!:1)`(6!:3)
+  ticker=. 2 2$'\  /'
+  'small large'=. (BEL,2#BS) ; 5#BS
+  clrln=. CR,(79#' '),CR
+
+  x=. 2 ({.,) x
+  y=. _1 |.&.> 2 ({.,) y
+  'i j'=. 0
+  print 'bpb \  bpm \ ' , 2#BS
+  delay 1
+
+  x=. ({. , ('ti t'=. stime'') + {:) x
+  while. x *./@:> i,t do.
+
+    'bpb bpm'=. {.@> y=. 1 |.&.> y
+    dl=. 60 % bpm
+
+    print clrln,(":bpb),' ',(ticker {~ 2 | i=. >: i),' ',(":bpm),' '
+
+    for. i. bpb do.
+      print small ,~ ticker {~ 2 | j=. >: j
+      delay 0 >. (t=. t + dl) - stime ''
+    end.
+
+  end.
+
+  print clrln
+  i , j , t - ti
+
+)
+
+
+NB. Basic tacit version; this is probably considered bad coding style. At least I removed the "magic constants". Sort of.
+NB. The above version is by far superior.
+'BEL BS LF'=: 7 8 10 { a.
+'`print delay'=: 1!:2&4`(6!:3)
+met=: _&$: :((] ({:@] [ LF print@[ (-.@{.@] [ delay@[ print@] (BEL,2#BS) , (2 2$'\  /') {~ {.@])^:({:@])) 1 , <.@%) 60&% [ print@('\ '"_))