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