X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=opengl.lisp;h=5337ae7b4ec8e07d143394e5402328020a82ba00;hp=907aa6d60cc019743324bc8553387959b7b3d8b0;hb=470725f4a2f682d02fb15183cc596c7fa5c7b761;hpb=32d336f81c7ba63968f935b66d6b601ecf9d400b

diff --git a/opengl.lisp b/opengl.lisp
index 907aa6d..5337ae7 100644
--- a/opengl.lisp
+++ b/opengl.lisp
@@ -16,8 +16,8 @@
     id))
 
 (defun make-quad (id x y w h)
-  (setf x (- (+ x x) +screen-width+ ))
-  (setf y (- (+ y y)  +screen-height+))
+  (setf x (- x +screen-width+ ))
+  (setf y (- y +screen-height+))
   (gl:bind-texture :texture-2d id)
   (gl:with-primitive :quads
     (gl:tex-coord 0 0) (gl:vertex x (+ y h))