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