@@ -82,6 +82,7 @@ graphicsElement = prefix "Graphics"
8282graphicsColor = prefix "Color" clrs
8383 where clrs = [ numScheme (\n -> n ==> n ==> n ==> color) "rgb"
8484 , numScheme (\n -> n ==> n ==> n ==> n ==> color) "rgba"
85+ , "complement" -: color ==> color
8586 ] ++ hasType color ["red","green","blue","black","white"
8687 ,"yellow","cyan","magenta","grey","gray"]
8788