diff options
Diffstat (limited to 'metapost/context/base/mp-mlib.mpiv')
| -rw-r--r-- | metapost/context/base/mp-mlib.mpiv | 23 |
1 files changed, 8 insertions, 15 deletions
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 |