autocrop
50 setxunit
/A {0 0} def
A A -100 dir addv
A 2 interdroitecercle popp /B defpoint

A 3 B 2.5 intercercle popp /C defpoint 

1.5 setlinewidth
[A B C] polygone

setTimesItalic
   (A) A uctext
   (B) B dltext
   (C) C drtext
10 setfontsize
setTimes
   (2) A B milieu ultext
   (3) A C milieu urtext
   (2,5) B C milieu dltext


1.5 1 stranslate
40 rotate
.5 dup scale
-1 -2 stranslate
[A B C] polygone

25 setfontsize
setTimesItalic
   (M) A {-40} uctext
   (N) B {-40} dltext
   (P) C {-40} drtext
20 setfontsize
setTimes
   (1) A B milieu {-40} cltext
   (1,5) A C milieu {-40} urtext
   (1,25) B C milieu {-40} dctext