diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/texdraw/txdps.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/texdraw/txdps.tex | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/texdraw/txdps.tex b/Master/texmf-dist/tex/generic/texdraw/txdps.tex new file mode 100644 index 00000000000..16eb8a926f7 --- /dev/null +++ b/Master/texmf-dist/tex/generic/texdraw/txdps.tex @@ -0,0 +1,45 @@ +% TeXdraw macros to access PostScript builtins + +% $Id: txdps.tex,v 1.7 1993/04/10 texdraw-V2R0 $ + +% Copyright (C) 1991, 1992 Peter Kabal + +% The routines in this file are provided free of charge without +% warranty of any kind. Note that the TeXdraw routines are copyrighted. +% They may be distributed freely provided that the recipients also +% acquire the right to distribute them freely. The notices to this +% effect must be preserved when the files are distributed. + +% Peter Kabal +% Department of Electrical Engineering +% McGill University +% 3480 University +% Montreal, Quebec +% Canada H3A 2A7 + +% kabal@TSP.EE.McGill.CA +\chardef\catamp=\the\catcode`\@ +\catcode`\@=11 +\def\PSsetlinecap #1 {\writeps{#1 setlinecap}} +\def\PSsetlinejoin #1 {\writeps{#1 setlinejoin}} +\def\PSstroke {\writeps{stroke}} +\def\PSnewpath {\writeps{newpath}} +\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}} +\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}} +\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}} +\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}} +\catcode`\@=\catamp |