diff options
| -rw-r--r-- | chickadee/graphics/color.scm | 35 |
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))) |