Removed some boilerplate.

[uxul-world.git] / opengl.lisp

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