changes

desktop/src-common/advent/tween.clj

@@ -35,6 +35,14 @@
               (-  (* t t t t) 2))
            start)))))
 
+(defn ease-out-quadratic [t start delta duration]
+  (let [t (/ t duration)]
+    (+ (* (- delta) t (- t 2)) start)))
+
+(defn ease-out-cubic [t start delta duration]
+  (let [t (dec (/ t duration))]
+    (+ (* delta (inc (* t t t))) start)))
+
 (defn tween [id screen path start end duration & {:keys [finish ease]}]
   (let [ease (or ease ease-linear)
         finish (or finish identity)