Removed some boilerplate.

[uxul-world.git] / draw.lisp

diff --git a/draw.lisp b/draw.lisp
index 5c4761d..a9988a6 100755 (executable)
--- a/draw.lisp
+++ b/draw.lisp
@@ -28,9 +28,9 @@
 
 (defmethod draw ((obj room))
   (let ((*current-translation-x*
-        (*  2 (- 400 (x (graphic-centralizer obj)))))
+        (* (- +screen-width+ (x (graphic-centralizer obj)))))
        (*current-translation-y*
-        (* 2 (- 300 (y (graphic-centralizer obj))))))
+        (* (- +screen-height+ (y (graphic-centralizer obj))))))
     (draw-background *current-translation-x* *current-translation-y*)
     (gl:scale *zoomx* (- *zoomy*) 1)
     (gl:translate *current-translation-x* *current-translation-y* 0)