snow.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
% \section*{Twister \dots}
\psset[pst-solides3d]{viewpoint=10 9 10,SphericalCoor,
	Decran=3,lightsrc=5 -5 5}
\begin{pspicture}(-6,-6)(6,14)
\rput(0,0){
\defFunction[algebraic]{twister}(u,v){1*((Euler^(v/2)+
    Euler^(-v/2))*cos(u)*cos((2.1*((Euler^(v/2)+
    Euler^(-v/2))*sin(u)*sin(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367)+
    2*(v)*cos(((Euler^(v/2)+Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367))+
    13.1947)*2*pi*1.5/26.3894)-2.1*((Euler^(v/2)+
    Euler^(-v/2))*sin(u)*cos(((Euler^(v/2)+Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367)-
    2*(v)*sin(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367))*sin((2.1*((Euler^(v/2)+Euler^(-v/2))*sin(u)*sin(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894))}%
{2.1*((Euler^(v/2)+Euler^(-v/2))*sin(u)*sin(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367)+2*(v)*cos(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367))}%
{1*((Euler^(v/2)+Euler^(-v/2))*cos(u)*sin((2.1*((Euler^(v/2)+
    Euler^(-v/2))*sin(u)*sin(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367)+2*(v)*cos(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894)+
    2.1*((Euler^(v/2)+Euler^(-v/2))*sin(u)*cos(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367)-2*(v)*sin(((Euler^(v/2)+Euler^(-v/2))*cos(u)+
    5.01836)*2*pi*0/10.0367))*cos((2.1*((Euler^(v/2)+Euler^(-v/2))*sin(u)*sin(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367)+2*(v)*cos(((Euler^(v/2)+
    Euler^(-v/2))*cos(u)+5.01836)*2*pi*0/10.0367))+13.1947)*2*pi*1.5/26.3894))}
\psSolid[object=surfaceparametree,
    base=pi neg  pi  pi neg  pi,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    ngrid=64,
    RotX=90,
%    RotZ=105,
    function=twister]%
}
\end{pspicture}
 
\end{document}