%****** ex_22.tex ******
\PassOptionsToPackage{dvipsnames}{xcolor}
\documentclass[pstricks,border=5mm]{standalone}
\usepackage{pst-solides3d}
\begin{document}

\psset{unit=1.5}
\psset{viewpoint=50 -20 30 rtp2xyz,Decran=50}
\begin{pspicture}(-3,-3)(3,3)
\codejps{
/cub {%
  4 newcube
  dup 0.8 solidaffine
  dup videsolid
  dup (LimeGreen) outputcolors
  dup (Gray) inputcolors
} def
cub drawsolid**
}
\end{pspicture}


\end{document}