cylindre_13.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
%% soit : 
%% 1 compilation LaTeX, 1 visualisation du .ps, une compilation LaTeX 
%% puis une nouvelle visualisation
\psset{unit=2}
\begin{pspicture}(-4,-3)(4,3)
\psframe(-4,-3)(4,3)
\psset{lightsrc=viewpoint,SphericalCoor,viewpoint=100 -30 30,Decran=50}
\IfFileExists{cylindrepointe-sommets.dat}{%
\psSolid[object=datfile,
         fillcolor=red!50,
         file=cylindrepointe]
}{
\psset{solidmemory}
\psSolid[object=datfile,
        file=cylindrebiseau,
        plansepare={[0 -1 1 0]},
        fillcolor=green!50,
        action=none,name=cylindrepointe1]
\psSolid[object=load,
        load=cylindrepointe11,
        plansepare={[0 1 1 0]},
        action=none,name=cylindrepointe2]
\psSolid[object=load,fillcolor=red!50,
        load=cylindrepointe20,action=none,
        file=cylindrepointe,action=writesolid]
\composeSolid
}
\end{pspicture}
 
\end{document}