\errorcontextlines=150
\DocumentMetadata{lang=en}
\documentclass[border=5mm,pstricks]{standalone}
\usepackage{pst-solides3d}

\begin{document}
\psset{unit=1.5,viewpoint=50 -20 10 rtp2xyz, Decran=50}
\begin{pspicture}[showgrid=false](-2,-2)(1.5,2)
\codejps{
/octa {%
    1.9 newoctaedre
    dup 0.8 solidaffine
    dup videsolid
    dup (blue) outputcolors
    dup (red) inputcolors
} def
octa  drawsolid**
}
\end{pspicture}

\end{document}