summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-10-15 20:24:03 +0000
committerKarl Berry <karl@freefriends.org>2022-10-15 20:24:03 +0000
commit509398cb59d3930b2f3c77ad69d9203aebf45d5f (patch)
treeee7918c69d5bc759c924d11055eaabb080a3c74b /Master/texmf-dist/dvips
parent19aeadee8fa32b9cc9192c6daba31bb08644a0d5 (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.pro27
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 {