diff options
Diffstat (limited to 'dev/scratch.clj')
| -rw-r--r-- | dev/scratch.clj | 38 |
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 |
