\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,hue=0 0 0.2 0 0 0 0.8 0,action=draw*,
    trunc=0 1 2 3 4 5 10 11 12 13 14 15,trunccoeff=0.25]%,numfaces=all]
%\axesIIID(2,2,4)(4,4,5)
%\psSolid[object=vecteur,args=0 0 1](0,0,3)
\end{pspicture}