summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_en/22-01-20.ltx
blob: 4fbebd9f3b1bc89c2b27f9f534256bb1a1bad30d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
%% 
%%  A DANTE-Edition example
%% 
%% 
%%  Copyright (C) 2011 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[]{article}
\pagestyle{empty}
\setlength\textwidth{201.70511pt}
\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)}

\usepackage{pstricks,pst-3d,multido}

\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 displays}
}
%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}