diff options
author | Karl Berry <karl@freefriends.org> | 2007-05-18 16:18:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-05-18 16:18:59 +0000 |
commit | e04af15e92b35556249aa0d9c27b77f25ce10ffe (patch) | |
tree | 696a12ee596c7972052577ed8f6fd2ce207f45c5 /Master/texmf-dist | |
parent | 05b75ea524d12bdf9cb722e3bbf577398a2c333d (diff) |
pst-fractal 0.04 (16may07)
git-svn-id: svn://tug.org/texlive/trunk@4308 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
51 files changed, 743 insertions, 102 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-fractal/Changes b/Master/texmf-dist/doc/generic/pst-fractal/Changes index 33204879dd4..950b39f641c 100755 --- a/Master/texmf-dist/doc/generic/pst-fractal/Changes +++ b/Master/texmf-dist/doc/generic/pst-fractal/Changes @@ -3,4 +3,12 @@ pst-fractal.sty -------- pst-fractal.tex -------- +0.04 2007-05-16 added the new macros + \psPhyllotaxis + \psFern + \psKochflake + \psAppolonius + \psPTree + \psFArrow + all with several new options 0.03 2007-04-05 first CTAN version diff --git a/Master/texmf-dist/doc/generic/pst-fractal/README b/Master/texmf-dist/doc/generic/pst-fractal/README index bafa6bd17fb..32ccef0e471 100644 --- a/Master/texmf-dist/doc/generic/pst-fractal/README +++ b/Master/texmf-dist/doc/generic/pst-fractal/README @@ -5,27 +5,19 @@ %% 2007-04-05 %% -PSTricks offers excellent macros to insert more or less complex -graphics into a document. pstricks.tex itself is the base for several -other additional packages, which are mostly named pst-xxxx, -like pst-fractal, which provides macros for the Julia and -Mandelbrot set and the Sierpinski triangle. - - Save the files pst-fractal.sty pst-fractal.tex in any place, where latex or any other TeX program will find it. -The pro file should go into $TEXMF$/dvips/pstricks/. pst-fractal uses the extended version of the keyval package. So be sure that you - have installed xkeyval with the special pst-xkey (CTAN: tex-archive/macros/latex/contrib/xkeyval/) - do not load another package after pst-fractal, which loads - the old keyval.sty or pst-key.tex + the old keyval.sty or pst-key.tex, eg. pst-node or pst-plot. If you like to get the documentation file in another format run @@ -34,13 +26,13 @@ latex pst-fractal-doc.tex bibtex pst-fractal.doc latex pst-fractal-doc.tex dvips pst-fractal-doc.dvi +ps2pdf pst-fractal-doc.ps (takes a long time!!!) -to get a PostScript file. But pay attention, that the pst-fractal +to get a PostScript or PDF file. But pay attention, that the pst-fractal files are saved in the above mentioned way, before you run latex on the documentation file. The intermediate DVI file works only with viewers which can interprete the embedded PostScript code. -For another PDF output read the Introduction from -the documentation. +For another PDF output read the section from the documentation. diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/1.png b/Master/texmf-dist/doc/generic/pst-fractal/images/1.png Binary files differnew file mode 100644 index 00000000000..10bc561dd15 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/1.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/10.png b/Master/texmf-dist/doc/generic/pst-fractal/images/10.png Binary files differnew file mode 100644 index 00000000000..4b8162995aa --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/10.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/11.png b/Master/texmf-dist/doc/generic/pst-fractal/images/11.png Binary files differnew file mode 100644 index 00000000000..b44ba9fef2b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/11.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/12.png b/Master/texmf-dist/doc/generic/pst-fractal/images/12.png Binary files differnew file mode 100644 index 00000000000..c1c76faa19e --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/12.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/13.png b/Master/texmf-dist/doc/generic/pst-fractal/images/13.png Binary files differnew file mode 100644 index 00000000000..d9098106d85 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/13.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/14.png b/Master/texmf-dist/doc/generic/pst-fractal/images/14.png Binary files differnew file mode 100644 index 00000000000..e1845099f6e --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/14.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/15.png b/Master/texmf-dist/doc/generic/pst-fractal/images/15.png Binary files differnew file mode 100644 index 00000000000..0f9a7f5ab7d --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/15.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/16.png b/Master/texmf-dist/doc/generic/pst-fractal/images/16.png Binary files differnew file mode 100644 index 00000000000..2f0ff09ac39 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/16.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/17.png b/Master/texmf-dist/doc/generic/pst-fractal/images/17.png Binary files differnew file mode 100644 index 00000000000..69e18c76b72 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/17.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/18.png b/Master/texmf-dist/doc/generic/pst-fractal/images/18.png Binary files differnew file mode 100644 index 00000000000..685334a34ce --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/18.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/19.png b/Master/texmf-dist/doc/generic/pst-fractal/images/19.png Binary files differnew file mode 100644 index 00000000000..0ea673ff870 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/19.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/2.png b/Master/texmf-dist/doc/generic/pst-fractal/images/2.png Binary files differnew file mode 100644 index 00000000000..09ee953ff62 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/2.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/20.png b/Master/texmf-dist/doc/generic/pst-fractal/images/20.png Binary files differnew file mode 100644 index 00000000000..dcbaa8dbfa6 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/20.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/21.png b/Master/texmf-dist/doc/generic/pst-fractal/images/21.png Binary files differnew file mode 100644 index 00000000000..ce45cbd246c --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/21.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/22.png b/Master/texmf-dist/doc/generic/pst-fractal/images/22.png Binary files differnew file mode 100644 index 00000000000..939153997b9 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/22.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/23.png b/Master/texmf-dist/doc/generic/pst-fractal/images/23.png Binary files differnew file mode 100644 index 00000000000..458ef5572d9 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/23.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/24.png b/Master/texmf-dist/doc/generic/pst-fractal/images/24.png Binary files differnew file mode 100644 index 00000000000..8f0bac1c23a --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/24.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/25.png b/Master/texmf-dist/doc/generic/pst-fractal/images/25.png Binary files differnew file mode 100644 index 00000000000..3d127beff9a --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/25.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/26.png b/Master/texmf-dist/doc/generic/pst-fractal/images/26.png Binary files differnew file mode 100644 index 00000000000..900b6a5a23c --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/26.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/27.png b/Master/texmf-dist/doc/generic/pst-fractal/images/27.png Binary files differnew file mode 100644 index 00000000000..819c055c91d --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/27.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/28.png b/Master/texmf-dist/doc/generic/pst-fractal/images/28.png Binary files differnew file mode 100644 index 00000000000..8f1ad0b36ee --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/28.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/29.png b/Master/texmf-dist/doc/generic/pst-fractal/images/29.png Binary files differnew file mode 100644 index 00000000000..d116db9f0be --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/29.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/3.png b/Master/texmf-dist/doc/generic/pst-fractal/images/3.png Binary files differnew file mode 100644 index 00000000000..aa274420d4f --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/3.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/30.png b/Master/texmf-dist/doc/generic/pst-fractal/images/30.png Binary files differnew file mode 100644 index 00000000000..e4f630c314e --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/30.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/31.png b/Master/texmf-dist/doc/generic/pst-fractal/images/31.png Binary files differnew file mode 100644 index 00000000000..e9f4124fe50 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/31.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/32.png b/Master/texmf-dist/doc/generic/pst-fractal/images/32.png Binary files differnew file mode 100644 index 00000000000..80a02c3cde9 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/32.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/33.png b/Master/texmf-dist/doc/generic/pst-fractal/images/33.png Binary files differnew file mode 100644 index 00000000000..d8991f60b8e --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/33.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/34.png b/Master/texmf-dist/doc/generic/pst-fractal/images/34.png Binary files differnew file mode 100644 index 00000000000..78ed295ecc2 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/34.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/35.png b/Master/texmf-dist/doc/generic/pst-fractal/images/35.png Binary files differnew file mode 100644 index 00000000000..c5edc325bd0 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/35.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/36.png b/Master/texmf-dist/doc/generic/pst-fractal/images/36.png Binary files differnew file mode 100644 index 00000000000..2a8e66daabe --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/36.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/37.png b/Master/texmf-dist/doc/generic/pst-fractal/images/37.png Binary files differnew file mode 100644 index 00000000000..766df056681 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/37.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/38.png b/Master/texmf-dist/doc/generic/pst-fractal/images/38.png Binary files differnew file mode 100644 index 00000000000..1304823e494 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/38.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/39.png b/Master/texmf-dist/doc/generic/pst-fractal/images/39.png Binary files differnew file mode 100644 index 00000000000..e68fe33cbe1 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/39.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/4.png b/Master/texmf-dist/doc/generic/pst-fractal/images/4.png Binary files differnew file mode 100644 index 00000000000..6c1a0213435 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/4.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/40.png b/Master/texmf-dist/doc/generic/pst-fractal/images/40.png Binary files differnew file mode 100644 index 00000000000..1f499f9e303 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/40.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/41.png b/Master/texmf-dist/doc/generic/pst-fractal/images/41.png Binary files differnew file mode 100644 index 00000000000..a180e40a97b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/41.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/42.png b/Master/texmf-dist/doc/generic/pst-fractal/images/42.png Binary files differnew file mode 100644 index 00000000000..b237a48041b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/42.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/43.png b/Master/texmf-dist/doc/generic/pst-fractal/images/43.png Binary files differnew file mode 100644 index 00000000000..a74adab8101 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/43.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/5.png b/Master/texmf-dist/doc/generic/pst-fractal/images/5.png Binary files differnew file mode 100644 index 00000000000..21fb2d78cbc --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/5.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/6.png b/Master/texmf-dist/doc/generic/pst-fractal/images/6.png Binary files differnew file mode 100644 index 00000000000..10bc561dd15 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/6.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/7.png b/Master/texmf-dist/doc/generic/pst-fractal/images/7.png Binary files differnew file mode 100644 index 00000000000..aa274420d4f --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/7.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/8.png b/Master/texmf-dist/doc/generic/pst-fractal/images/8.png Binary files differnew file mode 100644 index 00000000000..c08a59c628a --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/8.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/images/9.png b/Master/texmf-dist/doc/generic/pst-fractal/images/9.png Binary files differnew file mode 100644 index 00000000000..381e5751afa --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-fractal/images/9.png diff --git a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.bib b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.bib index 3b785845e22..c8b11d8a899 100644 --- a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.bib +++ b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.bib @@ -38,15 +38,6 @@ } -@Manual{pstlens:2001, - Title = {PST-lens - {\PS} macros for Generic TeX}, - Author = {Denis Girou and Manuel Luque}, - Organization = {}, - Address = {\url{ftp://ftp.dante.de/tex-archive/graphics/pstricks/contrib/pst-lens/}}, - Note = {}, - year = 2001, -} - @Manual{vue3d:2002, Title = {Vue en 3D}, Author = {Manuel Luque}, diff --git a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.pdf b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.pdf Binary files differindex 63725ffbc40..aa0705dd80f 100644 --- a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.pdf +++ b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.pdf diff --git a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.tex b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.tex index 430f66d6eb5..9103b7a2394 100644 --- a/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.tex +++ b/Master/texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.tex @@ -5,15 +5,57 @@ \usepackage{amsmath} \usepackage{graphicx} \usepackage{geometry,lmodern} -\usepackage{pstricks} -\usepackage{showexpl} -%\lstset{wide=true} +\usepackage{xcolor} +%\usepackage{pstricks} +\usepackage{listings} +%\usepackage{pst-pdf} + +\makeatletter +\def\img{\@ifnextchar[{\img@i}{\img@i[0]}} +\def\img@i[#1]{\@ifnextchar[{\img@ii[#1]}{\img@ii[0][#1]}} +\def\img@ii[#1][#2]#3{\begin{center} +\ifnum#1>0 \includegraphics[scale=0.5]{images/#1}\fi\quad +\ifnum#2>0 \includegraphics[scale=0.5]{images/#2}\fi\quad +\includegraphics[scale=0.5]{images/#3}\end{center}} +\makeatletter + +\definecolor{hellgelb}{rgb}{1,1,0.85} +\definecolor{colKeys}{rgb}{0,0,1} +\definecolor{colIdentifier}{rgb}{0,0,0} +\definecolor{colComments}{rgb}{1,0,0} +\definecolor{colString}{rgb}{0,0.5,0} +\lstset{ + language=PSTricks,% + basicstyle=\footnotesize\ttfamily,% + identifierstyle=\color{colIdentifier},% + keywordstyle=\color{colKeys},% + stringstyle=\color{colString},% + stringstyle=\itshape\color{colComments},% + commentstyle=\itshape\color{colComments},% + columns=fixed, + tabsize=4,% + frame=single,% + extendedchars=true,% + showspaces=false,% + showstringspaces=false,% + numbers=left,% + numberstyle=\tiny\ttfamily,% + numbersep=1em,% + breaklines=true,% + breakindent=10pt,% + backgroundcolor=\color{hellgelb},% + breakautoindent=true,% + captionpos=t,% + xleftmargin=1em,% +} + \usepackage{pst-fractal} \let\myFV\fileversion + \usepackage{url} \usepackage[bottom]{footmisc} \usepackage{fancyhdr} -\usepackage{abstract} +%\usepackage{abstract} \pagestyle{fancy} \usepackage{url} \def\UrlFont{\small\ttfamily} @@ -84,15 +126,15 @@ z_0 &= (x_0;y_0) $(x_0;y_0)$ is the starting value. -\begin{LTXexample}[width=3cm] +\img{1} +\begin{lstlisting} \psfractal -\end{LTXexample} +\end{lstlisting} -\begin{LTXexample}[width=5cm] -\psfractal[xWidth=5cm,yWidth=5cm, - baseColor=white, - dIter=20](-2,-2)(2,2) -\end{LTXexample} +\img{2} +\begin{lstlisting} +\psfractal[xWidth=4cm,yWidth=4cm, baseColor=white, dIter=20](-2,-2)(2,2) +\end{lstlisting} \subsection{Mandelbrot sets} @@ -107,17 +149,16 @@ C(x,y) &= (x_0;y_0) $(x_0;y_0)$ is the starting value. - -\begin{LTXexample}[width=3cm] +\img{3} +\begin{lstlisting} \psfractal[type=Mandel] -\end{LTXexample} +\end{lstlisting} + -\begin{LTXexample}[width=6.5cm] -\psfractal[type=Mandel, - xWidth=6cm,yWidth=4.8cm, - baseColor=white, - dIter=10](-2,-1.2)(1,1.2) -\end{LTXexample} +\img{4} +\begin{lstlisting} +\psfractal[type=Mandel, xWidth=6cm, yWidth=4.8cm, baseColor=white, dIter=10](-2,-1.2)(1,1.2) +\end{lstlisting} \subsection{Sierpinski triangle} @@ -130,11 +171,12 @@ The triangle must be given by three mandatory arguments: In difference to \verb|psfractal| it doesn't reserve any space, this is the reason why it should be part of a \verb|pspicture| environment. -\begin{LTXexample}[width=6.5cm] +\img{5} +\begin{lstlisting} \begin{pspicture}(5,5) \psSier(0,0)(2,5)(5,0) \end{pspicture} -\end{LTXexample} +\end{lstlisting} \section{The options} @@ -142,84 +184,330 @@ reason why it should be part of a \verb|pspicture| environment. \subsection{\texttt{type}} Can be of "`Julia"' (default) or "`Mandel"'. -\begin{LTXexample}[width=4.5cm] -\psfractal\quad \psfractal[type=Mandel] -\end{LTXexample} - +\img[6]{7} +\begin{lstlisting} +\psfractal +\psfractal[type=Mandel] +\end{lstlisting} \subsection{\texttt{baseColor}} The color for the convergent part. -\begin{LTXexample}[pos=t] -\psfractal[xWidth=5cm,yWidth=5cm,dIter=10](-2,-2)(2,2)\quad -\psfractal[xWidth=5cm,yWidth=5cm,baseColor=white,dIter=10](-2,-2)(2,2) -\end{LTXexample} - +\img[8]{9} +\begin{lstlisting} +\psfractal[xWidth=4cm,yWidth=4cm,dIter=30](-2,-2)(2,2) +\psfractal[xWidth=4cm,yWidth=4cm,baseColor=yellow,dIter=30](-2,-2)(2,2) +\end{lstlisting} \subsection{\texttt{xWidth} and \texttt{yWidth}} These values define the physical width of the fractal. -\begin{LTXexample}[pos=t] +\img{10} +\begin{lstlisting} \psfractal[type=Mandel,xWidth=12.8cm,yWidth=10.8cm,dIter=5](-2.5,-1.3)(0.7,1.3) -\end{LTXexample} +\end{lstlisting} \subsection{\texttt{cx} and \texttt{cy}} Define the starting value for the complex constant number $C$. -\begin{LTXexample}[pos=t] +\img[11]{12} +\begin{lstlisting} \psset{xWidth=5cm,yWidth=5cm} -\psfractal[dIter=2](-2,-2)(2,2)\quad \psfractal[dIter=2,cx=-1.3,cy=0](-2,-2)(2,2) -\end{LTXexample} +\psfractal[dIter=2](-2,-2)(2,2) +\psfractal[dIter=2,cx=-1.3,cy=0](-2,-2)(2,2) +\end{lstlisting} \subsection{\texttt{dIter}} The color is set by wavelength to RGB conversion of the iteration number, where \verb+dIter+ is the step, predefined by 1. The wavelength is given by the value of iter added by 400. -\begin{LTXexample}[pos=t] +\img[13]{14} +\begin{lstlisting} \psset{xWidth=5cm,yWidth=5cm} -\psfractal[dIter=30](-2,-2)(2,2)\quad \psfractal[dIter=10,cx=-1.3,cy=0](-2,-2)(2,2) -\end{LTXexample} - +\psfractal[dIter=30](-2,-2)(2,2) +\psfractal[dIter=10,cx=-1.3,cy=0](-2,-2)(2,2) +\end{lstlisting} \subsection{\texttt{maxIter}} \verb+maxIter+ is the number of the maximum iteration until it leaves the loop. It is predefined by 255, but internally multiplied by \texttt{dIter}. -\begin{LTXexample}[pos=t] +\img[15]{16} +\begin{lstlisting} \psset{xWidth=5cm,yWidth=5cm} -\psfractal[maxIter=50,dIter=3](-2,-2)(2,2)\quad +\psfractal[maxIter=50,dIter=3](-2,-2)(2,2) \psfractal[maxIter=30,cx=-1.3,cy=0](-2,-2)(2,2) -\end{LTXexample} +\end{lstlisting} \subsection{\texttt{maxRadius}} -if the square of distance of $z_n$ to the origin of the complex coordinate system +If the square of distance of $z_n$ to the origin of the complex coordinate system is greater as \texttt{maxRadius} then the algorithm leaves the loop and sets the point. \texttt{maxRadius} should always be the square of the "`real"' value, it is preset by 100. -\begin{LTXexample}[pos=t] +\img[17]{18} +\begin{lstlisting} \psset{xWidth=5cm,yWidth=5cm} -\psfractal[maxRadius=30,dIter=10](-2,-2)(2,2)\quad +\psfractal[maxRadius=30,dIter=10](-2,-2)(2,2) \psfractal[maxRadius=30,dIter=30,cx=-1.3,cy=0](-2,-2)(2,2) -\end{LTXexample} +\end{lstlisting} \subsection{\texttt{plotpoints}} This option is only valid for the Sierpinski triangle and preset by 2000. -\begin{LTXexample}[pos=t] +\img[19]{20} +\begin{lstlisting} \begin{pspicture}(5,5) \psSier(0,0)(2.5,5)(5,0) -\end{pspicture}\quad +\end{pspicture} \begin{pspicture}(5,5) \psSier[plotpoints=10000](0,0)(2.5,5)(5,0) \end{pspicture} -\end{LTXexample} +\end{lstlisting} + + +\section{Phyllotaxis} +The beautiful arrangement of leaves in some plants, called phyllotaxis, +obeys a number of subtle mathematical relationships. For instance, the florets +in the head of a sunflower form two oppositely directed spirals: 55 of them clockwise +and 34 counterclockwise. Surprisingly, these numbers are consecutive Fibonacci numbers. +The Phyllotaxis is like a Lindenmayer system. + +\begin{verbatim} +\psPhyllotaxis[settings](x,y) +\end{verbatim} + +The coordinates of the center are optional, if they are missing, then $(0,0)$ +is assumed. + + +\img{21} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-3,-3)(3,3) + \psPhyllotaxis +\end{pspicture}} +\end{lstlisting} + + + +\img{22} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-3,-3)(4,4) + \psPhyllotaxis(1,1) +\end{pspicture}} +\end{lstlisting} + +\subsection{\texttt{angle}} + +\img{23} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-2.5,-2.5)(2.5,2.5) + \psPhyllotaxis[angle=99] +\end{pspicture}} +\end{lstlisting} + +\subsection{\texttt{c}} +This is the length of one element in the unit pt. +\img{24} +\begin{lstlisting} +\psframebox{\begin{pspicture}(8,8) + \psPhyllotaxis[c=7](4,4) +\end{pspicture}} +\end{lstlisting} + +\img{25} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-3,-3)(3,3) + \psPhyllotaxis[c=4,angle=111] +\end{pspicture}} +\end{lstlisting} + +\subsection{\texttt{maxIter}} +This is the number for the iterations. + +\img{26} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-3,-3)(3,3) + \psPhyllotaxis[c=6,angle=111,maxIter=100] +\end{pspicture}} +\end{lstlisting} + + + +\section{Fern} + +\begin{verbatim} +\psFern[settings](x,y) +\end{verbatim} + +The coordinates of the starting point are optional, if they are missing, then $(0,0)$ +is assumed. + +\img{27} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-1,0)(1,4) + \psFern +\end{pspicture}} +\end{lstlisting} + +\img{28} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-1,0)(2,5) + \psFern(1,1) +\end{pspicture}} +\end{lstlisting} + +\img{29} +\begin{lstlisting} +\psframebox{\begin{pspicture}(-3,0)(3,11) + \psFern[scale=3,maxIter=100000,linecolor=green] +\end{pspicture}} +\end{lstlisting} + + +\section{Koch flake} + +\begin{verbatim} +\psKochflake[settings](x,y) +\end{verbatim} + +The coordinates of the starting point are optional, if they are missing, then $(0,0)$ +is assumed. The origin is the lower left point of the flake, marked as red +or black point +in the following example: +\clearpage + +\img{30} +\begin{lstlisting} +\begin{pspicture}[showgrid=true](-2.4,-0.4)(5,5) + \psKochflake[scale=10] + \psdot[linecolor=red,dotstyle=*](0,0) +\end{pspicture} +\end{lstlisting} + +\img{31} +\begin{lstlisting} +\begin{pspicture}(-0.4,-0.4)(12,4) + \psset{fillcolor=lime,fillstyle=solid} + \multido{\iA=0+1,\iB=0+2}{6}{% + \psKochflake[angle=-30,scale=3,maxIter=\iA](\iB,2.5)\psdot*(\iB,2.5) + \psKochflake[scale=3,maxIter=\iA](\iB,0)\psdot*(\iB,0)} +\end{pspicture} +\end{lstlisting} + +Optional arguments are \verb+scale+, \verb+maxIter+ (iteration depth) and \verb+angle+ +for the first rotation angle. + + +\section{Apollonius circles} + +\begin{verbatim} +\psAppolonius[settings](x,y) +\end{verbatim} + +The coordinates of the starting point are optional, if they are missing, then $(0,0)$ +is assumed. The origin is the center of the circle: + +\img{32} +\begin{lstlisting} +\begin{pspicture}[showgrid=true](-4,-4)(4,4) + \psAppolonius[Radius=4cm] +\end{pspicture} +\end{lstlisting} + + +\img{33} +\begin{lstlisting} +\begin{pspicture}(-5,-5)(5,5) + \psAppolonius[Radius=5cm,Color] +\end{pspicture} +\end{lstlisting} + + +\section{Trees} + +\begin{verbatim} +\psPTree[settings](x,y) +\psFArrow[settings](x,y){fraction} +\end{verbatim} + +The coordinates of the starting point are optional, if they are missing, then $(0,0)$ +is assumed. The origin is the center of the lower line, shown in the following examples +by the dot. Special parameters are the width of the lower basic line for the tree and the +height and angle for the arrow and for both the color option. The color step is given by \verb+dIter+ +and the depth by \verb+maxIter+. + +\img{34} +\begin{lstlisting} +\begin{pspicture}[showgrid=true](-3,0)(3,4) + \psPTree + \psdot*(0,0) +\end{pspicture} +\end{lstlisting} + + +\img{35} +\begin{lstlisting} +\begin{pspicture}[showgrid=true](-6,0)(6,7) + \psPTree[xWidth=1.75cm,Color=true] + \psdot*[linecolor=white](0,0) +\end{pspicture} +\end{lstlisting} + + +\img[36][37]{38} +\begin{lstlisting} +\begin{pspicture}[showgrid=true](-1,0)(1,3) + \psFArrow{0.5} +\end{pspicture} +\quad +\begin{pspicture}[showgrid=true](-2,0)(2,3) + \psFArrow{0.6} +\end{pspicture} +\quad +\begin{pspicture*}[showgrid=true](-3,0)(3,3.5) + \psFArrow[linewidth=3pt]{0.65} +\end{pspicture*} +\end{lstlisting} + + +\img[39][40]{41} +\begin{lstlisting} +\begin{pspicture}(-1,0)(1,3) + \psFArrow[Color]{0.5} +\end{pspicture} +\quad +\begin{pspicture}(-2,0)(2,3) + \psFArrow[Color]{0.6} +\end{pspicture} +\quad +\begin{pspicture*}(-3,0)(3,3.5) + \psFArrow[Color]{0.65} +\end{pspicture*} +\end{lstlisting} + + +\img[0][42]{43} +\begin{lstlisting} +\begin{pspicture}(-3,-3)(2,3) + \psFArrow[Color]{0.6} + \psFArrow[angle=90,Color]{0.6} +\end{pspicture} +\quad +\begin{pspicture*}(-4,-3)(3,3) + \psFArrow[Color]{0.7} + \psFArrow[angle=90,Color]{0.7} +\end{pspicture*} +\end{lstlisting} \section{PDF output} -\verb|pst-fractal| is based on the popular \verb|pstricks| package and writes pure \PS code\cite{PostScript}, so it is not possible to run \TeX{} files with pdf\LaTeX{} when there are pstricks macros in the document. If you still need a PDF output use one of the following possibilities: +\verb|pst-fractal| is based on the popular \verb|pstricks| +package and writes pure \PS code\cite{PostScript}, so it is not +possible to run \TeX{} files with pdf\LaTeX{} when there are +pstricks macros in the document. If you still need a PDF output use one of the following possibilities: \begin{itemize} \item package \verb|pdftricks.sty|\cite{pdftricks} \item the for Linux free available program VTeX/Lnx\footnote{\url{http://www.micropress-inc.com/linux/}} @@ -249,8 +537,9 @@ Be sure that you have the ''newest`` \verb|pstricks-add.tex| file \section{Credits} \nocite{*} - +\bgroup +\raggedright \bibliographystyle{plain} \bibliography{pst-fractal-doc} - +\egroup \end{document} diff --git a/Master/texmf-dist/source/generic/pst-fractal/Makefile b/Master/texmf-dist/source/generic/pst-fractal/Makefile index 6aa27a5b580..fb0b5fb5a16 100644 --- a/Master/texmf-dist/source/generic/pst-fractal/Makefile +++ b/Master/texmf-dist/source/generic/pst-fractal/Makefile @@ -7,7 +7,7 @@ PACKAGE = pst-fractal MAIN = $(PACKAGE)-doc -LATEX = latex +LATEX = pdflatex ARCHNAME = $(MAIN)-$(shell date +%y%m%d) 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 c6f70147658..c7bfe3ded75 100644 --- a/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex +++ b/Master/texmf-dist/tex/generic/pst-fractal/pst-fractal.tex @@ -21,28 +21,29 @@ \ifx\PSTricksAddLoaded\endinput\else\input pstricks-add.tex\fi \ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi % -\def\fileversion{0.03} -\def\filedate{2007/04/05} +\def\fileversion{0.04} +\def\filedate{2007/05/15} \message{`PST-fractal' v\fileversion, \filedate\space (hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax \pst@addfams{pst-fractal} +\pstheader{pstricks-add.pro} %\SpecialCoor % -\newdimen\psk@fractal@xWidth -\define@key[psset]{pst-fractal}{xWidth}{\pssetlength\psk@fractal@xWidth{#1}} -\newdimen\psk@fractal@yWidth -\define@key[psset]{pst-fractal}{yWidth}{\pssetlength\psk@fractal@yWidth{#1}} +\newdimen\pst@fractal@xWidth +\define@key[psset]{pst-fractal}{xWidth}{\pssetlength\pst@fractal@xWidth{#1}} +\newdimen\pst@fractal@yWidth +\define@key[psset]{pst-fractal}{yWidth}{\pssetlength\pst@fractal@yWidth{#1}} \psset[pst-fractal]{xWidth=1cm,yWidth=1cm} \define@key[psset]{pst-fractal}{type}{\def\pst@fractal@type{#1}} \psset[pst-fractal]{type=Julia}% or type=Mandel \def\pst@fractal@Julia{Julia}\def\pst@fractal@Mandel{Mandel} \define@key[psset]{pst-fractal}{baseColor}{\pst@getcolor{#1}\pst@fractal@baseColor} -\psset[pst-fractal]{baseColor=black} +\psset[pst-fractal]{baseColor=white} % -\define@key[psset]{pst-fractal}{cx}{\def\psk@fractal@cx{#1 }} -\define@key[psset]{pst-fractal}{cy}{\def\psk@fractal@cy{#1 }} -\define@key[psset]{pst-fractal}{dIter}{\def\psk@fractal@dIter{#1 }} +\define@key[psset]{pst-fractal}{cx}{\def\pst@fractal@cx{#1 }} +\define@key[psset]{pst-fractal}{cy}{\def\pst@fractal@cy{#1 }} +\define@key[psset]{pst-fractal}{dIter}{\def\pst@fractal@dIter{#1 }} \psset[pst-fractal]{cx=0,cy=0,dIter=1} \define@key[psset]{pst-fractal}{maxIter}{\pst@checknum{#1}\pst@fractal@maxIter} \define@key[psset]{pst-fractal}{maxRadius}{\pst@checknum{#1}\pst@fractal@maxRadius} @@ -50,6 +51,23 @@ \define@key[psset]{pst-fractal}{plotpoints}{\pst@checknum{#1}\pst@fractal@plotpoints} \psset[pst-fractal]{plotpoints=2000} % +\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} +% +\define@key[psset]{pst-fractal}{scale}{\pst@getscale{#1}\pst@fractal@scale% + \let\pst@fractal@Xscale\pst@tempg} +\psset[pst-fractal]{scale=1} +% +\def\pst@fractal@radius{0.001 } +% +\newdimen\pst@fractal@Radius +\define@key[psset]{pst-fractal}{Radius}{\pssetlength\pst@fractal@Radius{#1}} +\define@boolkey[psset]{pst-fractal}[Pst@fractal@]{Color}[true]{} +\psset[pst-fractal]{Radius=5cm,Color=false} +% +%=========================================================== +% \def\psfractal{\pst@object{psfractal}} \def\psfractal@i{\@ifnextchar({\psfractal@ii}{\psfractal@ii(-1,-1)}}% \def\psfractal@ii(#1){\@ifnextchar({\psfractal@iii(#1)}{\psfractal@iii(#1)(1,1)}}% @@ -58,21 +76,20 @@ \psset{unit=1pt} \pst@getcoor{#1}\pst@temp@A \pst@getcoor{#2}\pst@temp@B - \pspicture(\psk@fractal@xWidth,\psk@fractal@yWidth)% + \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\psk@fractal@xWidth def - /MaxYPixel \pst@number\psk@fractal@yWidth def - /PixelDicke 0.5 def - /cx \psk@fractal@cx def - /cy \psk@fractal@cy def - /totMaxIter \pst@fractal@maxIter\space \psk@fractal@dIter\space mul def + /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 + /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 @@ -80,7 +97,7 @@ % /putPixel {% x y auf dem Stack in Benutzerkoordinaten convertXY - PixelDicke 0 360 arc fill + rPixel 0 360 arc fill } def % MinX dx MaxX { @@ -99,7 +116,7 @@ 2 zx zy mul mul cy add /zx zx dup mul zy dup mul sub cx add def /zy exch def - /iter iter \psk@fractal@dIter add def + /iter iter \pst@fractal@dIter add def } ifelse } repeat plot{ @@ -155,7 +172,308 @@ }% end add@pscode \end@SpecialObj% }} - +% +\def\psPhyllotaxis{\pst@object{psPhyllotaxis}} +\def\psPhyllotaxis@i{\@ifnextchar({\psPhyllotaxis@ii}{\psPhyllotaxis@ii(0,0)}} +\def\psPhyllotaxis@ii(#1){{% + \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 + }% end add@pscode + \end@SpecialObj% +}} +% +\def\pst@fractal@radius{0.001 } +\def\psFern{\pst@object{psFern}} +\def\psFern@i{\@ifnextchar({\psFern@ii}{\psFern@ii(0,0)}} +\def\psFern@ii(#1){{% + \addbefore@par{linewidth=0.001pt,maxIter=20000,radius=0.001pt}% + \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 + }% end add@pscode + \end@SpecialObj% +}} +% +\def\psKochflake{\pst@object{psKochflake}} +\def\psKochflake@i{\@ifnextchar({\psKochflake@ii}{\psKochflake@ii(0,0)}} +\def\psKochflake@ii(#1){{% + \addbefore@par{radius=0.25cm,maxIter=5}% + \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 + }% end add@pscode + \psk@fillstyle + \addto@pscode{stroke} + \end@SpecialObj% +}} +% +\def\psAppolonius{\pst@object{psAppolonius}} +\def\psAppolonius@i{\@ifnextchar({\psAppolonius@ii}{\psAppolonius@ii(0,0)}} +\def\psAppolonius@ii(#1){{% + \addbefore@par{Radius=5cm,dIter=1,linewidth=0.1pt}% + \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 + }% end add@pscode + \psk@fillstyle% + \addto@pscode{stroke}% + \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}% + \pst@getcoor{#1}\pst@tempA% + \begin@SpecialObj% + \addto@pscode{ + gsave + \pst@tempA exch \pst@number\pst@fractal@xWidth 2 div sub exch translate + \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 + \ifPst@fractal@Color + setWaveColor fill +% 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 + 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 + }% end add@pscode + \end@SpecialObj% +}} +% +\def\psFArrow{\pst@object{psFArrow}} +\def\psFArrow@i{\@ifnextchar({\psFArrow@ii}{\psFArrow@ii(0,0)}} +\def\psFArrow@ii(#1)#2{{% + \addbefore@par{linewidth=10pt,yWidth=5cm,maxIter=10,Color=false,scale=1,dIter=1}% + \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 +% 180 rotate #2 FractArrow +% stroke + }% end add@pscode + \end@SpecialObj% +}} +% % \catcode`\@=\PstAtCode\relax % diff --git a/Master/texmf-dist/tpm/pst-fractal.tpm b/Master/texmf-dist/tpm/pst-fractal.tpm index da76231c47a..289f02ee9fe 100644 --- a/Master/texmf-dist/tpm/pst-fractal.tpm +++ b/Master/texmf-dist/tpm/pst-fractal.tpm @@ -3,28 +3,71 @@ <rdf:Description about="http://texlive.dante.de/texlive/Package/pst-fractal.zip"> <TPM:Name>pst-fractal</TPM:Name> <TPM:Type>Package</TPM:Type> - <TPM:Date>2007/04/06 12:58:25</TPM:Date> + <TPM:Date>2007/05/16 09:35:08</TPM:Date> <TPM:Version></TPM:Version> <TPM:Creator>karl</TPM:Creator> <TPM:Title>The pst-fractal package.</TPM:Title> <TPM:Description></TPM:Description> <TPM:Author></TPM:Author> - <TPM:Size>15323851</TPM:Size> + <TPM:Size>15325117</TPM:Size> <TPM:License></TPM:License> <TPM:Build/> - <TPM:RunFiles size="6693"> + <TPM:RunFiles size="16093"> texmf-dist/tex/generic/pst-fractal/pst-fractal.tex texmf-dist/tex/latex/pst-fractal/pst-fractal.sty texmf-dist/tpm/pst-fractal.tpm </TPM:RunFiles> - <TPM:DocFiles size="15317316"> + <TPM:DocFiles size="1593996"> texmf-dist/doc/generic/pst-fractal/Changes texmf-dist/doc/generic/pst-fractal/README +texmf-dist/doc/generic/pst-fractal/images/1.png +texmf-dist/doc/generic/pst-fractal/images/10.png +texmf-dist/doc/generic/pst-fractal/images/11.png +texmf-dist/doc/generic/pst-fractal/images/12.png +texmf-dist/doc/generic/pst-fractal/images/13.png +texmf-dist/doc/generic/pst-fractal/images/14.png +texmf-dist/doc/generic/pst-fractal/images/15.png +texmf-dist/doc/generic/pst-fractal/images/16.png +texmf-dist/doc/generic/pst-fractal/images/17.png +texmf-dist/doc/generic/pst-fractal/images/18.png +texmf-dist/doc/generic/pst-fractal/images/19.png +texmf-dist/doc/generic/pst-fractal/images/2.png +texmf-dist/doc/generic/pst-fractal/images/20.png +texmf-dist/doc/generic/pst-fractal/images/21.png +texmf-dist/doc/generic/pst-fractal/images/22.png +texmf-dist/doc/generic/pst-fractal/images/23.png +texmf-dist/doc/generic/pst-fractal/images/24.png +texmf-dist/doc/generic/pst-fractal/images/25.png +texmf-dist/doc/generic/pst-fractal/images/26.png +texmf-dist/doc/generic/pst-fractal/images/27.png +texmf-dist/doc/generic/pst-fractal/images/28.png +texmf-dist/doc/generic/pst-fractal/images/29.png +texmf-dist/doc/generic/pst-fractal/images/3.png +texmf-dist/doc/generic/pst-fractal/images/30.png +texmf-dist/doc/generic/pst-fractal/images/31.png +texmf-dist/doc/generic/pst-fractal/images/32.png +texmf-dist/doc/generic/pst-fractal/images/33.png +texmf-dist/doc/generic/pst-fractal/images/34.png +texmf-dist/doc/generic/pst-fractal/images/35.png +texmf-dist/doc/generic/pst-fractal/images/36.png +texmf-dist/doc/generic/pst-fractal/images/37.png +texmf-dist/doc/generic/pst-fractal/images/38.png +texmf-dist/doc/generic/pst-fractal/images/39.png +texmf-dist/doc/generic/pst-fractal/images/4.png +texmf-dist/doc/generic/pst-fractal/images/40.png +texmf-dist/doc/generic/pst-fractal/images/41.png +texmf-dist/doc/generic/pst-fractal/images/42.png +texmf-dist/doc/generic/pst-fractal/images/43.png +texmf-dist/doc/generic/pst-fractal/images/5.png +texmf-dist/doc/generic/pst-fractal/images/6.png +texmf-dist/doc/generic/pst-fractal/images/7.png +texmf-dist/doc/generic/pst-fractal/images/8.png +texmf-dist/doc/generic/pst-fractal/images/9.png texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.bib texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.pdf texmf-dist/doc/generic/pst-fractal/pst-fractal-doc.tex </TPM:DocFiles> - <TPM:SourceFiles size="1108"> + <TPM:SourceFiles size="1111"> texmf-dist/source/generic/pst-fractal/Makefile </TPM:SourceFiles> <TPM:Provides>Package/pst-fractal</TPM:Provides> |