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}
|