fig01.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
 
% \section*{Snowflake \dots}
\psset[pst-solides3d]{viewpoint=10 10 10,SphericalCoor,
	Decran=40,lightsrc=5 -5 15}
\begin{pspicture}(-3,-3)(3,4)
\rput(0,0){
\defFunction[algebraic]{flake}(u,v){%
     cos(u)*cos(v)*(abs(cos(1*u/4))^0.5+
     abs(sin(1*u/4))^0.5)^(-1/0.3)*(abs(cos(5*v/4))^1.7+
     abs(sin(5*v/4))^1.7)^(-1/0.1)}%
{sin(u)*(abs(cos(1*u/4))^0.5+abs(sin(1*u/4))^0.5)^(-1/0.3)}%
{cos(u)*sin(v)*(abs(cos(1*u/4))^0.5
    +abs(sin(1*u/4))^0.5)^(-1/0.3)*(abs(cos(5*v/4))^1.7+
    abs(sin(5*v/4))^1.7)^(-1/0.1)}
\psSolid[object=surfaceparametree,
    base=pi neg 2 div pi 2 div  0 pi 2 mul,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    ngrid=60,
    RotY=90,
    RotZ=105,
    function=flake]%
}
\end{pspicture}
 
\end{document}