notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dream improvements

Browse Source
This commit is contained in:
Bryce Covert
2015-11-14 09:27:12 -08:00
parent 85e9ed084a
commit 4f37232223
5 changed files with 45 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
desktop/src-common/advent/utils.clj
View File

@@ -254,10 +254,11 @@
(defn update-path-location [speed screen entities entity]
(if (:path entity)
(let [pos-f (- (path-point speed screen entities entity) (int (* (- (:total-time screen) (:path-start-time entity 0.0)) speed)))
(let [entity (assoc entity :path-start-time (or (:path-start-time entity) (:total-time screen)))
pos-f (- (path-point speed screen entities entity) (int (* (- (:total-time screen) (:path-start-time entity 0.0)) speed)))
v (vector-2 0 0)
a (catmull-rom-spline! ^CatmullRomSpline (:path entity) :value-at v pos-f)]
(assoc entity :x (vector-2! v :x) :y (vector-2! v :y)))
(assoc entity :x (vector-2! v :x) :y (vector-2! v :y) ))
entity))
(defn find-override [entities [x y]]