\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.3}
-\def\filedate{2011/10/19}
+\def\fileversion{0.2}
+\def\filedate{2011/10/13}
\message{`PSTANAMORPHOSISAdd' v\fileversion, \filedate}
/Y1 ED /X1 ED
TableauPoints i 1 add get aload pop
/Y2 ED /X2 ED
-0 0.01 1.0 { % k
+0 0.005 1.0 { % k
/K exch def
[
K X2 mul 1 K sub X1 mul add
\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
fill
grestore
stroke
+\ifPst@Anamorphose@image
% le texte dans le cercle
t@@x t@@y translate
s@@x s@@y scale
fill
grestore
stroke
+\fi
}%
\end@SpecialObj%
\endgroup%