diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/texdraw/txdps.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/texdraw/txdps.tex | 34 |
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 |