X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git;a=blobdiff_plain;f=doc%2Fpst-anamorphosis-add.tex;fp=doc%2Fpst-anamorphosis-add.tex;h=817ea7179200a95c7ee6b68521b12649040d6a42;hp=d06c42c908a56c26132a1b310a2d8beb635c6e89;hb=3d50dcaf4523ae589de4270650d4a7b95bacd96d;hpb=55f1efea4238aaec8b4922d2454539f634b08064

diff --git a/doc/pst-anamorphosis-add.tex b/doc/pst-anamorphosis-add.tex
index d06c42c..817ea71 100644
--- a/doc/pst-anamorphosis-add.tex
+++ b/doc/pst-anamorphosis-add.tex
@@ -13,8 +13,8 @@
 \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}
 
 
@@ -103,12 +103,9 @@ n1 {
     \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
@@ -326,6 +323,7 @@ gsave
     fill
 grestore
 stroke
+\ifPst@Anamorphose@image
 % le texte dans le cercle
 t@@x t@@y translate
 s@@x s@@y scale
@@ -336,6 +334,7 @@ gsave
     fill
 grestore
 stroke
+\fi
   }%
   \end@SpecialObj%
 \endgroup%