X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=game-object-with-animation.lisp;fp=game-object-with-animation.lisp;h=f188e53949e8a322cf0026ab51316bec5869adb4;hp=993e72e57200163d1f6c87fbfe175b61708922dc;hb=3a5b6fe5b066ace9e3d03ec20c96c224cdbeb0b8;hpb=bf3029cdab22e72b60b26e1fa23c1568dc78041d

diff --git a/game-object-with-animation.lisp b/game-object-with-animation.lisp
index 993e72e..f188e53 100755
--- a/game-object-with-animation.lisp
+++ b/game-object-with-animation.lisp
@@ -10,7 +10,8 @@
   ((animation-translation :initarg :animation-translation
 			  :accessor animation-translation
 			  :initform (make-xy 0 0)
-			  :documentation "The translation of the animation")
+			  :documentation "The translation of the
+			  animation (in double zoom).")
    (animation :initarg :animation
 	      :accessor animation
 	      :documentation "The animation of this object")
@@ -55,9 +56,10 @@
 	 (+ (y obj) (height obj) (y bounds))
 	 (- *current-translation-x*)
 	 (- *current-translation-y*)
-	 (- +screen-width+ *current-translation-x*)
-	 (- +screen-height+ *current-translation-y*))
-	T)))
+	 (- (ash +screen-width+ (- *zoom-ash*)) *current-translation-x*)
+	 (- (ash +screen-height+ (- *zoom-ash*)) *current-translation-y*))
+	T))
+)