minor cleanup.

This commit is contained in:
Bryce Covert
2015-07-25 16:49:06 -07:00
parent f0dd1ede2a
commit b5432bd333
2 changed files with 5 additions and 6 deletions

View File

@@ -1 +1 @@
{:sound-volume 64.0, :music-volume 0.0} {:sound-volume 42.0, :music-volume 59.0}

View File

@@ -52,11 +52,10 @@
v (vector-2 0 0) v (vector-2 0 0)
a (catmull-rom-spline! (:path (:flying-ego entities)) :value-at v pos-f) a (catmull-rom-spline! (:path (:flying-ego entities)) :value-at v pos-f)
direction (get-dir (get-in entities [:flying-ego :x]) (vector-2! v :x))] direction (get-dir (get-in entities [:flying-ego :x]) (vector-2! v :x))]
(merge (update-in entities [:flying-ego] (update-in entities [:flying-ego]
merge {:x (vector-2! v :x) merge {:x (vector-2! v :x)
:y (vector-2! v :y)} :y (vector-2! v :y)}
(get-in entities [:flying-ego direction]) (get-in entities [:flying-ego direction]))))
))))
(defn flip [t] (defn flip [t]
(let [flipped (texture t)] (let [flipped (texture t)]