+(define-macro (lambda-mesh . content)
+ `(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-basic-meshes ,@(cdr symbols))))))
+
+(define-basic-meshes
+ (rectangle video:draw-rectangle)
+ (square video:draw-square))