X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git;a=blobdiff_plain;f=doc%2Fpst-anamorphosis-add.tex;h=d06c42c908a56c26132a1b310a2d8beb635c6e89;hp=2ccbe12abd54526346b49363a0a6ea840da8923c;hb=b8d38e2e2c5f1dbf98be1211c87895cf836a989c;hpb=3c612ec138b61e63b59a3a5f19bf6fb945daf058 diff --git a/doc/pst-anamorphosis-add.tex b/doc/pst-anamorphosis-add.tex index 2ccbe12..d06c42c 100644 --- a/doc/pst-anamorphosis-add.tex +++ b/doc/pst-anamorphosis-add.tex @@ -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 @@ -107,7 +107,7 @@ n1 { \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 + \psk@dimen CLW mul sub /rayon exch def rayon xC add yC tx@anamorphosisPathDict begin Anamorphose end