- (draw-views (cdr views)))))
-
-;; (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)))