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