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

progress

Browse Source
This commit is contained in:
Bryce Covert
2016-08-01 18:36:05 -07:00
parent 9139a37119
commit 0a3b10b221
11 changed files with 96 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
desktop/src-common/advent/tween.clj
View File

@@ -24,16 +24,20 @@
(dec (* t (- t 2))))
start)))))
(defn ease-in-out-quintic [t start delta duration]
(let [t (/ t (/ duration 2))]
(if (< t 1)
(+ (* (/ delta 2)
t t t t t)
start)
(let [t (- t 2)]
(+ (* (/ (- delta) 2)
(- (* t t t t) 2))
start)))))
(defn ease-in-out-quintic ^double [^double t ^double start ^double delta ^double duration]
(binding [*unchecked-math* true]
(let [t (/ t (/ duration (double 2.0)))]
(if (< t (double 1))
(let [result (+ (* (/ delta (double 2.0))
t t t t t) start)]
result)
(let [t (- t (double 2.0))
result (+ (* (/ (- delta) (double 2.0))
(- (* t t t t) (double 2.0)))
start)]
result
)))))
(defn ease-out-quadratic [t start delta duration]
(let [t (/ t duration)]