%@AUTEUR: Juergen Gilg
\begin{pspicture}(-4,-5)(-6,8)
\psset{solidmemory}
\psset{unit=0.75}
\psset{lightsrc=10 5 10,SphericalCoor,viewpoint=20 15 20,Decran=50}



\psSolid[%
    object=cylindre,
    r=1.25,
    h=5,
    fillcolor=lightgray,
    incolor=lightgray,
    hollow,
    ngrid=24 72,
    action=none,
    name=sph1,
    ](0,0,0)
    \psSolid[object=grille,
    base=-3 3 -3 3,
    fillcolor=yellow,
    RotX=30,
    RotZ=15,
    ngrid=24 24,
    hollow,
    action=none,
    name=sph2,
    ](0,0,2)
\psSolid[%
    object=fusion,
    base=sph1 sph2,
    name=sphere,
    opacity=0.6,
    action=draw**
    ](0,0,0)%
\composeSolid


\end{pspicture}