Major Changes. Windows Compatibility.

[uxul-world.git] / functions.lisp

diff --git a/functions.lisp b/functions.lisp
index 2cbf8ca..aa71ef5 100755 (executable)
--- 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)))