This is an example from pst-solides3d documentation.

Compiled example

Credits

Thanks to Herbert (answer)