added better motion.

desktop/resources/ego/hold-up-to-window.pxa/CelData.plist

@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<array>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+	<dict>
+		<key>duration</key>
+		<real>1</real>
+	</dict>
+</array>
+</plist>

desktop/src-common/advent/screens/rooms/inside_antique.clj

@@ -141,7 +141,7 @@
                                                       (actions/talk entities :ego "It's a nice, big window."))
                           :scripts {:portrait (actions/get-script entities
                                                                   (actions/walk-to entities :ego [151 60] :face :right)
-                                                                  (actions/play-animation entities :ego :reach)
+                                                                  (actions/play-animation entities :ego :hold-up-to-window)
                                                                   (actions/talk entities :ego "The portrait says 'Herb' on the back.")
                                                                   (actions/update-state entities (fn [state] (update-in state [:clues] #(conj % :name)) )))}}}
                 :layers [(assoc (texture "inside-antique/background.png") :x 0 :y 0 :baseline 0)]

desktop/src-common/advent/screens/scene.clj

@@ -115,7 +115,8 @@
         fire-3-anim (animation 0.1 (for [i [0 1 2 2 2 2 3 2 3 2 2 2 4 5 6 7 2 2 2 8 9 10 11 2 2 2 2 2 2 2 2 0]]
                                      (texture  (aget fire-sheet 0 i)))) 
         grow (animation 0.1 (for [i [0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 3 0 0  0 0 3 0 0 0 3 3 0 0 0 2 2 0 0 2 0 0 2 0 2 0 2 0 2 0 2 0 2 3 2 3 2 3 2 3 2 4 3 4 3 4 3 4]]
-                              (texture (aget grow-sheet 0 i)))) 
+                              (texture (aget grow-sheet 0 i))))
+        hold-up-to-window (utils/make-anim "ego/hold-up-to-window.png" [18 36] 0.1 [0 1 2 3 3 3 3 3 3 3 3 3 4 4 4 4 3 3 4 4 3 3 4 4 5 4 5 5 5 5 5 5 5 5 5 5 4 4  3  3 3 3 3 3 3 2 1 0 0 0 0 0 0])
         ego {:right {:walk walk-right
                      :stand stand-anim
                      :talk talk-anim
@@ -125,6 +126,7 @@
                      :reach reach-anim
                      :cat-toy cat-toy-anim
                      :grow grow
+                     :hold-up-to-window hold-up-to-window
                      [:fire 1] fire-1-anim
                      [:fire 2] fire-2-anim
                      [:fire 3] fire-3-anim}
@@ -137,6 +139,7 @@
                     :reach (utils/flip reach-anim)
                     :cat-toy (utils/flip cat-toy-anim)
                     :grow (utils/flip grow)
+                    :hold-up-to-window (utils/flip hold-up-to-window)
                     [:fire 1] (utils/flip fire-1-anim)
                     [:fire 2] (utils/flip fire-2-anim)
                     [:fire 3] (utils/flip fire-3-anim)}