summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-solides3d/doc/par-projectionangledroit.tex
blob: d0ec3ab153265988e48f3528226f3491efbf4fd8 (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
82
83
84
85
86
87
88
89
90
91
\section {Angle droit}

L'objet \Cadre{rightangle} permet de définir un angle droit. Sa
syntaxe est 
\Cadre{[object=rightangle,args=$A$ $B$ $C$]}

\begin{multicols}{2}

%% projete orthpgonal d'un point sur une droite
%%
\begin{pspicture}(-3,-2.5)(3.5,2.5)%
\psframe*[linecolor=blue!50](-3,-2.5)(3.5,2.5)
\psset{lightsrc=viewpoint,viewpoint=50 30 15,Decran=40}
\psset{solidmemory}
%% definition du plan de projection
\psSolid[object=plan,
   definition=equation,
   args={[1 0 1 0] 90},
   base=-4 4 -3 3,
   fillcolor=white,
   linecolor=gray!30,
%   plangrid,
   planmarks,
   name=monplan,
]
\psset{plan=monplan,visibility=false}
%% definition droite d
\psProjection[object=droite,
   definition=horizontale,
   args=-1,
   name=d,
]
\psset{fontsize=15}
%% definition du point M
\psProjection[object=point,
   args=-2 1,
   name=M,
   text=M,
   pos=ul,
]
%% definition du point H
\psProjection[object=point,
   definition=orthoproj,
   args=M d,
   name=H,
   text=H,
   pos=dr,
]
%% definition du point H' pour orienter l'angle droit
%% et mettre la legende
\psProjection[object=point,
   definition=xdpoint,
   args=2 d,
   name=H',
   action=none,
   text=d,
   pos=ur,
]
%% definition d'une ligne 
\psProjection[object=line,
   args=M H,
]
%% dessin angle droit
\psProjection[object=rightangle,
   args=M H H',
]
\composeSolid
%\axesIIID(4,4,2)(5,5,6)
\end{pspicture}
\columnbreak

\begin{gbar}
\begin{verbatim}
\psProjection[object=droite,
   definition=horizontale,args=-1,name=d,]
\psProjection[object=point,args=-2 1,
   name=M,text=M,pos=ul,]
\psProjection[object=point,
   definition=orthoproj,
   args=M d,name=H,text=H,pos=dr,]
%% definition du point H' pour orienter l'angle droit
\psProjection[object=point,
   definition=xdpoint,args=2 d,
   name=H',action=none,text=d,pos=ur,]
\psProjection[object=line,args=M H,]
\psProjection[object=rightangle,args=M H H',]
\end{verbatim}
\end{gbar}

\end{multicols}