From c28969a3fbeb10f3aae89c6e1829e4540114f31d Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Fri, 14 Nov 2025 16:45:58 -0500
Subject: Damn, I think timeline may even be mostly working, sans one bug

---
 dev/scratch.clj | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'dev')

diff --git a/dev/scratch.clj b/dev/scratch.clj
index 53267f9..d7d0da7 100644
--- a/dev/scratch.clj
+++ b/dev/scratch.clj
@@ -19,32 +19,32 @@
    (note >c 0 32 (m/latest #(+ % 7) >tonic))))
 
 (defn song
-  [{:keys [clock tonic]}]
+  [{:keys [>clock >tonic]}]
   (poly
-   (triad clock tonic)
+   (triad >clock >tonic)
 
    #_
-   (triad clock (m/latest #(+ % 12) tonic))
+   (triad >clock (m/latest #(+ % 12) tonic))
 
    ;; The rest of the "song" is a drum pattern.
-   (note clock 1 1 (m/ap kick))
-   (note clock 9 1 (m/ap kick))
-   (note clock 17 1 (m/ap kick))
-   (note clock 25 1 (m/ap kick))
+   (note >clock 1 1 (m/ap kick))
+   (note >clock 9 1 (m/ap kick))
+   (note >clock 17 1 (m/ap kick))
+   (note >clock 25 1 (m/ap kick))
 
-   (note clock 1 1 (m/ap hat))
-   (note clock 5 1 (m/ap hat))
-   (note clock 9 1 (m/ap hat))
-   (note clock 13 1 (m/ap hat))
-   (note clock 17 1 (m/ap hat))
-   (note clock 21 1 (m/ap hat))
-   (note clock 25 1 (m/ap hat))
-   (note clock 29 1 (m/ap hat))
+   (note >clock 1 1 (m/ap hat))
+   (note >clock 5 1 (m/ap hat))
+   (note >clock 9 1 (m/ap hat))
+   (note >clock 13 1 (m/ap hat))
+   (note >clock 17 1 (m/ap hat))
+   (note >clock 21 1 (m/ap hat))
+   (note >clock 25 1 (m/ap hat))
+   (note >clock 29 1 (m/ap hat))
 
-   (note clock 5 1 (m/ap snare))
-   (note clock 13 1 (m/ap snare))
-   (note clock 21 1 (m/ap snare))
-   (note clock 29 1 (m/ap snare))))
+   (note >clock 5 1 (m/ap snare))
+   (note >clock 13 1 (m/ap snare))
+   (note >clock 21 1 (m/ap snare))
+   (note >clock 29 1 (m/ap snare))))
 
 ;; TODO: Move into /dev
 ;; Add logging
-- 
cgit v1.2.3