f006.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}(-6,-4)(4,6.5)
%\psframe(-5.5,-4)(4,6.5)
\psset{lightsrc=100 20 cos mul 20 cos mul 100 20 sin mul 20 cos mul 100 20 sin mul}
\psset{viewpoint=100 20 20 rtp2xyz,Decran=150,action=draw*}
\psSolid[object=macle,r=2,h=5,a=0.5,fillcolor=yellow!50]
\axesIIID(2,2,3)(4,4,4)
\end{pspicture}
 
\end{document}