Section d'un cylindre par un plan

Sur la suggestion de Zbigniew Nitecki.

\documentclass{article}

\usepackage{pst-solides3d}

\begin{document}

\begin{center}

    \begin{pspicture}(-4,-5)(4,5)

        \psset{lightsrc=viewpoint}

        \psset{viewpoint=100 30 20 rtp2xyz,Decran=100}

        \psSolid[object=grille,base=-5 5 -5 3,linecolor={[rgb]{0.72 0.72 0.5}}](0,0,-3)

        \psset{solidmemory}

        \psSolid[object=cylindre,h=6,r=3,

                 rm=0 1,% Removes the two bases

                 plansepare={[0 1 1 0]},

                 name=Cyl,

                 ngrid=9 30,

                 action=none](0,0,-3)

        \psSolid[object=load,

                 load=Cyl1,

                 hollow,rm=0,

                 grid,

                 fillcolor={[rgb]{0.5 0.72 0.5}},incolor=yellow!50]

        \psSolid[object=plan,definition=equation,

                 args={[0 1 1 0]},

                 base=-5 5 -5 5,linewidth=0.01,

                 opacity=.5,

                 fillcolor=green!20]

        \defFunction[algebraic]{ellipse}(t)%

        {3*cos(t)}{3*sin(t)} {-3*sin(t)}

        \psSolid[object=courbe,

                 r=0,

                 range=0 6.28,

                 linewidth=2\pslinewidth,

                 linecolor=blue,

                 function=ellipse

        ]

\psSolid[object=grille,base=-5 5 3 5,linecolor={[rgb]{0.72 0.72 0.5}}](0,0,-3)

\axesIIID(0,0,0)(5,5,5)

        \end{pspicture}

\end{center}

\end{document}