Defining meshes as closures.

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index ad74c862621a6b183868611a6179bf7e052f46d0..3e5553dd816357c6f862bb50af35d2e3592cdd8e 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -67,6 +67,8 @@
            load-font
            load-font-without-texture
            render-text)
+  #:re-export (glPushMatrix
+              glPopMatrix)
   #:export-syntax (glmatrix-block))
 
 
@@ -375,11 +377,11 @@
 (define* (translate x y #:optional (z 0))
   (glTranslatef x y z))
 
-(define* (rotate #: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)