summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex447
1 files changed, 138 insertions, 309 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex b/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex
index c7bfe3ded75..fa6df4f3d4f 100644
--- a/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex
+++ b/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex
@@ -21,13 +21,14 @@
\ifx\PSTricksAddLoaded\endinput\else\input pstricks-add.tex\fi
\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
%
-\def\fileversion{0.04}
-\def\filedate{2007/05/15}
+\def\fileversion{0.05}
+\def\filedate{2007/09/24}
\message{`PST-fractal' v\fileversion, \filedate\space (hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
\pst@addfams{pst-fractal}
\pstheader{pstricks-add.pro}
+\pstheader{pst-fractal.pro}
%\SpecialCoor
%
\newdimen\pst@fractal@xWidth
@@ -53,7 +54,9 @@
%
\define@key[psset]{pst-fractal}{angle}{\pst@getangle{#1}\pst@fractal@angle}
\define@key[psset]{pst-fractal}{c}{\pst@checknum{#1}\pst@fractal@c}
-\psset[pst-fractal]{angle=0,c=5}
+\newdimen\pst@fractal@minWidth
+\define@key[psset]{pst-fractal}{minWidth}{\pssetlength\pst@fractal@minWidth{#1}}
+\psset[pst-fractal]{angle=0,c=5,minWidth=1pt}
%
\define@key[psset]{pst-fractal}{scale}{\pst@getscale{#1}\pst@fractal@scale%
\let\pst@fractal@Xscale\pst@tempg}
@@ -78,57 +81,19 @@
\pst@getcoor{#2}\pst@temp@B
\pspicture(\pst@fractal@xWidth,\pst@fractal@yWidth)%
\addto@pscode{
- \pst@temp@A /MinY ED /MinX ED
- \pst@temp@B /MaxY ED /MaxX ED
- /MaxXPixel \pst@number\pst@fractal@xWidth def
- /MaxYPixel \pst@number\pst@fractal@yWidth def
- /rPixel 0.5 def
- /cx \pst@fractal@cx def
- /cy \pst@fractal@cy def
- /totMaxIter \pst@fractal@maxIter\space \pst@fractal@dIter\space mul def
-%
- /DX MaxX MinX sub def
- /DY MaxY MinY sub def
- /dx DX MaxXPixel div def /dy DY MaxYPixel div def
-%
- /convertX { MinX sub DX sub dx div } def % user -> pt
- /convertY { MinY sub dy div } def % user -> pt
- /convertXY { convertY exch convertX exch } def
-%
- /putPixel {% x y auf dem Stack in Benutzerkoordinaten
- convertXY
- rPixel 0 360 arc fill
- } def
-%
- MinX dx MaxX {
- \ifx\pst@fractal@type\pst@fractal@Julia /x exch def \else /cx exch def /x 0.0 def \fi
- MinY dy MaxY {
- \ifx\pst@fractal@type\pst@fractal@Julia /y exch def \else /cy exch def /y 0.0 def \fi
- /iter 0 def
- /zx x def
- /zy y def
- /plot true def
- totMaxIter cvi {
- zx dup mul zy dup mul add \pst@fractal@maxRadius\space 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
- /iter iter \pst@fractal@dIter add def
- } ifelse
- } repeat
- plot{
- \pst@usecolor\pst@fractal@baseColor
- x y putPixel
- }{ iter 400 add tx@addDict begin wavelengthToRGB
- Red Green Blue setrgbcolor end
- \ifx\pst@fractal@type\pst@fractal@Julia x y \else cx cy \fi
- putPixel stroke
- }ifelse % Plot point if point is in set
- } for
- } for
+ \pst@temp@A
+ \pst@temp@B
+ \pst@number\pst@fractal@xWidth
+ \pst@number\pst@fractal@yWidth
+ \pst@fractal@cx
+ \pst@fractal@cy
+ \pst@fractal@maxIter
+ \pst@fractal@dIter
+ \pst@fractal@maxRadius
+ { \pst@usecolor\pst@fractal@baseColor }
+ \ifx\pst@fractal@type\pst@fractal@Julia true \else false \fi
+ \ifPst@CMYK true \else false \fi ^^J%
+ tx@fractalDict begin tx@Fractal end ^^J%
}% end add@pscode
\endpspicture% end box
\end@SpecialObj%
@@ -141,34 +106,10 @@
\pst@getcoor{#3}\pst@temp@C
\begin@SpecialObj%
\addto@pscode{
- /Coor [ \pst@temp@A
- \pst@temp@B
- \pst@temp@C ] def
- /Sx 0 def /Sy 0 def
- /putPixel { 0.5 0 360 arc stroke } def % x y on stack
- /newPosition { % point # on stack
- Coor exch 2 getinterval aload pop
- /y exch def /x exch def
- x Sx sub 2 div Sx add /Sx exch def
- y Sy sub 2 div Sy add /Sy exch def
- Sx Sy putPixel
- } def
- /drawFrame {
- Coor aload pop
- newpath
- moveto
- nCoor 1 sub { lineto } repeat % n-1 times
- gsave 0.9 setgray fill grestore
- \pst@usecolor\pslinecolor
- closepath
- stroke
- } def
- /nCoor Coor length 2 div 0.5 add cvi def % # of dots
- drawFrame
- \pst@fractal@plotpoints\space cvi {
- rand nCoor mod
- dup add newPosition
- } repeat
+ [ \pst@temp@A \pst@temp@B \pst@temp@C ] ^^J%
+ { \pst@usecolor\pslinecolor } ^^J%
+ \pst@fractal@plotpoints ^^J%
+ tx@fractalDict begin tx@Sierpinski end ^^J%
}% end add@pscode
\end@SpecialObj%
}}
@@ -179,22 +120,12 @@
\pst@getcoor{#1}\pst@tempA
\begin@SpecialObj%
\addto@pscode{
- /c \pst@fractal@c def
- /angle \pst@fractal@angle dup 0 eq { pop 360 5 sqrt 1 add 2 div dup mul div } if def
- \pst@tempA translate
- \pst@fractal@maxIter cvi -1 0 {
- angle rotate
- 0 0 moveto
- dup sqrt c mul c lineto
- c c neg rlineto
- c neg dup rlineto
- closepath
- gsave
- 1 exch \pst@fractal@maxIter cvi div 90 mul cos 0 setrgbcolor
- fill
- grestore
- stroke
- } for
+ \pst@tempA
+ \pst@fractal@c
+ \pst@fractal@angle
+ \pst@fractal@maxIter
+ \ifPst@CMYK true \else false \fi ^^J%
+ tx@fractalDict begin tx@Phyllotaxis end ^^J%
}% end add@pscode
\end@SpecialObj%
}}
@@ -207,27 +138,13 @@
\pst@getcoor{#1}\pst@tempA%
\begin@SpecialObj%
\addto@pscode{
- \pst@tempA translate
- /m1 [ 0.00 0.00 0.00 0.16 0.00 0.00 ] def
- /m2 [ 0.85 -0.04 0.04 0.85 0.00 1.60 ] def
- /m3 [ 0.20 0.23 -0.26 0.22 0.00 1.60 ] def
- /m4 [ -0.15 0.26 0.28 0.24 0.00 0.44 ] def
- 10 10 scale \pst@fractal@scale
- 1 setlinecap
- \pst@number\pslinewidth SLW
- \pst@usecolor\pslinecolor
- 0 0 % start point
- \pst@fractal@maxIter cvi {
- % get a transformation matrix probabilistically
- /r rand 100 mod def
- r 1 lt { /m m1 def }{ r 86 lt
- { /m m2 def }{ r 93 lt {
- /m m3 def }{ /m m4 def } ifelse } ifelse } ifelse
- % Make a linear transformation, then
- % plot a point at current location
- m transform 2 copy \pst@fractal@radius 0 360 arc
- stroke
- } repeat
+ \pst@tempA
+ \pst@fractal@maxIter
+ \pst@fractal@radius
+ \pst@number\pslinewidth
+ { \pst@usecolor\pslinecolor }
+ \pst@fractal@scale ^^J%
+ tx@fractalDict begin tx@Fern end ^^J%
}% end add@pscode
\end@SpecialObj%
}}
@@ -239,32 +156,18 @@
\pst@getcoor{#1}\pst@tempA%
\begin@SpecialObj%
\addto@pscode{
- gsave
- \pst@tempA translate
- \pst@usecolor\pslinecolor
- 10 10 scale \pst@fractal@scale
- \pst@number\pslinewidth 10 div \pst@fractal@Xscale div SLW
- 45 rotate
- \pst@fractal@angle rotate
- /side {
- dup 0 gt {
- 1 sub 1 3 div dup scale side 60 rotate side
- -120 rotate side 60 rotate side 3 dup scale 1 add
- }{ 1 1 rlineto 1 1 translate } ifelse
- } def
- /star {
- dup currentlinewidth 1 1
- 4 -1 roll { pop 3 div } for
- setlinewidth
- 0 0 moveto
- side -120 rotate side -120 rotate side
- pop
- closepath
- } def
- \pst@fractal@maxIter star
+ gsave ^^J%
+ \pst@tempA translate
+ \pst@usecolor\pslinecolor
+ \pst@fractal@angle rotate ^^J%
+ \pst@number\pslinewidth 10 div \pst@fractal@Xscale div SLW ^^J%
+ \pst@fractal@maxIter ^^J%
+ tx@fractalDict begin ^^J%
+ \pst@fractal@scale ^^J%
+ tx@Kochflake end ^^J%
}% end add@pscode
\psk@fillstyle
- \addto@pscode{stroke}
+ \addto@pscode{stroke grestore }
\end@SpecialObj%
}}
%
@@ -275,152 +178,79 @@
\pst@getcoor{#1}\pst@tempA%
\begin@SpecialObj%
\addto@pscode{
- /icount 380 def
- /setWaveColor {
- /icount icount dup 780 gt { pop 380 }{ \pst@fractal@dIter add } ifelse def
- tx@addDict begin icount wavelengthToRGB
- Red Green Blue end setrgbcolor
- } def
- gsave
- \pst@tempA translate
- \pst@usecolor\pslinecolor
- \pst@fractal@scale
- /collect { [ 4 1 roll ] } def
- /nget { exch dup 3 1 roll exch get } def
- /polydup { 1 add [ exch 1 roll ] aload aload pop } def
- /circle { aload pop newpath 0 360 arc closepath
- \ifPst@fractal@Color
- gsave setWaveColor fill grestore \fi
- stroke } def
- /inverse {
- aload 4 1 roll 3 1 roll dup mul exch dup mul add exch dup mul sub
- dup 0 eq not {1 exch div} if
- exch
- aload pop
- 4 -1 roll dup 5 1 roll mul 3 1 roll
- 4 -1 roll dup 5 1 roll mul 3 1 roll
- 4 -1 roll dup 5 1 roll mul 3 1 roll
- 4 -1 roll pop
- dup 0 lt {neg} if
- collect
- } def
- /between {
- collect
- 0 nget 2 get exch 1 nget 2 get exch 3 1 roll
- lt {aload pop 3 1 roll exch 3 -1 roll collect} if
- 0 nget 2 get exch 2 nget 2 get exch 3 1 roll
- lt {aload pop 3 -1 roll exch 3 1 roll collect} if
- 1 nget 0 get exch 2 nget 2 get exch
- 2 nget 0 get exch 1 nget 2 get exch
- 1 nget 2 get exch 2 nget 2 get exch
- 7 1 roll add 5 1 roll mul 3 1 roll mul add exch div
- /xdisp exch def
- 1 nget 1 get exch 2 nget 2 get exch
- 2 nget 1 get exch 1 nget 2 get exch
- 1 nget 2 get exch 2 nget 2 get exch
- 7 1 roll add 5 1 roll mul 3 1 roll mul add exch div
- /ydisp exch def
- 0 nget aload pop 3 1 roll ydisp sub 3 1 roll xdisp sub 3 1 roll
- collect
- inverse dup
- /first exch def
- /second exch def
- 1 nget 1 get exch 2 nget 1 get exch 3 1 roll sub /xvect exch def
- 2 nget 0 get exch 1 nget 0 get exch 3 1 roll sub /yvect exch def
- xvect dup mul yvect dup mul add sqrt
- dup 0.0 eq not {first 2 get 2 mul exch div} if
- dup xvect mul /xvect exch def
- yvect mul /yvect exch def
- first aload pop 3 1 roll yvect add 3 1 roll xvect add 3 1 roll
- collect
- inverse /first exch def
- second aload pop 3 1 roll yvect sub 3 1 roll xvect sub 3 1 roll
- collect
- inverse /second exch def
- first second
- first 2 get second 2 get sub
- 0 gt { exch } if
- pop
- aload pop
- 3 1 roll ydisp add 3 1 roll xdisp add 3 1 roll collect
- exch pop
- } def
- /appol {
- aload pop 3 polydup between
- dup circle
- 2 nget CLW gt { 1 1 3 { pop 3 polydup collect 5 1 roll 4 -1 roll } for } if
- pop pop pop pop
- } def
- /inside {
- /temp exch def
- 0 120 240 {
- /angle exch def
- temp aload pop
- 3 sqrt 2 div 1 add div
- /radius exch def
- angle sin radius mul
- angle cos radius mul
- exch 4 -1 roll add
- 3 1 roll add
- radius 3 sqrt 2 div mul
- collect
- } for
- } def
-%
- \pst@number\pslinewidth SLW
- [ 0 0 \pst@number\pst@fractal@Radius ] dup inside 4 polydup
- 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
+ \pst@fractal@dIter
+ \pst@number\pst@fractal@Radius
+ \ifPst@fractal@Color true \else false \fi
+ \ifPst@CMYK true \else false \fi ^^J%
+ tx@fractalDict begin ^^J%
+ gsave ^^J%
+ \pst@tempA translate ^^J%
+ \pst@usecolor\pslinecolor
+ \pst@fractal@scale
+ \pst@number\pslinewidth SLW ^^J%
+ tx@Appolonius end ^^J%
}% end add@pscode
\psk@fillstyle%
- \addto@pscode{stroke}%
+ \addto@pscode{stroke grestore}%
\end@SpecialObj%
}}
%
\def\psPTree{\pst@object{psPTree}}
\def\psPTree@i{\@ifnextchar({\psPTree@ii}{\psPTree@ii(0,0)}}
\def\psPTree@ii(#1){{%
- \addbefore@par{xWidth=1cm,Color=false}%
+ \addbefore@par{xWidth=1cm,Color=false,c=0.5}%
\pst@getcoor{#1}\pst@tempA%
\begin@SpecialObj%
\addto@pscode{
- gsave
- \pst@tempA exch \pst@number\pst@fractal@xWidth 2 div sub exch translate
+ gsave ^^J%
+ \pst@tempA exch \pst@number\pst@fractal@xWidth 2 div sub exch translate ^^J%
\pst@usecolor\pslinecolor
\pst@fractal@scale
- \pst@number\pslinewidth \pst@fractal@Xscale div SLW
- /sqrt2 1.41421356237310 def
- /limit 1.2 def
- /r 1 def /g 0 def /b 0 def
- /icount 380 def
- /setWaveColor {
- /icount icount dup 780 gt { pop 380 }{ \pst@fractal@dIter add } ifelse def
- tx@addDict begin icount wavelengthToRGB
- Red Green Blue end setrgbcolor
- } def
- /box { % stack: size
- newpath
- 0 0 moveto
- dup 0 rlineto
- dup 0 exch rlineto
- dup 0.5 mul dup dup -1 mul exch rlineto
- -1 mul dup rlineto
- closepath
+ \pst@number\pslinewidth \pst@fractal@Xscale div SLW ^^J%
+ /sqrt2 1.41421356237310 def ^^J%
+ /minWidth \pst@number\pst@fractal@minWidth def
+ /r 1 def /g 0 def /b 0 def
+ /icount 380 def
+ /setWaveColor {
+ /icount icount dup 780 gt { pop 380 }{ \pst@fractal@dIter add } ifelse def ^^J%
+ tx@addDict begin icount ^^J%
+ \ifPst@CMYK wavelengthToCMYK Cyan Magenta Yellow Black end setcmykcolor ^^J%
+ \else wavelengthToRGB Red Green Blue end setrgbcolor \fi ^^J%
+ } def ^^J%
+ /Alpha1 { .5 1 \pst@fractal@c sub atan } bind def
+ /Alpha2 { .5 \pst@fractal@c atan } bind def
+ /box { \@percentchar stacksize ^^J % width on stack
+ /w ED
+ newpath %
+ 0 0 moveto %
+ w 0 rlineto % w 0 move right
+ 0 w rlineto % 0 w move up
+ w neg \pst@fractal@c mul w 0.5 mul % -c*w 0.5*w
+ rlineto % move left up
+ w \pst@fractal@c 1 sub mul % -(1-c)*w
+ w -0.5 mul rlineto % -(1-c)*w -0.5w move left down
+ closepath % close
\ifPst@fractal@Color
- setWaveColor fill
+ setWaveColor fill ^^J%
% r g b setrgbcolor fill r g b /g exch def /r exch def /b exch def
- \else stroke \fi
- dup limit gt {
- gsave
- dup dup sqrt2 div exch 0 exch translate 45 rotate box
+ \else stroke \fi %
+ w minWidth gt { % w w limit gt
+ gsave %
+ 0 w translate
+ Alpha1 rotate
+ w dup 0.5 mul 1 \pst@fractal@c sub w mul Pyth box % one w to leave on stack
+ grestore
+ gsave
+ dup dup dup % w w w w
+ 1 \pst@fractal@c sub mul % w w w w*(1-c)
+ exch 1.5 mul % w w w*(1-c) w*1.5
+ translate % w w
+ 360 Alpha2 sub rotate
+ 0.5 mul exch \pst@fractal@c mul Pyth box
grestore
- gsave
- dup sqrt2 div exch 2 div dup 3 mul translate 315 rotate box
- grestore
- }{ pop } ifelse
- } def
- \pst@number\pst@fractal@xWidth box
+ } if
+ } def
+ \pst@number\pst@fractal@xWidth box ^^J%
}% end add@pscode
\end@SpecialObj%
}}
@@ -432,42 +262,41 @@
\pst@getcoor{#1}\pst@tempA%
\begin@SpecialObj%
\addto@pscode{
- gsave
- \pst@tempA translate 0 0 moveto
- \pst@usecolor\pslinecolor
- \pst@fractal@scale
- /depth 0 def
- /depth++ { /depth depth 1 add def } def
- /depth-- { /depth depth 1 sub def } def
- /icount 380 def
- /setWaveColor {
- /icount icount dup 780 gt { pop 380 }{ \pst@fractal@dIter add } ifelse def
- tx@addDict begin icount wavelengthToRGB
- Red Green Blue end setrgbcolor
- } def
- /DoLine { % print a vert. line
- 0 \pst@number\pst@fractal@yWidth rlineto currentpoint
-% gsave
- \ifPst@fractal@Color setWaveColor \fi
- stroke
-% grestore
- translate 0 0 moveto
- } def
- /FractArrow {
- /sc exch def
- gsave
- sc dup scale
- \pst@number\pslinewidth SLW
- depth++ DoLine
- depth \pst@fractal@maxIter le {
- 135 rotate sc FractArrow
- -270 rotate sc FractArrow
- } if
- depth--
- grestore
- } def
- \pst@fractal@angle rotate
- #2 FractArrow
+ gsave ^^J%
+ \pst@tempA translate 0 0 moveto ^^J%
+ \pst@usecolor\pslinecolor ^^J%
+ \pst@fractal@scale ^^J%
+ /depth 0 def ^^J%
+ /depth++ { /depth depth 1 add def } def ^^J%
+ /depth-- { /depth depth 1 sub def } def ^^J%
+ /icount 380 def ^^J%
+ /setWaveColor { ^^J%
+ /icount icount dup 780 gt { pop 380 }{ \pst@fractal@dIter add } ifelse def ^^J%
+ tx@addDict begin icount ^^J%
+ \ifPst@CMYK wavelengthToCMYK Cyan Magenta Yellow Black end setcmykcolor ^^J%
+ \else wavelengthToRGB Red Green Blue end setrgbcolor \fi ^^J%
+ } def ^^J%
+ /DoLine { \@percentchar print a vert. line ^^J%
+ 0 \pst@number\pst@fractal@yWidth rlineto currentpoint ^^J%
+ \ifPst@fractal@Color setWaveColor \fi ^^J%
+ stroke ^^J%
+ translate 0 0 moveto ^^J%
+ } def ^^J%
+ /FractArrow { ^^J%
+ /sc exch def ^^J%
+ gsave ^^J%
+ sc dup scale ^^J%
+ \pst@number\pslinewidth SLW ^^J%
+ depth++ DoLine ^^J%
+ depth \pst@fractal@maxIter le { ^^J%
+ 135 rotate sc FractArrow ^^J%
+ -270 rotate sc FractArrow ^^J%
+ } if ^^J%
+ depth-- ^^J%
+ grestore ^^J%
+ } def ^^J%
+ \pst@fractal@angle rotate ^^J%
+ #2 FractArrow ^^J%
% 180 rotate #2 FractArrow
% stroke
}% end add@pscode