aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/color.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-09-15 15:09:25 +0000
committerdos-reis <gdr@axiomatics.org>2011-09-15 15:09:25 +0000
commit9025c74466dcd1c38dde5e4c63934ff0b2e4f18d (patch)
tree447b28f9159920ca29a18fa9647bf7120dc3619c /src/algebra/color.spad.pamphlet
parentf5060cfd48a6993c7a6bd6b739e3d37bd234453a (diff)
downloadopen-axiom-9025c74466dcd1c38dde5e4c63934ff0b2e4f18d.tar.gz
* algebra/alql.spad.pamphlet (IndexCard): Now satisfies
CoercibleFrom String. Remove explicit coerce export. * algebra/carten.spad.pamphlet (CartesianTensor): Remove explicit coerce export. Add satisfaction of CoercibleFrom appropriate domains. * algebra/color.spad.pamphlet (Palette): Relace explicit coerce export with CoercibleTo %. * algebra/constant.spad.pamphlet (InnerAlgebraicNumber): Likewise. * algebra/dpolcat.spad.pamphlet (DifferentialVariableCategory): Likewise.
Diffstat (limited to 'src/algebra/color.spad.pamphlet')
-rw-r--r--src/algebra/color.spad.pamphlet5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/algebra/color.spad.pamphlet b/src/algebra/color.spad.pamphlet
index 76b8ea9b..32d76dd3 100644
--- a/src/algebra/color.spad.pamphlet
+++ b/src/algebra/color.spad.pamphlet
@@ -164,7 +164,7 @@ Palette(): Exports == Implementation where
C ==> Color
SHADE ==> ["Dark","Dim","Bright","Pastel","Light"]
- Exports ==> SetCategory with
+ Exports ==> Join(SetCategory,CoercibleFrom C) with
dark : C -> %
++ dark(c) sets the shade of the indicated hue of c to it's lowest value.
dim : C -> %
@@ -179,9 +179,6 @@ Palette(): Exports == Implementation where
++ hue(p) returns the hue field of the indicated palette p.
shade : % -> I
++ shade(p) returns the shade index of the indicated palette p.
- coerce : C -> %
- ++ coerce(c) sets the average shade for the palette to that of the
- ++ indicated color c.
Implementation ==> add
import I