draw-rectangle
draw-square
draw-cube
- gltranslate
- glrotate
+ translate
+ rotate
to-origin
add-light
set-camera
(glNormal3f -1 0 0)
(draw-quad (list -size -size size) (list -size -size -size) (list -size size -size) (list -size size size) #:texture (or texture-6 texture) #:color (or color-6 color)))))
-(define* (gltranslate x y #:optional (z 0))
+(define* (translate x y #:optional (z 0))
(glTranslatef x y z))
-(define* (glrotate #:rest rot)
+(define (rotate . rot)
(cond ((3d-mode?)
(apply 3d-rotate rot))
(else
- (apply 2d-rotate rot))))
+ (2d-rotate (car (last-pair rot))))))
(define (3d-rotate xrot yrot zrot)
(glRotatef xrot 1 0 0)