cylindre_05.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
%% Auteur : Manuel Luque
%%
%% ATTENTION : nécessite DEUX VISUALISATIONS du fichier .ps
\begin{pspicture}(-4,-3)(4,3)
\psframe(-4,-3)(4,3)
\psset{lightsrc=viewpoint,SphericalCoor,viewpoint=100 -30 20,Decran=50}
\psset{solidmemory,unit=2}
\IfFileExists{cross-sommets.dat}{%
\psSolid[object=datfile,
        file=cross,deactivatecolor,
        plansepare={[0 0 1 0]},
        action=none,
        name=crossdivision]%
\psSolid[object=load,deactivatecolor,
        load=crossdivision1]%
\psSolid[object=grille,base=-6 6 -6 6,ngrid=9 9,color1=black!5,color2=black!40, hue=(color2) (color1)]
\psSolid[object=load,deactivatecolor,
        load=crossdivision0]
}{
\psSolid[object=datfile,
        file=cylindrebiseau,
        fillcolor=green!50,
        action=none,name=cylindrebiseau1]
\psSolid[object=datfile,RotZ=90,
        fillcolor=green!50,
        file=cylindrebiseau,name=cylindrebiseau2,action=none]
\psSolid[object=datfile,RotZ=180,
        fillcolor=green!50,
        file=cylindrebiseau,name=cylindrebiseau3,action=none]
\psSolid[object=datfile,RotZ=270,
        fillcolor=green!50,
        file=cylindrebiseau,name=cylindrebiseau4,action=none]
\psSolid[object=fusion,
        base=cylindrebiseau1 cylindrebiseau2
        cylindrebiseau3 cylindrebiseau4,
        action=writesolid,file=cross]%
}
\axesIIID[linecolor=red,axisemph={\color{red}}](6,6,2)(8,8,4)
\end{pspicture}
 
\end{document}