autocrop
30 setxunit
/A {O} def
/H {0 -3} def
A H 90 rotatepoint /B defpoint
%% la droite (AC)
A A -60 dir addv 
B H interdroite
/C defpoint

[A H] ligne
[A B C] polygone 
A H C angledroit

B A H 1 (-) tripointarc
H A C 1.2 (=) tripointarc

setTimesItalic
   (A) A uctext
   (B) B dltext
   (C) C drtext
   (H) H dctext
10 setfontsize
setTimes
   (45°) -112.5 A 1.3  cpoint cctext
   (30°) -75 A 1.5  cpoint cctext