%%
%% Ein Beispiel der DANTE-Edition
%%
%%
%% Copyright (C) 2010 Herbert Voss
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%%
%% See
http://www.latex-project.org/lppl.txt for details.
%%
%%
%% ====
% Show page(s) 1
%%
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{190.324pt}
\setlength\parindent{0pt}
\usepackage{pst-3d}
\SpecialCoor
\def\face{%
\pscurve(1;160)(0.8;180)(1;200)
\pscustom{\gsave\psarc(0,0){1}{165}{195}
\pscurve(1;195)(0.85;180)(1;165)
\fill[fillstyle=solid,fillcolor=blue]\grestore}
\pscurve[linewidth=.4pt](1;195)(0.85;180)(1;165)
{\psset{linewidth=2pt}
\psarc(0,1){1}{180}{270}
\psarc(0,-1){1}{90}{180}}
\psarc(0,0){1}{150}{210}
\psset{linewidth=4pt,linecolor=gray}
\pscurve(-.5,3.5)(-1,3)(-1.2,2.5)(-1.3,2)(-1.4,1)(-1.35,0.5)(-1.2,-.2)(-1.35,-.5)
(-1.4,-1)(-1.5,-1.5)(-1.8,-2)(-1.8,-2.3)(-1.65,-2.5)(-1.35,-2.55)(-.95,-2.8)
(-.95,-3.35)(-1,-3.65)(-.8,-4)(-.4,-4.1)
\pscurve(-.8,-4)(-.8,-4.2)(-.5,-4.5)(-.4,-5)(-.25,-5.5)(0,-5.8)(.5,-6)}
\StartShownPreambleCommands
\usepackage{pst-3d,multido}
\StopShownPreambleCommands
\begin{document}
\begin{pspicture}(-5,-1)(5,6)
\psset{viewpoint=3 5 2}
\psset{unit=2}
%le plan Oxy
\ThreeDput[normal=0 0 1](0,0,0){%
\psline{->}(0,0)(2,0)
%\uput[90](2,0){$x$}
\qdisk(1,0.5){2pt}
\psline(1,0)(1,0.5)\psline(1,0.5)(0,0.5)
\psline[linestyle=dotted](0,0)(1,0.5)
\psset{fillstyle=solid,fillcolor=lightgray,linestyle=none}
\psframe(1,0)(1.15,.15)
\psframe(0,.5)(.15,.65)}
%le plan Oyz
\ThreeDput[normal=1 0 0](0,0,0){%
\psline{->}(0,0)(2,0)
\uput[90](2,0){$y$}
\psline{->}(0,0)(0,2)
\uput[180](0,2){$z$}
\uput[90](0.5,0){0.5}
\uput[180](0,1.5){1.5}
\uput[135](0,0){0}
\rput(1.2,1.5){\large 3D-Darstellungen}
}
%Plan Ozx
\ThreeDput[normal=0 1 0](0,0,0){%
\uput[90](-2,0){$x$}
\uput[90](-1,0){1}
\rput(-1.5,1){\texttt{pst-3d}}
}
\ThreeDput[normal=.5 -1 0](0,0,0){%
\psframe[linestyle=none,fillstyle=hlines,hatchwidth=0.1pt,%
hatchsep=2pt,hatchcolor=gray!10](0,0)(1.118,1.5)
\psline[linewidth=3pt,linecolor=red,arrowinset=0]{->}(0,0)(1.118,1.5)
\psline[linestyle=dashed](0,0)(2.236,3)
\psline(1.118,0)(1.118,1.5)
\psline(1.118,1.5)(0,1.5)
\rput{53.3}(2.5348,3.4009){\psscalebox{0.2}{\face}}}
\end{pspicture}
\end{document}
