summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/texdraw/txdps.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/texdraw/txdps.tex')
-rw-r--r--Master/texmf-dist/tex/generic/texdraw/txdps.tex34
1 files changed, 22 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/generic/texdraw/txdps.tex b/Master/texmf-dist/tex/generic/texdraw/txdps.tex
index 16eb8a926f7..e5ea49e9ed9 100644
--- a/Master/texmf-dist/tex/generic/texdraw/txdps.tex
+++ b/Master/texmf-dist/tex/generic/texdraw/txdps.tex
@@ -18,8 +18,17 @@
% Canada H3A 2A7
% kabal@TSP.EE.McGill.CA
+
+% ===============================================================
+
\chardef\catamp=\the\catcode`\@
\catcode`\@=11
+
+% The TeXdraw macros assume that a PostScript currentpoint is always
+% defined. When using the following macros, always finish off with
+% by reestablishing a PostScript currentpoint. This can be done with
+% a \PSmoveto command.
+
\def\PSsetlinecap #1 {\writeps{#1 setlinecap}}
\def\PSsetlinejoin #1 {\writeps{#1 setlinejoin}}
\def\PSstroke {\writeps{stroke}}
@@ -27,19 +36,20 @@
\def\PSclosepath {\writeps{closepath}}
\def\PSfill {\writeps{fill}}
\def\PSlineto (#1 #2){\getpos (#1 #2)\a@rgx\a@rgy
-\s@etpospix \a@rgx \a@rgy
-\writeps {\the\x@pix\space \the\y@pix\space lineto}}
+ \s@etpospix \a@rgx \a@rgy
+ \writeps {\the\x@pix\space \the\y@pix\space lineto}}
\def\PSmoveto (#1 #2){\getpos (#1 #2)\a@rgx\a@rgy
-\s@etpospix \a@rgx \a@rgy
-\writeps {\the\x@pix\space \the\y@pix\space moveto}}
+ \s@etpospix \a@rgx \a@rgy
+ \writeps {\the\x@pix\space \the\y@pix\space moveto}}
\def\PSarc r:#1 sd:#2 ed:#3 (#4 #5){\getpos (#4 #5)\a@rgx\a@rgy
-\s@etpospix \a@rgx \a@rgy
-\coordtopix {#1}\t@pixa
-\writeps{\the\x@pix\space \the\y@pix\space
-\the\t@pixa\space #2 #3 arc}}
+ \s@etpospix \a@rgx \a@rgy
+ \coordtopix {#1}\t@pixa
+ \writeps{\the\x@pix\space \the\y@pix\space
+ \the\t@pixa\space #2 #3 arc}}
\def\PSarcn r:#1 sd:#2 ed:#3 (#4 #5){\getpos (#4 #5)\a@rgx\a@rgy
-\s@etpospix \a@rgx \a@rgy
-\coordtopix {#1}\t@pixa
-\writeps{\the\x@pix\space \the\y@pix\space
-\the\t@pixa\space #2 #3 arcn}}
+ \s@etpospix \a@rgx \a@rgy
+ \coordtopix {#1}\t@pixa
+ \writeps{\the\x@pix\space \the\y@pix\space
+ \the\t@pixa\space #2 #3 arcn}}
+
\catcode`\@=\catamp