New procedure-header procedure.

[gacela.git] / src / video.scm

diff --git a/src/video.scm b/src/video.scm
index d3fbdfb99743e062e215da74e126555baccd3529..3e5553dd816357c6f862bb50af35d2e3592cdd8e 100644 (file)
--- a/src/video.scm
+++ b/src/video.scm
@@ -58,8 +58,8 @@
            draw-rectangle
            draw-square
            draw-cube
-           gltranslate
-           glrotate
+           translate
+           rotate
            to-origin
            add-light
            set-camera
@@ -374,14 +374,14 @@
      (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)