More meshes

[gacela.git] / src / views.scm

diff --git a/src/views.scm b/src/views.scm
index 5fcf8549f22218bdd364ed5e2eb11bcc9cd48dfa..b77256280c9e264b65930a6bce685232aad6c30e 100644 (file)
--- 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