diff options
| author | Hans Hagen <pragma@wxs.nl> | 2009-08-18 14:36:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2009-08-18 14:36:00 +0200 |
| commit | b4b3a706fa151ca1769854921a4424f52d9f7421 (patch) | |
| tree | a43c508034a66e3c8a49806cd57baf9411adfaf8 /tex/context/base/mlib-pps.lua | |
| parent | 9e7781a95addbf3c500abf5a49cfe2f68fe506c0 (diff) | |
| download | context-b4b3a706fa151ca1769854921a4424f52d9f7421.tar.gz | |
beta 2009.08.18 14:36
Diffstat (limited to 'tex/context/base/mlib-pps.lua')
| -rw-r--r-- | tex/context/base/mlib-pps.lua | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tex/context/base/mlib-pps.lua b/tex/context/base/mlib-pps.lua index 79c3dd34f..cf4fe69be 100644 --- a/tex/context/base/mlib-pps.lua +++ b/tex/context/base/mlib-pps.lua @@ -52,7 +52,7 @@ local innertransparency = nooutertransparency local pdfcolor, pdftransparency = lpdf.color, lpdf.transparency local registercolor, registerspotcolor = colors.register, colors.registerspotcolor -local registertransparencies = transparencies.register +local registertransparency = transparencies.register function metapost.set_outer_color(mode,colormodel,colorattribute,transparencyattribute) -- has always to be called before conversion @@ -178,11 +178,11 @@ end function metapost.specials.tr(specification,object,result) local a, t = match(specification,"^(.+),(.+)$") local before = a and t and function() - result[#result+1] = format("/Tr%s gs",registertransparencies('mp',a,t)) + result[#result+1] = format("/Tr%s gs",registertransparency(nil,a,t,true)) -- maybe nil instead of 'mp' return object, result end local after = before and function() - result[#result+1] = outertransparency -- here we could revert to teh outer color + result[#result+1] = outertransparency -- here we could revert to the outer color return object, result end return object, before, nil, after |