X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=functions.lisp;fp=functions.lisp;h=aa71ef54b495d50d189270a23780ed25fca9a13e;hp=2cbf8ca79d0902962b3e937ce8c1b9851395e7b6;hb=3a5b6fe5b066ace9e3d03ec20c96c224cdbeb0b8;hpb=bf3029cdab22e72b60b26e1fa23c1568dc78041d

diff --git a/functions.lisp b/functions.lisp
index 2cbf8ca..aa71ef5 100755
--- a/functions.lisp
+++ b/functions.lisp
@@ -570,8 +570,9 @@ are not zero"
   
 
 (defun old-draw-rectangle (obj &key (r 0) (g 0) (b 0))
-  (sdl:draw-rectangle-* (+ *current-translation-x* (x obj))
-			(+ *current-translation-y* (y obj))
-			(width obj)
-			(height obj)
+  (declare (type game-object obj))
+  (sdl:draw-rectangle-* (zoom-trans (+ *current-translation-x* (x obj)))
+			(zoom-trans (+ *current-translation-y* (y obj)))
+			(zoom-trans (width obj))
+			(zoom-trans (height obj))
 			:color (sdl:color :r r :g g :b b)))