====== Test de  pst-solides3d ======

Voici le fichier utilisé pour obtenir la représentation de la [[http://www.mathcurve.com/courbes3d/viviani/viviani.shtml|fenêtre de Viviani]] présente dans la documentation de ''pst-solides3d''. Je n'ai fait que modifier le maillage de la sphère et du cylindre... Le résulat est à noter, il a fallu 34 minutes à ma machine (2Ghz, 1024Mo) pour interpréter le fichier PS, autrement dit pour générer le fichier PDF !

{{pstricks:fenetre.pdf}}

{{ pstricks:fenetre.png }}

<code latex>
\documentclass{article}
\usepackage{pst-solides3d,pst-node,pst-plot,pst-eucl}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[a4paper]{geometry}
\pagestyle{empty}
\begin{document}
\begin{center}

\psset{unit=0.5,lightsrc=50 -50 50,SphericalCoor=true,
    viewpoint=100 0 0,Decran=110,linewidth=0.5\pslinewidth}

\begin{pspicture}(-5,-6)(5,6)
\codejps{%
 /cylindre1 {
     -5 2.5 5 [60 60] newcylindre
   {2.5 0 0 translatepoint3d} solidtransform
      dup (White) outputcolors
   } def
 /sphere1 {
     5 [60 120] newsphere
      dup (White) outputcolors
   } def
 /CS {cylindre1 sphere1 solidfuz} def
  CS drawsolid**}
\psPoint(0 0 0){O}
\makeatletter
\parametricplot[linecolor=red,linewidth=2\pslinewidth]{0}{360}{%
   \tx@optionssolides
    SolidesDict begin
    t cos dup mul 5 mul % x
    t cos t sin mul 5 mul % y
    t sin 5 mul % z
   3dto2d cm_1 exch cm_1 exch
   end}
\makeatother
\end{pspicture}
\end{center}

\end{document}
</code>