[pstricks] Memory problems

[Poul Riis]

Well, I found a solution!

\documentclass[11pt]{article}
\usepackage[dvips,x11names]{xcolor}
\usepackage{multido}
\usepackage{pstricks-add}
\usepackage{geometry}
\usepackage{graphicx}


\begin{document}
\begin{figure}[ht!]
\centering%
\psset{unit=1.5cm}%
\begin{pspicture}(-6,-6)(6,6)%
\pstVerb{%
/phigylden 137.5078 def%
/storephi 5 sqrt 1 add 2 div def%
/antalfroe 4500 def%
/radius 5 def%
/kk antalfroe radius div radius div def%
/froetaethed antalfroe radius div radius div 3.141593 div def%
/xfroe {kk div dup kk mul phigylden mul cos exch sqrt mul} def%
/yfroe {kk div dup kk mul phigylden mul sin exch sqrt mul} def%
/fib {dup dup 1 eq exch 0 eq or not {dup 1 sub fib exch 2 sub fib add} if}
def%
/omegaA antalfroe 12 fib div storephi 12 exp div 360 mul def%
/omegaB antalfroe 11 fib div storephi 11 exp div 360 mul neg def%
/dphiA 360 12 fib div def%
/dphiB 360 11 fib div def}%
\psset{dotsize=0.075,dotstyle=*,linecolor=Green3}
\multido{\n=1460+1}{2311}{\pscircle*(!\n\space xfroe \n\space
yfroe){0.04}}%
\multido{\n=226+1}{344}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\multido{\n=38+1}{53}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\multido{\n=8+1}{9}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\psset{linecolor=VioletRed1}
\multido{\n=17+1}{21}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\multido{\n=91+1}{135}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\multido{\n=570+1}{890}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\multido{\n=3771+1}{729}{\pscircle*(!\n\space xfroe \n\space yfroe){0.04}}%
\end{pspicture}
\end{figure}


Poul Riis
\end{document}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20100525/66bf89f5/attachment-0001.html>