From c6dc550e1f1bc5a63e8dd8de5a1e9089842abadc Mon Sep 17 00:00:00 2001
From: Remington Covert <bryce@brycecovertoperations.com>
Date: Thu, 19 Feb 2015 11:24:35 -0800
Subject: [PATCH] adding camera panning. nice.

---
 desktop/resources/space/flesh.png   | Bin 0 -> 1380 bytes
 desktop/src-common/advent/tween.clj |  53 ++++++++++++++++++++++++++++
 2 files changed, 53 insertions(+)
 create mode 100644 desktop/resources/space/flesh.png
 create mode 100644 desktop/src-common/advent/tween.clj

diff --git a/desktop/resources/space/flesh.png b/desktop/resources/space/flesh.png
new file mode 100644
index 0000000000000000000000000000000000000000..4387a9fcd1d5b5263ab956a434b6e95e334c011d
GIT binary patch
literal 1380
zcmV-q1)KVbP)<h;3K|Lk000e1NJLTq000yK000yS1^@s6jfou%000CeX+uL$Nkc;*
zP;zf(X>4Tx05}naRo`#hR1`jmZ&IWdKOk5~hl<6oRa0BJ8yc;~21%2p?MfD<>DVeH
z<T^KrsT&8|>9(p*dx19w`~g7O0}n_%Aq@s%d)fBDv`JHkDym6Hd+5XuAtvnwRpGmK
zVkc9?T=n|PIo~<wJLg{8L_J?=wVD}Kh?c9aozEndlcyGxo=u9<v(!ri)T`-EEs@L3
z5-!0N_s;9#9f}Cc?UC;OPWB_edW+oAi6T$HZWSGU8TbrQ%+zbPOBBBc`}k?M2Hf);
z@Y6N~0;>X-eVh__(Z?q}P9Z-Dj?gOW6|D%o20XmjW-qs4UjrD(li^iv8@eK9k+ZFm
zVRFymFOPAzG5-%Pn|1W;U4vNroTa&AxDScmEA~{ri9gr1^c?U@uwSpaNnw8l_>cP1
zd;)kMQS_;jeRSUEM_*s96y65j1$)tOrwdK{YIQMt92l|D^(E_=$Rjw{b!QT@q!)ni
zR`|5oW9X5n$Wv+HVc@|^eX5yXnsHX<gx$-tTA9oOBadXir_JPm2Y^4ct-PoO&C)tI
zGolvqOIK@duBk!Vu9{g<3;i;gJ6?~-DQ&xz!jvD&4!U-s8Os(*#?k2}f30SEXA#=i
z1-qUX+K`{!((H5w7<t$~ygD!D1{~X6)KX%$qrgY#L_{M_7A<1csY*MfP@XcB#Jxr~
zJS8&7goVS)VKE|4(h_Xlc{z{c$ApZs7riZ_QKdV_uW-M~u~<J-*#Z0?VzcZp8)p-w
zus7J7><CN2I>8PF3UX~a6)MwxDE0HaPjyrlI!;jX{6Kvuh*8ej?;85ekN$?5uuCiS
zBTvvVG+XTxAO{m@bvM#Jr)z6J><&E22D|vq?Y?Vkbo_DijopiF$2PET#<s%v*srlI
z{B2SKJ79W>mZ8e<cESmGBON_l0n;T7>u=y$(ArYkv7@Ex`GL?QCc!_*KFrd&;n1r7
zqW-CFs9&fT)ZaU5gc&=gBz-D<EBz>aCw(vdOp0__x+47~U6sC(E(JNe@4cTT*n6*E
zVH4eoU1-&7pEV~_PRe`a7v+@vy!^5}8?Y3)UmlaE<h}6h3HHql{T;m+bPBU-O|^S1
z@dOw&4<!bj2G_<^#e}PL7FpY$lcrKO$i~?8Bd2y;oaL5^csibnCrF9!i%-PI;xhub
zp1k;8_$IKX1NHus6EHeD;B72SCCD@4ojP$=Mf3`Eo6yZ&eg@wTqDiZE);7u&SJ|(s
zuPF(9%D6IJ)klXF%`_Fy<tR3HxV^%Qqa?nAB97=m-uu2qcHInZ?ps8M|H3=#R%lzO
z6MgLv^}ib0hVV{&<};#;2lcwW;^(7C<OY#bI<VjS9qCKr-E_Cnc!2j+&nHAXA2%BR
zt~VMxUn2h&(Pi^LSpac(Y#S>R0002{Nkl<ZI1%kqF%H5o40KBo8*>-dK7a=xu~Dgy
zVQ1z?NQ_84fCsR$FtZ^*MHh6DW16T#2L>WlIoszuCymH|{oD;?sfnsh)28aEowvI{
zqp%Gzk#aGT>+u!PkrQcJEgGoD#GrCJJ!Lxo^7jT5&6&|+A7@tj?d&fIbelaIrn8Gz
zU?=wz+6Eij<HD3DfhbLL0xQrbhNw0w>s6aQWa6I2tX{ez4M=1R1LlC4uhtXy_Zhpt
zOi>UaoLUs60AgbF1<xiXeAyqo2Mv)UMp1J-833aEa3{pJ#=PFa2_{5>3q<0v+@m~l
mI(IG7Nf;`bGD_73@qYvHn}1C;#b}}c0000<MNUMnLSTX%*Nx2p

literal 0
HcmV?d00001

diff --git a/desktop/src-common/advent/tween.clj b/desktop/src-common/advent/tween.clj
new file mode 100644
index 00000000..e950293a
--- /dev/null
+++ b/desktop/src-common/advent/tween.clj
@@ -0,0 +1,53 @@
+(ns advent.tween)
+
+(defn ease-in-expo [power t start delta duration]
+  (let [pct-done (/ t duration)
+        pct-done (Math/pow pct-done power)]
+    (+ start
+       (* delta pct-done))))
+
+(def ease-linear (partial ease-in-expo 1.0))
+(def ease-in-quadratic (partial ease-in-expo 2.0))
+(def ease-in-cubic (partial ease-in-expo 3.0))
+(def ease-in-quartic (partial ease-in-expo 4.0))
+(def ease-in-quintic (partial ease-in-expo 5.0))
+(def ease-in-dectic (partial ease-in-expo 10.0))
+
+(defn ease-in-out-quadratic [t start delta duration]
+  (let [t (/ t (/ duration 2))]
+    (if (< t 1)
+      (+ (* (/ delta 2)
+            t t)
+         start)
+      (let [t (dec t)]
+        (+ (* (/ (- delta) 2)
+              (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 tween [id screen path start end duration & {:keys [finish ease]}]
+  (let [ease (or ease ease-linear)
+        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)
+            new-val (ease delta-time start delta duration)
+            e (assoc-in e path (if (= 1.0 pct-done)
+                                 end
+                                 new-val))]
+        
+        (if (= 1.0 pct-done)
+          (update-in (finish e) [:tweens] dissoc id)
+          e)))))