set-camera
camera-look
load-font
- render-text))
+ render-text)
+ #:export-syntax (glmatrix-block)
+ #:re-export (glPushMatrix
+ glPopMatrix))
+
;;; Screen
(glLoadIdentity)
(cond ((3d-mode?) (camera-look))))
+(define-macro (glmatrix-block . code)
+ `(let ((result #f))
+ (glPushMatrix)
+ (set! result (begin ,@code))
+ (glPopMatrix)
+ result))
+
;;; Lights