Damn, I think timeline may even be mostly working, sans one bug

1 files changed, 19 insertions, 19 deletions

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