%%
%% This file is part of the MicroPress Picfast package.
%%
%% Copyright (c) 1999 by MicroPress, Inc.
%% All Rights Reserved.
%%
%------------------------------------------------------
%  History:
%
%  08/25/1999 - rewritten by Alex Kostin at MicroPress
%
%------------------------------------------------------
%
% This guarantees that `picfast.tex' can't be loaded twice.
% Also `picfast-tex' can be used to identify
% that Picfast has been included.
%
\expandafter\ifx\csname picfast-tex\endcsname\relax
   \expandafter\gdef\csname picfast-tex\endcsname{}%
\else
   \expandafter\endinput
\fi
%
\edef\picfasTsaveAt{\the\catcode`\@}%
\catcode`\@=11
%
\input fast.tex
%
\@ifundefined{@killglue}{%
  \def\@killglue{\unskip\@whiledim\lastskip>\z@\do{\unskip}}}{}%
%
\@ifundefined{@whilenoop}{\def\@whilenoop#1{}}{}%
\@ifundefined{@whiledim}{%
  \def\@whiledim#1\do #2{\ifdim #1\relax#2\@iwhiledim{#1\relax#2}\fi}}{}%
\@ifundefined{@iwhiledim}{%
  \def\@iwhiledim#1{\ifdim #1\let\@nextwhile\@iwhiledim
        \else\let\@nextwhile\@whilenoop\fi\@nextwhile{#1}}}{}%
%
\long\def\put(#1,#2)#3{\@killglue\raise#2\unitlength\hbox to \z@
  {\kern#1\unitlength #3\hss}\ignorespaces}%
%
\input picfast.sty
%
\def\oval(#1,#2){\@ifnextchar[{\@oval(#1,#2)}{\@oval(#1,#2)[]}}%
\def\circle{\@ifstar{\@dot}{\@circle}}%
\let\bezier\@bezier
%
\catcode`\@=\picfasTsaveAt\relax
\endinput
%%
%% End of file `picfast.tex'.
