Add type hint for complement
This commit is contained in:
parent
bff94a0d0d
commit
9b27e7d711
1 changed files with 1 additions and 0 deletions
|
@ -82,6 +82,7 @@ graphicsElement = prefix "Graphics"
|
||||||
graphicsColor = prefix "Color" clrs
|
graphicsColor = prefix "Color" clrs
|
||||||
where clrs = [ numScheme (\n -> n ==> n ==> n ==> color) "rgb"
|
where clrs = [ numScheme (\n -> n ==> n ==> n ==> color) "rgb"
|
||||||
, numScheme (\n -> n ==> n ==> n ==> n ==> color) "rgba"
|
, numScheme (\n -> n ==> n ==> n ==> n ==> color) "rgba"
|
||||||
|
, "complement" -: color ==> color
|
||||||
] ++ hasType color ["red","green","blue","black","white"
|
] ++ hasType color ["red","green","blue","black","white"
|
||||||
,"yellow","cyan","magenta","grey","gray"]
|
,"yellow","cyan","magenta","grey","gray"]
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue