diff options
| author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
|---|---|---|
| committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
| commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
| tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/dvitops/pspict.sty | |
Initial commit
Diffstat (limited to 'dviware/dvitops/pspict.sty')
| -rw-r--r-- | dviware/dvitops/pspict.sty | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/dviware/dvitops/pspict.sty b/dviware/dvitops/pspict.sty new file mode 100644 index 0000000000..8088d5599d --- /dev/null +++ b/dviware/dvitops/pspict.sty @@ -0,0 +1,89 @@ +% $Header: /usr/jjc/dvitops/RCS/pspict.sty,v 1.2 90/08/14 13:02:13 jjc Rel $ +% modify the picture environment to use PostScript +% for LaTeX 2.09 + +\def\@prolog{pspict.ps} % the file containing the PostScript definitions +\newcount\arg@one +\newcount\arg@two +\newcount\arg@three +\newcount\arg@four +\newcount\arg@five +\newcount\arg@six +\newdimen\arrow@length +\newdimen\arrow@height +\newdimen\arg@temp +\arrow@length 4pt +\arrow@height 4pt + +\def\line(#1,#2)#3{% + \special{dvitops: prolog \@prolog}% + \arg@one=#1\relax + \arg@two=#2\relax + \arg@temp=#3\unitlength\relax + \arg@three=\arg@temp\relax + \arg@four=\@wholewidth\relax + \special{dvitops: inline + \the\arg@four\space\the\arg@one\space\the\arg@two\space\the\arg@three\space line}} + +\def\vector(#1,#2)#3{% + \special{dvitops: prolog \@prolog}% + \arg@one=#1\relax + \arg@two=#2\relax + \arg@temp=#3\unitlength\relax + \arg@three=\arg@temp\relax + \arg@four=\@wholewidth\relax + \arg@five=\arrow@length\relax + \arg@six=\arrow@height\relax + \special{dvitops: inline + \the\arg@five\space\the\arg@six\space\the\arg@four\space\the\arg@one\space + \the\arg@two\space\the\arg@three\space vector}} + +\def\arrowhead(#1,#2)#3#4{% + \special{dvitops: prolog \@prolog}% + \arg@one=#1\relax + \arg@two=#2\relax + \arg@temp=#3\unitlength\relax + \arg@three=\arg@temp\relax + \arg@temp=#4\unitlength\relax + \arg@four=\arg@temp\relax + \arg@five=\@wholewidth\relax + \special{dvitops: inline + \the\arg@three\space\the\arg@four\space\the\arg@five\space + \the\arg@one\space\the\arg@two\space arrowhead}} + +\def\circle{\@ifstar{\@dot}{\@circle}} +\def\@circle#1{% + \special{dvitops: prolog \@prolog}% + \arg@temp=#1\unitlength\relax + \arg@one=\arg@temp\relax + \arg@four=\@wholewidth\relax + \special{dvitops: inline \the\arg@four\space\the\arg@one\space circle}} + +\def\@dot#1{% + \special{dvitops: prolog \@prolog}% + \arg@temp=#1\unitlength\relax + \arg@one=\arg@temp\relax + \special{dvitops: inline \the\arg@one\space dot}} + +\def\oval(#1,#2){\@ifnextchar[{\@oval(#1,#2)}{\@oval(#1,#2)[]}} + +\def\@oval(#1,#2)[#3]{% + \special{dvitops: prolog \@prolog}% + \arg@temp=#1\unitlength\relax + \arg@one=\arg@temp\relax + \arg@temp=#2\unitlength\relax + \arg@two=\arg@temp\relax + \arg@four=\@wholewidth\relax + \special{dvitops: inline + \the\arg@four\space\the\arg@one\space\the\arg@two\space (#3) oval}} + +\def\ellipse(#1,#2){% + \special{dvitops: prolog \@prolog}% + \arg@temp=#1\unitlength\relax + \arg@one=\arg@temp\relax + \arg@temp=#2\unitlength\relax + \arg@two=\arg@temp\relax + \arg@three=\@wholewidth\relax + \special{dvitops: inline + \the\arg@three\space\the\arg@one\space\the\arg@two\space ellipse}} + |