diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/color.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/color.lux b/stdlib/source/lux/data/color.lux index 081d94674..dc15c8a6b 100644 --- a/stdlib/source/lux/data/color.lux +++ b/stdlib/source/lux/data/color.lux @@ -202,7 +202,7 @@ (let [dS (normalize ratio) dE (|> 1.0 (f/- dS)) interpolate' (: (-> Nat Nat Nat) - (function [end start] + (function (_ end start) (frac-to-nat (f/+ (f/* dE (nat-to-frac end)) (f/* dS (nat-to-frac start)))))) [redS greenS blueS] (unpack start) @@ -226,7 +226,7 @@ (def: #export (complement color) (-> Color Color) (let [[red green blue] (unpack color) - adjust (function [value] (|> top (n/- value)))] + adjust (function (_ value) (|> top (n/- value)))] (..color [(adjust red) (adjust green) (adjust blue)]))) @@ -282,7 +282,7 @@ (list) (let [[hue saturation luminance] (to-hsl color) slice (normalize slice)] - (L/map (function [idx] + (L/map (function (_ idx) (from-hsl [(|> idx nat-to-frac (f/* slice) (f/+ hue) normalize) saturation luminance])) |