From e64d9ac338b9c8fd6696e3e8b8a21aa62588a905 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 25 Sep 2023 08:32:32 -0400
Subject: graphics: color: Remove old color mask code.

---
 chickadee/graphics/color.scm | 35 +----------------------------------
 1 file changed, 1 insertion(+), 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)))
-- 
cgit v1.2.3