summaryrefslogtreecommitdiff
path: root/metapost
diff options
context:
space:
mode:
Diffstat (limited to 'metapost')
-rw-r--r--metapost/context/base/mp-mlib.mpiv23
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