diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/color.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/data/color.lux b/stdlib/source/lux/data/color.lux index 9e5c828e4..2a23c5406 100644 --- a/stdlib/source/lux/data/color.lux +++ b/stdlib/source/lux/data/color.lux @@ -3,7 +3,7 @@ (lux (control [eq]) (data (coll [list "L/" Functor<List>])) [math] - (type opaque))) + (type abstract))) (def: rgb Nat +256) (def: top Nat (n/dec rgb)) @@ -21,16 +21,16 @@ (-> Frac Nat) (|>> (f/* rgb-factor) frac-to-nat)) -(opaque: #export Color {} +(abstract: #export Color {} {#red Nat #green Nat #blue Nat} (def: #export (color [red green blue]) (-> [Nat Nat Nat] Color) - (@opaque [(n/% rgb red) - (n/% rgb green) - (n/% rgb blue)])) + (@abstract [(n/% rgb red) + (n/% rgb green) + (n/% rgb blue)])) (def: #export unpack (-> Color [Nat Nat Nat]) |