% $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}}