diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/data/color.lux | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/stdlib/source/library/lux/data/color.lux b/stdlib/source/library/lux/data/color.lux index 40424f426..c6d5126f0 100644 --- a/stdlib/source/library/lux/data/color.lux +++ b/stdlib/source/library/lux/data/color.lux @@ -64,27 +64,27 @@ (-> Color RGB) (|>> representation)) - (implementation: .public equivalence + (def: .public equivalence (Equivalence Color) - - (def: (= reference sample) - (let [[rR gR bR] (representation reference) - [rS gS bS] (representation sample)] - (and (n.= rR rS) - (n.= gR gS) - (n.= bR bS))))) - - (implementation: .public hash + (implementation + (def: (= reference sample) + (let [[rR gR bR] (representation reference) + [rS gS bS] (representation sample)] + (and (n.= rR rS) + (n.= gR gS) + (n.= bR bS)))))) + + (def: .public hash (Hash Color) + (implementation + (def: equivalence ..equivalence) - (def: equivalence ..equivalence) - - (def: (hash value) - (let [[r g b] (representation value)] - (all i64.or - (i64.left_shifted 16 r) - (i64.left_shifted 8 g) - b)))) + (def: (hash value) + (let [[r g b] (representation value)] + (all i64.or + (i64.left_shifted 16 r) + (i64.left_shifted 8 g) + b))))) (def: .public black Color @@ -98,17 +98,17 @@ #green ..top #blue ..top])) - (implementation: .public addition + (def: .public addition (Monoid Color) + (implementation + (def: identity ..black) - (def: identity ..black) - - (def: (composite left right) - (let [[lR lG lB] (representation left) - [rR rG rB] (representation right)] - (abstraction [#red (n.max lR rR) - #green (n.max lG rG) - #blue (n.max lB rB)])))) + (def: (composite left right) + (let [[lR lG lB] (representation left) + [rR rG rB] (representation right)] + (abstraction [#red (n.max lR rR) + #green (n.max lG rG) + #blue (n.max lB rB)]))))) (def: (opposite_intensity value) (-> Nat Nat) @@ -121,17 +121,17 @@ #green (opposite_intensity green) #blue (opposite_intensity blue)]))) - (implementation: .public subtraction + (def: .public subtraction (Monoid Color) - - (def: identity ..white) - - (def: (composite left right) - (let [[lR lG lB] (representation (..complement left)) - [rR rG rB] (representation right)] - (abstraction [#red (n.min lR rR) - #green (n.min lG rG) - #blue (n.min lB rB)])))) + (implementation + (def: identity ..white) + + (def: (composite left right) + (let [[lR lG lB] (representation (..complement left)) + [rR rG rB] (representation right)] + (abstraction [#red (n.min lR rR) + #green (n.min lG rG) + #blue (n.min lB rB)]))))) ) (def: .public (hsl color) |