X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=doc%2Fpst-anamorphosis-add.tex;h=d06c42c908a56c26132a1b310a2d8beb635c6e89;hb=55f1efea4238aaec8b4922d2454539f634b08064;hp=05a8722d9c3649fbd086e6acf9ae56ffb5326e60;hpb=b5bff73d413bccd45ba53b356f64421234755f4a;p=pst-anamorphosis.git diff --git a/doc/pst-anamorphosis-add.tex b/doc/pst-anamorphosis-add.tex index 05a8722..d06c42c 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.2} -\def\filedate{2011/10/13} +\def\fileversion{0.3} +\def\filedate{2011/10/19} \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,9 +103,12 @@ 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 @@ -336,7 +339,7 @@ stroke }% \end@SpecialObj% \endgroup% -} +}