adding camera panning. nice.

desktop/src-common/advent/utils.clj

@@ -125,20 +125,7 @@
 (defn make-music [r]
   (doto (music r) (music! :set-looping true)))
 
-(defn tween [id screen path start end duration & {:keys [finish power]}]
-  (let [power (or power 1.0)
-        finish (or finish identity)
-        start-time (or (:total-time screen) 0.0)
-        delta (- end start)]
-    (fn [e total-time]
-      (let [delta-time (- total-time start-time)
-            pct-done (min (/ delta-time duration) 1.0)
-            pct-done (Math/pow pct-done power)
-            e (assoc-in e path (+ start (* pct-done delta)))]
-        (if (= 1.0 pct-done)
-          (update-in (finish e) [:tweens] dissoc id)
-          e)
-        ))))
+
 
 (defn apply-tweens [screen entities tweens]
   (reduce (fn [e f]