f004.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*[linecolor=gray!40](-4.1,-5.1)(4.1,5.1)
\psframe*[linecolor=yellow!40](-4,-5)(4,5)
\psset{SphericalCoor,viewpoint=100 35 10,Decran=150}%,action=draw,num=all,show=all}
\psset{lightsrc=100 35 cos mul 10 cos mul 100 35 sin mul 10 cos mul 100 10 sin mul}
\psSolid[object=calcite,r=2,h=6,fillcolor=yellow!50,opacity=0.7,action=draw**,hollow,
         trunc=6 7 8 16 17 18,trunccoeff=0.25,
         fcol=12 (orange) 14 (orange) 15 (orange) 13 (orange) 17 (orange) 18 (orange)]
\end{pspicture}
 
\end{document}