summaryrefslogtreecommitdiff
path: root/tex/context/base/supp-pdf.tex
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2004-01-13 00:00:00 +0100
committerHans Hagen <pragma@wxs.nl>2004-01-13 00:00:00 +0100
commit0b61aa2fbf3667649962132eadfb1d78eab0be41 (patch)
tree781defc3254dcfbcb708a2c46e33ea9c0495c54d /tex/context/base/supp-pdf.tex
parent722c56251cf3c197a4a8474aa7024265ba284ec0 (diff)
downloadcontext-0b61aa2fbf3667649962132eadfb1d78eab0be41.tar.gz
stable 2004.01.13
Diffstat (limited to 'tex/context/base/supp-pdf.tex')
-rw-r--r--tex/context/base/supp-pdf.tex15
1 files changed, 14 insertions, 1 deletions
diff --git a/tex/context/base/supp-pdf.tex b/tex/context/base/supp-pdf.tex
index aed57b32e..7775842c2 100644
--- a/tex/context/base/supp-pdf.tex
+++ b/tex/context/base/supp-pdf.tex
@@ -396,6 +396,8 @@
\def \PSscale {scale}
\def \PSconcat {concat}
\def \PSdtransform {dtransform}
+\def \PSsetlinewidth {setlinewidth}
+\def \PSpop {pop}
\def \PSnfont {nfont} % was needed for TUG98 proceedings
\def \PSspecial {special} % extensions to MetaPost
@@ -662,6 +664,17 @@
\resetMPstack
\else\ifx\somestring\PSdtransform % == setlinewidth
\let\handleMPsequence\handleMPdtransform
+ % after that we will encounter more tokens until setlinewidth+pop
+ % or pop+setlinewidth which we catch next; we explicitly need to
+ % reset the stack since [] n setdash may follow; a more clever
+ % approach would be to read on till the condition is met, but it's
+ % the only pop / setlinewidth we will encounter so ...
+ \else\ifx\somestring\PSsetlinewidth
+ % already handled in dtransform
+ \resetMPstack
+ \else\ifx\somestring\PSpop
+ % already handled in dtransform
+ \resetMPstack
\else\ifx\somestring\PSconcat
\PDFcode{\gMPa1 \gMPa2 \gMPa3 \gMPa4 \gMPa5 \gMPa6 cm}%
\resetMPstack
@@ -704,7 +717,7 @@
\resetMPstack
\else
\handleMPgraphic% {#1}%
- \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
\handleMPsequence}
\def\dohandleMPsequenceC#1 %