minor cleanup.
This commit is contained in:
@@ -1 +1 @@
|
|||||||
{:sound-volume 64.0, :music-volume 0.0}
|
{:sound-volume 42.0, :music-volume 59.0}
|
||||||
@@ -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)]
|
||||||
|
|||||||
Reference in New Issue
Block a user