niten
/
tunes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Chaaaanges

This commit is contained in:
niten 2024-03-23 11:31:29 -07:00
parent 1b001e49ee
commit 9087d712f4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/tunes/core.clj
View File

@ -100,9 +100,9 @@
(let [scheduled-notes (->> notes (where :time (from (o/now))))] (let [scheduled-notes (->> notes (where :time (from (o/now))))]
(doseq [{ms :time midi :pitch} scheduled-notes] (doseq [{ms :time midi :pitch} scheduled-notes]
;; original: ;; original:
#_(o/at ms (sounds/string midi)) (o/at ms (sounds/string midi))
(o/at ms (play-note midi)) #_(o/at ms (play-note midi))
;;(o/at ms (sounds/tb303 :note midi :release 0.5)) #_(o/at ms (sounds/tb303 :note midi :release 0.5))
) )
scheduled-notes)) scheduled-notes))
@ -183,7 +183,7 @@
times (reductions + 0 durations)] times (reductions + 0 durations)]
(map note times pitches))) (map note times pitches)))
#_(->> ghost-of-john-2 #_(->> ghost-of-john
(where :time (bpm 26)) (where :time (bpm 26))
(where :pitch (comp F minor)) (where :pitch (comp F minor))
(play)) (play))
@ -195,7 +195,7 @@
#_(->> row-row-your-boat #_(->> row-row-your-boat
(where :time (bpm 120)) (where :time (bpm 120))
(where :pitch (comp C major)) (where :pitch (comp C major))
play) (play))
(defn run [[from & tos]] (defn run [[from & tos]]
(if-let [to (first tos)] (if-let [to (first tos)]