autocrop
15 setxunit

/A {0 0} def
/cerc1 {A 3} def
/cerc2 {A 5} def

/F {-100 cerc1 cpoint} def
/E {-140 cerc1 cpoint} def
/B {-20 cerc2 cpoint} def
/C {20 cerc2 cpoint} def

.9 setlinewidth
[A B C] polygone
[A E F] polygone

.5 setlinewidth
E A F 1 (-) tripointarc
B A C 1 (-) tripointarc

setTimesItalic
   (A) A ultext
   (B) B drtext
   (C) C urtext
   (E) E dltext
   (F) F drtext