summaryrefslogtreecommitdiff
path: root/chickadee/graphics/color.scm
diff options
context:
space:
mode:
Diffstat (limited to 'chickadee/graphics/color.scm')
-rw-r--r--chickadee/graphics/color.scm7
1 files changed, 1 insertions, 6 deletions
diff --git a/chickadee/graphics/color.scm b/chickadee/graphics/color.scm
index a43c7f0..fc7a1d6 100644
--- a/chickadee/graphics/color.scm
+++ b/chickadee/graphics/color.scm
@@ -142,12 +142,7 @@
(f32vector-ref (unwrap-color color) 3))
(define* (make-color r g b #:optional (a 1.0))
- (wrap-color
- (f32vector
- (clamp 0.0 1.0 r)
- (clamp 0.0 1.0 g)
- (clamp 0.0 1.0 b)
- (clamp 0.0 1.0 a))))
+ (wrap-color (f32vector r g b a)))
(define* (make-color8 r g b #:optional (a 255))
(make-color (/ r 255.0) (/ g 255.0) (/ b 255.0) (/ a 255.0)))