autocrop
-10 8 setxrange
-5 7 setyrange

/A {0 0} def
/B {0 4.5} def
/C {-9 3 sqrt mul 2 div 0} def

[A B C] polygone
C A B angledroit

A C B 1.5 (-) tripointarc

setTimesItalic
   (A) A drtext
   (B) B urtext
   (C) C dltext
setTimes
   (30°) 15 C 1.5 cpoint brtext

<tex>
$$
   {3\sqrt 3}
$$
</tex>

A C milieu [1.3 dup] dctexlabel