f003.tex

\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[garamond]{mathdesign}
\renewcommand{\ttdefault}{lmtt}
\usepackage{pst-solides3d}
\pstheader{macle.pro}
\pstheader{calcite.pro}
\pstheader{macle.pro}
\pagestyle{empty}
\begin{document}
\addtosolideslistobject{calcite,macle}
\psset{unit=0.75}
 
\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}
 
\end{document}