\begin{pspicture}(-4,-5)(4,5)
\psframe(-4,-5)(4,5)
\psset{SphericalCoor,viewpoint=100 -20 20,Decran=150}% ,action=draw,num=all,show=all}
\psset{lightsrc=100 -20 cos mul 10 cos mul 100 -20 sin mul 10 cos mul 100 10 sin mul}
\psSolid[object=calcite,r=2,h=6,fillcolor=yellow!50,action=draw*]
%\axesIIID(2,2,4)(4,4,5)
%\psSolid[object=vecteur,args=0 0 1](0,0,3)
\end{pspicture}