diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/color.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/color.lux b/stdlib/source/lux/data/color.lux index 3340629c3..9e5c828e4 100644 --- a/stdlib/source/lux/data/color.lux +++ b/stdlib/source/lux/data/color.lux @@ -1,4 +1,4 @@ -(;module: +(.module: lux (lux (control [eq]) (data (coll [list "L/" Functor<List>])) @@ -36,7 +36,7 @@ (-> Color [Nat Nat Nat]) (|>> @repr)) - (struct: #export _ (eq;Eq Color) + (struct: #export _ (eq.Eq Color) (def: (= reference sample) (let [[rr rg rb] (@repr reference) [sr sg sb] (@repr sample)] @@ -148,7 +148,7 @@ (def: #export (from-hsb [hue saturation brightness]) (-> [Frac Frac Frac] Color) (let [hue (|> hue (f/* 6.0)) - i (math;floor hue) + i (math.floor hue) f (|> hue (f/- i)) p (|> 1.0 (f/- saturation) (f/* brightness)) q (|> 1.0 (f/- (f/* f saturation)) (f/* brightness)) @@ -230,7 +230,7 @@ (-> Color Color) (let [[red green blue] (unpack color) adjust (function [value] (|> top (n/- value)))] - (;;color [(adjust red) + (..color [(adjust red) (adjust green) (adjust blue)]))) @@ -289,7 +289,7 @@ (from-hsl [(|> idx nat-to-frac (f/* slice) (f/+ hue) normalize) saturation luminance])) - (list;n/range +0 (n/dec results)))))) + (list.n/range +0 (n/dec results)))))) (def: #export (monochromatic results color) (-> Nat Color (List Color)) @@ -297,7 +297,7 @@ (list) (let [[hue saturation brightness] (to-hsb color) slice (|> 1.0 (f// (nat-to-frac results)))] - (|> (list;n/range +0 (n/dec results)) + (|> (list.n/range +0 (n/dec results)) (L/map (|>> nat-to-frac (f/* slice) (f/+ brightness) |