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)
|
||||
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)]
|
||||
|
||||
Reference in New Issue
Block a user