X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.scm;h=8fa9f52faac1994ee591856dcb6455bd888f22fd;hb=edf14e07f9f1db66cb75f10af54551034171725e;hp=6719f82aa471e93502aa21bf6af3032cf6f6859f;hpb=d93e90690ad41aae3203e93ba01cf8fa658203b3;p=gacela.git

diff --git a/src/gacela.scm b/src/gacela.scm
index 6719f82..8fa9f52 100644
--- a/src/gacela.scm
+++ b/src/gacela.scm
@@ -50,8 +50,8 @@
 		   define-mob
 		   lambda-mob
 		   define-checking-mobs)
-  #:re-export ;(translate
-	      ( get-frame-time
+  #:re-export (translate
+	       get-frame-time
 	       3d-mode?))
 
 
@@ -350,20 +350,20 @@
 		  (lambda (key . args) #f))
 	 (draw-views (cdr views)))))
 
-(define-macro (define-view name content)
-  `(begin
-     (hash-set! active-views ',name (lambda () (glmatrix-block ,content)))
-     ',name))
+;; (define-macro (define-view name content)
+;;   `(begin
+;;      (hash-set! active-views ',name (lambda () (glmatrix-block ,content)))
+;;      ',name))
 
 
 ;;; Views Primitives
 
-(define-macro (translate x y view-or-z . view)
-  (let* ((z (if (null? view) 0 view-or-z))
-	 (view (if (null? view) view-or-z (car view))))
-    `(begin
-       (gltranslate ,x ,y ,z)
-       ,view)))
+;(define-macro (translate x y view-or-z . view)
+;  (let* ((z (if (null? view) 0 view-or-z))
+;	 (view (if (null? view) view-or-z (car view))))
+;    `(begin
+;       (gltranslate ,x ,y ,z)
+;       ,view)))
 
 
 (module-map (lambda (sym var)