diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-08-27 12:34:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-08-27 12:34:00 +0200 |
| commit | 7eb8593f39b61673c90d12c2fc590933cedf3db0 (patch) | |
| tree | ac058c5e9596f806edfb03969fc39764e33d391e /metapost/context | |
| parent | 236b439da00fe0baaf9d7ad6ce684ecd6109555c (diff) | |
| download | context-7eb8593f39b61673c90d12c2fc590933cedf3db0.tar.gz | |
beta 2014.08.27 12:34
Diffstat (limited to 'metapost/context')
| -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 |