X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=doc%2Fpst-anamorphosis-add.tex;h=817ea7179200a95c7ee6b68521b12649040d6a42;hb=HEAD;hp=2ccbe12abd54526346b49363a0a6ea840da8923c;hpb=ac8f221af77763e59891cf65e9303f4f59747541;p=pst-anamorphosis.git

diff --git a/doc/pst-anamorphosis-add.tex b/doc/pst-anamorphosis-add.tex
index 2ccbe12..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}
 
 
@@ -62,7 +62,7 @@ n1 {
   /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
@@ -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%