%@AUTEUR: Juergen Gilg
%@DATE: 16 février 2008

\psset{unit=1.5}
\psset{SphericalCoor=true,viewpoint=50 -20 30,Decran=50}
\begin{pspicture}(-4,-6)(8,6)

\codejps{
/tet {%
2 newtetraedre
dup 0.8 solidchampfreine
dup videsolid
dup (Turquoise) outputcolors
dup (Gray) inputcolors
} def
/cub {%
4 newcube
dup 0.8 solidchampfreine
dup videsolid
dup (LimeGreen) outputcolors
dup (Gray) inputcolors
} def
/tet2 {%
6 newoctaedre
dup 0.9 solidchampfreine
dup videsolid
dup (PineGreen) outputcolors
dup (Gray) inputcolors
} def
/un {tet cub solidfuz} def
/deux {un tet2 solidfuz} def
deux drawsolid**
}
\end{pspicture}