diff options
Diffstat (limited to 'chickadee/graphics/polygon.scm')
-rw-r--r-- | chickadee/graphics/polygon.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chickadee/graphics/polygon.scm b/chickadee/graphics/polygon.scm index 1b6a5a7..69d9f83 100644 --- a/chickadee/graphics/polygon.scm +++ b/chickadee/graphics/polygon.scm @@ -34,6 +34,7 @@ fill-polygon-mode line-polygon-mode point-polygon-mode + g:polygon-mode current-polygon-mode make-cull-face-mode @@ -44,6 +45,7 @@ back-cull-face-mode front-cull-face-mode front-and-back-cull-face-mode + g:cull-face-mode current-cull-face-mode)) (define-record-type <polygon-mode> @@ -70,7 +72,7 @@ (gl-polygon-mode (cull-face-mode front) (glmode front)) (gl-polygon-mode (cull-face-mode back) (glmode back)))))) -(define-graphics-state polygon-mode +(define-graphics-state g:polygon-mode current-polygon-mode #:default fill-polygon-mode #:bind bind-polygon-mode) @@ -102,7 +104,7 @@ (else (gl-disable (enable-cap cull-face)))))) -(define-graphics-state cull-face-mode +(define-graphics-state g:cull-face-mode current-cull-face-mode #:default back-cull-face-mode #:bind bind-cull-face-mode) |