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)
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))]
(merge (update-in entities [:flying-ego]
merge {:x (vector-2! v :x)
:y (vector-2! v :y)}
(get-in entities [:flying-ego direction])
))))
(update-in entities [:flying-ego]
merge {:x (vector-2! v :x)
:y (vector-2! v :y)}
(get-in entities [:flying-ego direction]))))
(defn flip [t]
(let [flipped (texture t)]