X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=draw.lisp;h=a9988a6c5c9b7591af0b487d8927dec1e590b982;hp=5c4761daad8442d12d705cfd0b613d04795efe46;hb=470725f4a2f682d02fb15183cc596c7fa5c7b761;hpb=32d336f81c7ba63968f935b66d6b601ecf9d400b

diff --git a/draw.lisp b/draw.lisp
index 5c4761d..a9988a6 100755
--- 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)