Add a beat table to help visualize beats that line up better

dgtized · Aug 30, 2024 · bab39e1 · bab39e1
1 parent 7c7203d
commit bab39e1
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 0 deletions.
diff --git a/src/shimmers/sketches.cljs b/src/shimmers/sketches.cljs
@@ -14,6 +14,7 @@
    shimmers.sketches.ballistics
    shimmers.sketches.balloon
    shimmers.sketches.barcodes
+   shimmers.sketches.beat-table
    shimmers.sketches.blobical
    shimmers.sketches.bold-moves
    shimmers.sketches.box-o-rama

diff --git a/src/shimmers/sketches/beat_table.cljs b/src/shimmers/sketches/beat_table.cljs
@@ -0,0 +1,27 @@
+(ns shimmers.sketches.beat-table
+  (:require
+   [shimmers.common.ui.controls :as ctrl]
+   [shimmers.common.ui.svg :as usvg]
+   [shimmers.sketch :as sketch :include-macros true]))
+
+(defn scene [_]
+  (let [divisions [1 4 6 8 12 16 24 32]]
+    [:table
+     (into [:tbody]
+           (for [division divisions]
+             (into [:tr]
+                   (cons [:th (if (= division 1)
+                                "beat"
+                                (str "1/" division))]
+                         (for [beat (range 65)
+                               :when (some (fn [div] (= 0 (mod beat div)))
+                                           [4 6 8 12 16 24 32])]
+                           [:td {:style {:width "1.8em" :text-align "right"}}
+                            (if (= division 1) beat
+                                (str (mod beat division)))])))))]))
+
+(sketch/definition beat-table
+  {:created-at "2024-08-30"
+   :tags #{}
+   :type :svg}
+  (ctrl/mount (usvg/page sketch-args scene)))