diff options
author | Karl Berry <karl@freefriends.org> | 2022-10-15 20:24:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-10-15 20:24:03 +0000 |
commit | 509398cb59d3930b2f3c77ad69d9203aebf45d5f (patch) | |
tree | ee7918c69d5bc759c924d11055eaabb080a3c74b /Master/texmf-dist/dvips | |
parent | 19aeadee8fa32b9cc9192c6daba31bb08644a0d5 (diff) |
pst-fractal (14oct22)
git-svn-id: svn://tug.org/texlive/trunk@64714 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-fractal/pst-fractal.pro | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/Master/texmf-dist/dvips/pst-fractal/pst-fractal.pro b/Master/texmf-dist/dvips/pst-fractal/pst-fractal.pro index fcdc69bb99a..1c5fb9d9b75 100644 --- a/Master/texmf-dist/dvips/pst-fractal/pst-fractal.pro +++ b/Master/texmf-dist/dvips/pst-fractal/pst-fractal.pro @@ -16,7 +16,7 @@ %% `pst-fractal' is a PSTricks package to draw fractal objects %% %% -%% version 0.06 / 2017-12-04 Herbert Voss <hvoss _at_ tug.org> +%% version 0.07 / 2022-10-13 Herbert Voss <hvoss _at_ tug.org> % /tx@fractalDict 100 dict def tx@fractalDict begin @@ -68,17 +68,18 @@ tx@fractalDict begin MinY dy MaxY { ifJulia { /y exch def }{ /cy exch def /y 0.0 def } ifelse /iter 0 def - /zx x def - /zy y def + /z [x y] def + /c [cx cy] def /plot true def totMaxIter cvi { - zx dup mul zy dup mul add maxRadius gt { + z cxnorm2 maxRadius gt { /plot false def exit }{% Calculate next value - 2 zx zy mul mul cy add - /zx zx dup mul zy dup mul sub cx add def - /zy exch def +% z 5 cxexp c add +% z dup cxmul c cxadd + z FractalFunc + /z ED /iter iter dIter add def } ifelse } repeat @@ -100,6 +101,7 @@ tx@fractalDict begin % \pst@temp@C % { \pst@usecolor\pslinecolor } % \pst@fractal@plotpoints +20 dict begin /plotpoints ED /setColor ED /Coor ED @@ -128,6 +130,7 @@ tx@fractalDict begin rand nCoor mod dup add newPosition } repeat +end } def % /Rot-90 { @@ -139,6 +142,7 @@ tx@fractalDict begin } def % /tx@SierpinskiCurve { %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%25 dict begin /Pi [1.5 cmunit 1 cmunit 1 cmunit 0.5 cmunit 1 cmunit -0.5 cmunit @@ -224,6 +228,7 @@ tx@fractalDict begin useFill { gsave fillColor fill grestore } if % useLineStyle +%end } def % /tx@Phyllotaxis { %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -231,6 +236,7 @@ tx@fractalDict begin % \pst@fractal@c % \pst@fractal@angle % \pst@fractal@maxIter CMYK +10 dict begin /ifCMYK ED /maxIter ED /fractalAngle ED @@ -251,6 +257,7 @@ tx@fractalDict begin grestore stroke } for +end } def % /tx@Fern { %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -260,6 +267,7 @@ tx@fractalDict begin % \pst@fractal@radius % \pst@number\pslinewidth % { \pst@usecolor\pslinecolor } +20 dict begin /setColor ED SLW /radius ED @@ -284,6 +292,7 @@ tx@fractalDict begin m transform 2 copy radius 0 360 arc stroke } repeat +end } def % /tx@Kochflake { %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -325,6 +334,7 @@ tx@fractalDict begin % \pst@fractal@scale % \pst@number\pslinewidth SLW % +30 dict begin /ifCMYK ED /ifColor ED /Radius ED @@ -421,6 +431,7 @@ tx@fractalDict begin 1 1 4 { pop circle } for 1 1 4 { pop 3 polydup collect 5 1 roll 4 1 roll } for pop pop pop pop { count 0 eq { exit } if appol } loop +end } def % /tx@Hugo { %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -430,6 +441,7 @@ tx@fractalDict begin % \pst@fractal@maxIter, which is the depth % \pst@number\pslinewidth % { \pst@usecolor\pslinecolor } +50 dict begin /setColor ED SLW /depth ED @@ -542,6 +554,7 @@ realtime srand % drawfractal showpage } for drawfractal +end } def % end of /tx@Hugo % /FibonacciFractal { |