Du musst es mit `xelatex` laufen lassen oder `latex->dvips->ps2pdf`. Per Definition zeigt meine y-Achse allerdings nach rechts!
\documentclass[pstricks]{standalone}
\usepackage{pst-3dplot}
\begin{document}
\multido{\iA=90+15}{24}{%
\begin{pspicture}(-5,-5)(5,5)
\psset{Beta=0,Alpha=\iA}
\psframe*[linecolor=blue!10](-5,-5)(5,5)
\pstThreeDCoor[xMin=0,yMin=0,zMin=0,linewidth=2pt,linecolor=blue]
\pscircle*[linecolor=blue!70!black]{2mm}
\psset{dash=5.5mm 2mm .5mm 2mm}
\pstThreeDLine[linestyle=dashed,linewidth=1pt](0,-4,0)(0,4,0)
\pstThreeDLine[linestyle=dashed,linewidth=1pt](0,0,0)(0,0,4)
\pstThreeDLine[linewidth=2pt](0,-4,-0.7)(0,4,-0.7)
\pstThreeDLine[linewidth=2pt](0,-4,0.7)(0,4,0.7)
\pstThreeDLine[linewidth=2pt](0,0,-0.7)(0,0,0.7)
\pstThreeDLine[linewidth=2pt](0,-0.7,4)(0,-0.7,0)(0,0.7,0)(0,0.7,4)
\pstThreeDDot[linecolor=red,dotsize=2mm](0,-0.9243,0.7)
\pstThreeDDot[linecolor=red,dotsize=2mm](0,-0.7,0.9234)
\pstThreeDDot[linecolor=red,dotsize=2mm](0,0.7,0.9243)
\pstThreeDDot[linecolor=red,dotsize=2mm](0,2.0414,0.7)
\pstThreeDLine[linewidth=2pt](0,-0.9243,0.7)(0,-0.9243,1.2)\pstThreeDPut(0,-0.9243,1.25){0}
\pstThreeDLine[linewidth=2pt](0,-0.7,0.9243)(0,-1.2,0.9243)\pstThreeDPut(0,-1.2,1){1}
\pstThreeDLine[linewidth=2pt](0,0.7,2.0414)(0,1.2,2.0414)\pstThreeDPut(0,1.2,2.1){2}
\pstThreeDLine[linewidth=2pt](0,2.0414,0.7)(0,2.0414,1.2)\pstThreeDPut(0,2.0414,1.25){3}
\pstThreeDTriangle[linecolor=green,fillstyle=solid,fillcolor=green]
(0,-1.1243,0.7)(0,-0.7,0.7)(0,-0.7,1.1243)
\pstThreeDTriangle[linecolor=green,fillstyle=solid,fillcolor=green]
(0,0.7,0.7)(0,0.8414,0.7)(0,0.7,0.8414)%
\end{pspicture}%
}
\end{document}
![alt text][1]
Alternative Darstellung mit `BETA=10,...`
![alt text][2]
[1]: http://texwelt.de/wissen/upfiles/demo.gifhttp://texwelt.de/wissen/upfiles/demo.gif
[2]: http://texwelt.de/wissen/upfiles/demo_1.gif
