X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fviews.scm;h=b77256280c9e264b65930a6bce685232aad6c30e;hb=7f3b8919aa22d8fe01db4f57f679b8bfb75ab16e;hp=5fcf8549f22218bdd364ed5e2eb11bcc9cd48dfa;hpb=39f152a6692148c273b435f0b5047f5c885e5841;p=gacela.git

diff --git a/src/views.scm b/src/views.scm
index 5fcf854..b772562 100644
--- a/src/views.scm
+++ b/src/views.scm
@@ -26,15 +26,17 @@
      (hash-set! active-views ',name (lambda () (video:glmatrix-block ,content)))
      ',name))
 
-(define-macro (lambda-mesh . content)
-  `(lambda () ,content))
+(define-macro (mesh . content)
+  `(let ((x 0) (y 0) (z 0)
+	(angle 0))
+     (lambda () ,content)))
 
 (define-macro (define-basic-meshes . symbols)
   (cond ((null? symbols)
 	 `#t)
 	(else
 	 `(begin
-	    (define (,(caar symbols) . params) (lambda-visible (video:glmatrix-block (apply ,(cadar symbols) params))))
+	    (define (,(caar symbols) . params) (mesh (apply ,(cadar symbols) params)))
 	    (define-basic-meshes ,@(cdr symbols))))))
 
 (define-basic-meshes