Fichier rect_003.jps — Modifié le 23 Mars 2006 à 15 h 49
autocrop
%% ABC equilateral avec AB = 5
/A {-2 0} def
/B {3 0} def
/C {B A 60 rotatepoint} def
%% H projete orthogonal de A sur (BC)
A B C orthoproj /H defpoint
%% M le point de [AC] tel que AM = 3
A C A 3 interdroitecercle /M defpoint
%% P projete orthogonal de M sur [AH]
M A H orthoproj /P defpoint
[A B C H M P] points
[A B C] polygone
.5 setlinewidth
orange
A H B angledroit
A P M angledroit
[A H] ligne
[M P] ligne
noir
setTimesItalic
(A) A dltext
(B) B drtext
(C) C uctext
(H) H urtext
(M) M ultext
(P) P drtext
setTimes
(5) A B milieu dctext
(3) A M milieu ultext