- (cond (texture
- (lambda (&optional (f 1))
- (draw-rectangle (* f width) (* f height) :texture texture))))))
-
-(defun draw-quad (v1 v2 v3 v4 &key texture color)
- (cond (texture (glBindTexture GL_TEXTURE_2D texture)
- (begin-draw 4)
- (draw-vertex v1 :texture-coord '(0 0))
- (draw-vertex v2 :texture-coord '(1 0))
- (draw-vertex v3 :texture-coord '(1 1))
- (draw-vertex v4 :texture-coord '(0 1))
- (glEnd))
- (t (cond (color (draw-color color)))
- (draw v1 v2 v3 v4))))
-
-(defun draw-rectangle (width height &key texture color)
+ (lambda (&optional (f 1))
+ (cond (texture
+ (draw-rectangle (* f width) (* f height) :texture texture))))))
+
+(defun draw-quad (v1 v2 v3 v4 &key texture)
+ (cond (texture (progn-textures
+ (glBindTexture GL_TEXTURE_2D texture)
+ (begin-draw 4)
+ (draw-vertex v1 :texture-coord '(0 0))
+ (draw-vertex v2 :texture-coord '(1 0))
+ (draw-vertex v3 :texture-coord '(1 1))
+ (draw-vertex v4 :texture-coord '(0 1))
+ (glEnd)))
+ (t (draw v1 v2 v3 v4))))
+
+(defun draw-rectangle (width height &key texture)