From 7eb8593f39b61673c90d12c2fc590933cedf3db0 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 27 Aug 2014 12:34:00 +0200 Subject: beta 2014.08.27 12:34 --- metapost/context/base/mp-mlib.mpiv | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-mlib.mpiv b/metapost/context/base/mp-mlib.mpiv index cc19b6805..157e2d0b1 100644 --- a/metapost/context/base/mp-mlib.mpiv +++ b/metapost/context/base/mp-mlib.mpiv @@ -76,27 +76,20 @@ def multitonecolor(expr name, fractions, components, value) = withprescript "sp_value=" & value enddef ; -% def transparent(expr alternative, transparency)(text c) = -% 1 % this permits withcolor x intoshade y -% withprescript "tr_alternative=" & decimal transparency_alternative_to_number(alternative) -% withprescript "tr_transparency=" & decimal transparency -% withcolor c -% enddef ; - -let transparency = pair ; - -def transparent(expr t)(text c) = +def transparent(expr a, t)(text c) = 1 % this permits withcolor x intoshade y - withprescript "tr_alternative=" & decimal transparency_alternative_to_number(xpart t) - withprescript "tr_transparency=" & decimal ypart t + withprescript "tr_alternative=" & decimal transparency_alternative_to_number(a) + withprescript "tr_transparency=" & decimal t withcolor c enddef ; -% def withtransparency(expr alternative, transparency) = -% withprescript "tr_alternative=" & decimal transparency_alternative_to_number(alternative) -% withprescript "tr_transparency=" & decimal transparency +% def withtransparency(expr a, t) = +% withprescript "tr_alternative=" & decimal transparency_alternative_to_number(a) +% withprescript "tr_transparency=" & decimal t % enddef ; +let transparency = pair ; + def withtransparency expr t = withprescript "tr_alternative=" & decimal transparency_alternative_to_number(xpart t) withprescript "tr_transparency=" & decimal ypart t -- cgit v1.2.3