From b344014638169aad6e5f6d2a9a703cb03a8b5064 Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Mon, 16 May 2016 00:21:21 +0200 Subject: 2016-05-15 20:51:00 --- metapost/context/base/mpiv/mp-page.mpiv | 1 + metapost/context/base/mpiv/mp-tool.mpiv | 10 +++++++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'metapost') diff --git a/metapost/context/base/mpiv/mp-page.mpiv b/metapost/context/base/mpiv/mp-page.mpiv index 07d264f60..2e4a2b437 100644 --- a/metapost/context/base/mpiv/mp-page.mpiv +++ b/metapost/context/base/mpiv/mp-page.mpiv @@ -665,6 +665,7 @@ enddef ; % for the moment we put these here: +string RuleDirection ; RuleDirection := "" ; string RuleOption ; RuleOption := "" ; numeric RuleWidth ; RuleWidth := 0 ; numeric RuleHeight ; RuleHeight := 0 ; diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv index 7696eb372..f7959e673 100644 --- a/metapost/context/base/mpiv/mp-tool.mpiv +++ b/metapost/context/base/mpiv/mp-tool.mpiv @@ -822,13 +822,21 @@ def colortype(expr c) = enddef ; vardef whitecolor(expr c) = - if cmykcolor c : (0,0,0,0) elseif rgbcolor c : (1,1,1) else : 1 fi + if cmykcolor c : (0,0,0,0) elseif rgbcolor c : (1,1,1) else : 1 fi enddef ; vardef blackcolor expr c = if cmykcolor c : (0,0,0,1) elseif rgbcolor c : (0,0,0) else : 0 fi enddef ; +vardef complementary expr c = ( + if cmykcolor c : (1,1,1,1) - + elseif rgbcolor c : (1,1,1) - + elseif pair c : (1,1) - + elseif numeric c : 1 - + fi c +) enddef ; + %D Well, this is the dangerous and naive version: def drawfill text t = -- cgit v1.2.3