\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\codejps{
5 3 newgeode
 dup {[0 1 0.5 1]} exec solidputhuecolors
(geode53) writesolidfile
}
%\codejps{
%5 3 newdualgeode
% dup {[0 1 0.5 1]} exec solidputhuecolors
%(geodedual53) writesolidfile
%}
\end{document}