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