From 9087d712f42646c7cf20b9438d897a1d9bfd78ff Mon Sep 17 00:00:00 2001 From: niten Date: Sat, 23 Mar 2024 11:31:29 -0700 Subject: [PATCH] Chaaaanges --- src/tunes/core.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/tunes/core.clj b/src/tunes/core.clj index 308c0ba..0d16f6b 100644 --- a/src/tunes/core.clj +++ b/src/tunes/core.clj @@ -100,9 +100,9 @@ (let [scheduled-notes (->> notes (where :time (from (o/now))))] (doseq [{ms :time midi :pitch} scheduled-notes] ;; original: - #_(o/at ms (sounds/string midi)) - (o/at ms (play-note midi)) - ;;(o/at ms (sounds/tb303 :note midi :release 0.5)) + (o/at ms (sounds/string midi)) + #_(o/at ms (play-note midi)) + #_(o/at ms (sounds/tb303 :note midi :release 0.5)) ) scheduled-notes)) @@ -183,7 +183,7 @@ times (reductions + 0 durations)] (map note times pitches))) -#_(->> ghost-of-john-2 +#_(->> ghost-of-john (where :time (bpm 26)) (where :pitch (comp F minor)) (play)) @@ -195,7 +195,7 @@ #_(->> row-row-your-boat (where :time (bpm 120)) (where :pitch (comp C major)) - play) + (play)) (defn run [[from & tos]] (if-let [to (first tos)]