jdormit/clojure-school-of-music
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix the bugs, fully implement performance

Browse Source
This commit is contained in:
Jeremy Dormitzer 2018-08-15 07:50:24 -04:00
parent 489741d3ed
commit b1c47cbd73
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/performance.clj
View File

@ -101,7 +101,7 @@
:volume 50 ;; volume of performance
:key [:C :major]}) ;; current key signature
(defn merge-perfs ;; TODO what if p1 and p2 are single notes?
(defn merge-perfs
"Merges two performances"
[p1 p2]
(if (nil? (seq p1))
@ -119,26 +119,33 @@
(defn perf
"Implementation of perform, returns a tuple of (performance, duration)"
[player-map context music]
(let [{:keys [player duration-t]} context]
(let [{:keys [player duration-t time]} context]
(match music
{:duration duration
:pitch pitch} [((:play-note player)
:pitch pitch} [[((:play-note player)
context
music)
music)]
(* duration duration-t)]
{:duration duration} [[] (* duration duration-t)]
[:+ & ms] (reduce (fn [[events-acc dur-acc] m]
(let [[events dur] (perf player-map
context
[:+ & ms] (let [[{events :events} dur]
(reduce (fn [[{events-acc :events time-acc :time} dur-acc] m]
(let [[events dur]
(perf player-map
(assoc context
:time
(+ (:time context) time-acc))
m)]
[(concat events-acc events)
[{:events (concat events-acc events)
:time (+ time-acc dur)}
(+ dur-acc dur)]))
[[] 0]
ms)
[{:events [] :time time} 0]
ms)]
[events dur])
[:= & ms] (reduce (fn [[merged-events max-dur] m]
(let [[events dur] (perf player-map
context
m)]
(prn events)
[(merge-perfs merged-events events)
(max max-dur dur)]))
[[] 0]