graphics: color: Remove old color mask code.

1 files changed, 1 insertions, 34 deletions

diff --git a/chickadee/graphics/color.scm b/chickadee/graphics/color.scm
index 5548c87..8d0de1b 100644
--- a/chickadee/graphics/color.scm
+++ b/chickadee/graphics/color.scm
@@ -20,7 +20,6 @@
 ;;; Code:
 
 (define-module (chickadee graphics color)
-  #:use-module (chickadee graphics gl)
   #:use-module (chickadee math)
   #:use-module (ice-9 format)
   #:use-module (ice-9 match)
@@ -114,17 +113,7 @@
             db32-brown
             db32-mandy
             db32-plum
-            db32-stinger
-
-            default-color-mask
-            null-color-mask
-            g:color-mask
-            current-color-mask
-            color-mask?
-            color-mask-red?
-            color-mask-green?
-            color-mask-blue?
-            color-mask-alpha?))
+            db32-stinger))
 
 (define-record-type <color>
   (wrap-color bv)
@@ -368,25 +357,3 @@ a color object."
 (define db32-plum (make-color8 215 123 186))
 (define db32-rain-forest (make-color8 143 151 74))
 (define db32-stinger (make-color8 138 111 48))
-
-
-;;;
-;;; Color Masks
-;;;
-
-(define-record-type <color-mask>
-  (make-color-mask red? green? blue? alpha?)
-  color-mask?
-  (red? color-mask-red?)
-  (green? color-mask-green?)
-  (blue? color-mask-blue?)
-  (alpha? color-mask-alpha?))
-
-(define default-color-mask (make-color-mask #t #t #t #t))
-(define null-color-mask (make-color-mask #f #f #f #f))
-
-(define (bind-color-mask mask)
-  (gl-color-mask (color-mask-red? mask)
-                 (color-mask-green? mask)
-                 (color-mask-blue? mask)
-                 (color-mask-alpha? mask)))