PStricks : section hyperbolique, version transparente

Dans cette version le bi-cône est représenté dans sa totalité, mais par transparence on peut voir l'intersection.
Pour cette version aussi les deux parties du cône ont été enregistrées sur le disque. Si vous souhaitez l'adapter à votre problème il faudra dé-commenter toutes les lignes. Les fichiers.

\documentclass{article}

\usepackage{pst-solides3d}

\usepackage{pst-math}

\begin{document}

\begin{center}

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

    \psset{lightsrc=viewpoint}

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

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

%    \psset{solidmemory}

%    \psSolid[object=cone,h=3,r=3,

%             plansepare={[0 2 1 -1.30]},

%             name=ConeA,

%             ngrid=9 30,

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

%    \psSolid[object=load,

%             load=ConeA1,

%             file=ConeA1,action=writesolid]

%    \psSolid[object=load,

%             load=ConeA0,

%             file=ConeA0,action=writesolid]

%    \psSolid[object=cone,h=3,r=3,

%             plansepare={[0 2 1 -1.30]},

%             name=ConeB,

%             RotY=180,

%             ngrid=9 30,

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

%    \psSolid[object=load,

%             load=ConeB1,

%             file=ConeB1,action=writesolid]

%    \psSolid[object=load,

%             load=ConeB0,

%             file=ConeB0,action=writesolid]

    \psSolid[object=datfile,

             file=ConeA1,

             hollow,rm=0 233,

             grid,

             opacity=0.5,

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

    \psSolid[object=datfile,

             file=ConeB1,

             hollow,rm=0 137,

             grid,

             opacity=0.5,

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

    \psSolid[object=plan,definition=equation,

             args={[0 2 1 -1.3] 180},

             base=-4 4 -4.8 1.9,

             opacity=.5,

             fillcolor=green!20]

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

        {0.745*SINH(t)}{0.865+0.43*COSH(t)} {-0.43-0.86*COSH(t)}

    \psSolid[object=courbe,

             r=0,

             range=-1.75 1.75,

             linecolor=blue,

             linewidth=2\pslinewidth,

             function=hyp1]

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

        {0.745*SINH(t)}{0.865-0.43*COSH(t)} {-0.43+0.86*COSH(t)}

    \psSolid[object=courbe,

             r=0,

             range=-2.05 2.05,

             linecolor=blue,

             linewidth=2\pslinewidth,

             function=hyp2]

    \psSolid[object=datfile,

             file=ConeB0,

             hollow,rm=0 102,

             grid,

             opacity=0.5,

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

    \psSolid[object=datfile,

             file=ConeA0,

             hollow,rm=0 20,

             grid,

             opacity=0.5,

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

\axesIIID(0,0,2)(5,5,7)

        \end{pspicture}

\end{center}

\end{document}