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)]