cylindre_03.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
\psset{unit=2}
\begin{pspicture}(-4,-3)(4,3)
\psframe(-4,-3)(4,3)
\psset{lightsrc=viewpoint,SphericalCoor,viewpoint=100 -60 50,Decran=50}
\psset{solidmemory}
\psSolid[object=plan,
   action=none,
   definition=equation,
   args={[1 1 0 0 ]},
   base=-4 4 -2 2,
   name=monplan1]
\psSolid[object=plan,
   action=none,
   definition=equation,
   args={[1 -1 0 0 ]},
   base=-4 4 -2 2,
   name=monplan2]
\IfFileExists{cylindrebiseau-sommets.dat}{%
   \psSolid[object=datfile,fillcolor=yellow!50,
           file=cylindrebiseau]
   \psSolid[object=plan,
      args=monplan2,
      action=draw]
   \psSolid[object=plan,
      args=monplan1,
      action=draw]
}{
   \psSolid[object=cylindre,
      r=2,
      h=12,
      RotX=90,
      ngrid=9 18,action=none,
      name=cylindre1](0,6,0)
   % premier biseau
   \psSolid[object=load,
           load=cylindre1,
           plansepare=monplan2,action=none,
           name=divisioncylindre1]
   % second biseau
   \psSolid[object=load,fillcolor=yellow!50,
           load=divisioncylindre11,
           plansepare=monplan1,action=none,
           name=divisioncylindre2]
   \psSolid[object=load,
          load=divisioncylindre20,
          file=cylindrebiseau,
          action=writesolid]
}
\composeSolid
\end{pspicture}
 
\end{document}