(in-package :gacela)
+(defmacro set-dimension (&key 2d 3d))
+
(defun draw (&rest vertexes)
(begin-draw (length vertexes))
(draw-vertexes vertexes)
(draw-vertexes (cdr vertexes)))))
(defun draw-vertex (vertex &key texture-coord)
- (cond ((consp (car vertex)) (apply #'glColor3f (car vertex)) (apply #'glVertex3f (cadr vertex)))
+ (cond ((consp (car vertex)) (draw-color (car vertex)) (apply #'glVertex3f (cadr vertex)))
(t (cond (texture-coord (apply #'glTexCoord2f texture-coord)))
(apply #'glVertex3f vertex))))
(multiple-value-bind
(texture width height) (load-texture filename)
(cond (texture
- (lambda (&optional (f 0.0172))
+ (lambda (&optional (f 1))
(draw-rectangle (* f width) (* f height) :texture texture))))))
(defun draw-quad (v1 v2 v3 v4 &key texture color)