diff options
Diffstat (limited to 'stdlib/source/lux/data/color.lux')
-rw-r--r-- | stdlib/source/lux/data/color.lux | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/stdlib/source/lux/data/color.lux b/stdlib/source/lux/data/color.lux index 3a094b01c..11da105cf 100644 --- a/stdlib/source/lux/data/color.lux +++ b/stdlib/source/lux/data/color.lux @@ -4,6 +4,7 @@ [equivalence (#+ Equivalence)]] [data [number + ["n" nat] ["." int] ["." rev ("#;." interval)] ["f" frac]] @@ -50,9 +51,9 @@ (def: #export (from-rgb [red green blue]) (-> RGB Color) - (:abstraction {#red (n/% rgb red) - #green (n/% rgb green) - #blue (n/% rgb blue)})) + (:abstraction {#red (n.% rgb red) + #green (n.% rgb green) + #blue (n.% rgb blue)})) (def: #export to-rgb (-> Color RGB) @@ -62,9 +63,9 @@ (def: (= reference sample) (let [[rr rg rb] (:representation reference) [sr sg sb] (:representation sample)] - (and (n/= rr sr) - (n/= rg sg) - (n/= rb sb))))) + (and (n.= rr sr) + (n.= rg sg) + (n.= rb sb))))) ) (def: #export (to-hsl color) @@ -268,7 +269,7 @@ (def: #export (complement color) (-> Color Color) (let [[red green blue] (to-rgb color) - adjust (function (_ value) (|> top (n/- value)))] + adjust (function (_ value) (|> top (n.- value)))] (from-rgb {#red (adjust red) #green (adjust green) #blue (adjust blue)}))) @@ -332,7 +333,7 @@ (def: #export (analogous results slice color) (-> Nat Frac Color (List Color)) - (if (n/= 0 results) + (if (n.= 0 results) (list) (let [[hue saturation luminance] (to-hsl color) slice (normalize slice)] @@ -344,7 +345,7 @@ (def: #export (monochromatic results color) (-> Nat Color (List Color)) - (if (n/= 0 results) + (if (n.= 0 results) (list) (let [[hue saturation brightness] (to-hsb color) slice (|> +1.0 (f./ (|> results .int int.frac)))] |