f001.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,-4)(4,9)
%\psframe(-4,-4)(4,4)
\psset{SphericalCoor,viewpoint=100 -20 20,Decran=150}% ,action=draw,num=all,show=all}
\psset{lightsrc=100 -20 cos mul 20 cos mul 100 -20 sin mul 20 cos mul 100 20 sin mul}
\psSolid[object=calcite,r=2,h=8,hue=0.2 0.5 0.5 1,opacity=0.7,action=draw**,hollow]
\axesIIID(2,2,4)(4,4,5)
\end{pspicture}
\end{document}