really big background improvement.

2015-03-10 16:53:43 -07:00
parent cf5278b5bd
commit 1e22112851
4 changed files with 22 additions and 2 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -124,6 +124,12 @@
                         a (catmull-rom-spline! (:path entity) :value-at v pos-f)]
                     (assoc entity :x (vector-2! v :x) :y (vector-2! v :y)))))))

+(defn update-path-location [speed screen entities entity]
+  (let [pos-f (- (* (:total-time screen) speed) (int (* (:total-time screen) speed)))
+        v (vector-2 0 0)
+        a (catmull-rom-spline! (:path entity) :value-at v pos-f)]
+    (assoc entity :x (vector-2! v :x) :y (vector-2! v :y))))
+
 (defn find-override [entities [x y]]
  (first (concat (filter #(and ((:mouse-in? %) entities x y)
                               (:override %))