\documentclass{article}
\usepackage{pst-solides3d,pst-node,pst-plot,multido,url}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{colortbl}
\usepackage{array}
\usepackage[a4paper,bottom=2.5cm,top=2cm]{geometry}
%%\usepackage[frenchle]{babel}
\makeatletter

\title{\texttt{pst-solides3d} :\\
       Test 1}
\date{\today }
\begin{document}
\maketitle

\section {Test géode avec PSTricks}

%\psset{lightsrc=10 20 30,viewpoint=50 20 30 rtp2xyz}
\psset{viewpoint=50 20 30 rtp2xyz}

L'attribut \texttt{geode} pour géodiser un solide existant (ici un tétraèdre)
\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=100}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psSolid[object=tetrahedron,
   geode]
\end{pspicture*}
\end{center}

\newpage

L'objet \texttt{geode}
\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=120}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psSolid[object=geode,
   ngrid=3 2]
\end{pspicture*}
\end{center}

L'attribut \texttt {geode}
\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=120}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psSolid[object=geode,
   geode,
   ngrid=3 2]
\end{pspicture*}
\end{center}

L'attribut \texttt {dualreg}
\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=120}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psSolid[object=geode,
   dualreg,
   ngrid=3 2]
\end{pspicture*}
\end{center}

\newpage
L'attribut \texttt {dualreg}
\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=120}
\begin{pspicture*}(-5,-4)(6,4)
\psframe(-5,-4)(6,4)
\psSolid[object=tetrahedron,
   trunc=all,
   trunccoeff=.33,
   r=1,
   dualreg,
]
\end{pspicture*}
\end{center}

\section {Test géode avec jps}

%\psset{lightsrc=10 20 30,viewpoint=50 20 30 rtp2xyz}
\psset{viewpoint=50 20 30 rtp2xyz}

\begin{center}
\psset{unit=1}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=50}
\begin{pspicture*}(-5,-4)(6,9)
\psframe(-5,-4)(6,9)
\codejps{
3 1 newgeode
drawsolid
}
\end{pspicture*}
\end{center}

\begin{center}
\psset{unit=2}
\psset{lightsrc=10 0 10,viewpoint=50 -20 30 rtp2xyz,Decran=50}
\begin{pspicture*}(-5,-4)(6,9)
\psframe(-5,-4)(6,9)
\codejps{
3 2 newdualgeode
dup {[.5 .6]} exec solidputhuecolors
drawsolid*
}
\end{pspicture*}
\end{center}

\end{document}