\ifx\PSTnodesLoaded\endinput\else\input pst-node \fi
\ifx\MultidoLoaded\endinput\else \input multido.tex \fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
-\def\fileversion{0.2}
-\def\filedate{2011/10/13}
+\def\fileversion{0.3}
+\def\filedate{2011/10/19}
\message{`PSTANAMORPHOSISAdd' v\fileversion, \filedate}
\pssetlength\pst@dimc{#2}%
\def\pst@linetype{4}%
\addto@pscode{
+ \tx@optionsanamorphosis
+ \tx@optionsanamorphosisAdd
\pst@coor /yC exch def /xC exch def
\ifPst@SpecialLength \pst@SpecialLength \else \pst@number\pst@dimc \fi
- \psk@dimen CLW mul sub /rayon exch def
+ \psk@dimen CLW mul sub
+ /rayon exch def
rayon xC add yC
tx@anamorphosisPathDict begin Anamorphose end
moveto
}%
\end@SpecialObj%
\endgroup%
-}
+}