summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/6-6-34.ltx
blob: 5e40e3ed550f116d14d953f807bdcef10b6ec6e5 (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
%% 
%%  The LaTeX Graphics Companion, 2ed (first printing May 2007)
%% 
%%  Example 6-6-34 on page 416.
%% 
%%  Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss 
%% 
%%  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.
%% 

\documentclass{ttctexa}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{159.83385pt}
\StartShownPreambleCommands
\usepackage{pstricks,pst-3dplot}
\StopShownPreambleCommands
\begin{document}
\begin{pspicture}(-6,-3)(6,5)
 \psset{unit=3.4cm,drawCoor=true}
 \newcommand\oA{\pstThreeDLine[linecolor=blue,
        linewidth=3pt,SphericalCoor=true,arrows=c->]
        (0,0,0)(1,60,70)}
 \newcommand\oB{\pstThreeDLine[linecolor=red,
        linewidth=3pt,SphericalCoor=true,arrows=c->]
        (0,0,0)(1,10,50)}
 \newcommand\oAB{\pstThreeDEllipse[beginAngle=58,
        endAngle=90,fillcolor=green,SphericalCoor=true]
        (0,0,0)(1,140,40)(1,10,50)}
 \pstThreeDCoor[drawing=true,linewidth=1pt,
        linecolor=black,xMin=0,xMax=1.1,yMin=0,
        yMax=1.1,zMin=0,zMax=1.1]
 \pstThreeDEllipse[beginAngle=0,endAngle=90,
        linestyle=dashed](0,0,0)(1,0,0)(0,1,0)
 \pstThreeDEllipse[beginAngle=0,endAngle=90,
        linestyle=dashed](0,0,0)(1,0,0)(0,0,1)
 \pstThreeDEllipse[beginAngle=0,endAngle=90,
        linestyle=dashed](0,0,0)(0,0,1)(0,1,0)
 \psset{SphericalCoor=true}
 \pstThreeDDot[dotstyle=none](1,10,50)
 \pstThreeDDot[dotstyle=none](1,60,70)
 \pscustom[fillstyle=crosshatch,hatchcolor=yellow,
           linestyle=none]{\oA\oB\oAB}
 \oA \oB \oAB
 \pstThreeDPut(1.1,60,70){\Large $\vec\Omega_1$}
 \pstThreeDPut(1.2,10,50){\Large $\vec\Omega_2 \,$}
 \pstThreeDPut(1,10,65){\Large $\gamma_{12}$}
\end{pspicture}
\end{document}