summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/graphics/color.scm35
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)))