ex_17.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
 
 
\begin{pspicture}(-4,-5)(-6,8)
\psset{solidmemory}
\psset{unit=0.75}
\psset{lightsrc=10 5 10,SphericalCoor,viewpoint=20 10 20,Decran=50}
 
 
 
\psSolid[%
    object=cone,
    r=2.5,
    h=5,
    fillcolor=red,
    incolor=lightgray,
    ngrid=24 36,
    action=none,
    name=sph1,
    ](0,0,0)
\psSolid[%
    object=tore,
    r1=2,
    r0=0.5,
    fillcolor=blue,
    incolor=lightgray,
    ngrid=24 36,
    action=none,
    name=sph2,
    RotY=25,
    ](0,0,2)
\psSolid[%
    object=fusion,
    base=sph1 sph2,
    name=sphere,
    action=draw**
    ](0,0,0)%
\composeSolid
 
 
\end{pspicture}
 
\end{document}