\psset{unit=2}
\psset{SphericalCoor=true,viewpoint=50 -20 30,Decran=100,linewidth=2pt}
\begin{pspicture}(-3,-3)(3,3)
\psframe*(-3,-3)(3,3)
\codejps{
/geode42{4 2 newdualgeode} def
.7 setfillopacity
orange
/geodetransparente{
geode42
dup videsolid
dup (orange) inputcolors
dup [.1 .9] solidputhuecolors} def
geodetransparente
drawsolid**}
\end{pspicture}