Source
%% auteur : 

30 setxunit
30 setyunit
-2.5 2.5 setxrange
-2.5 2.5 setyrange
%tracerepere
/O{0 0} def
/cerc{O 2} def
/A{200 cerc cpoint} def
/B{290 cerc cpoint} def
/M{70 cerc cpoint} def

cerc cercle
[O A M B] polygone

setTimesItalic
(A) A dltext
(B) B drtext
(O) O ultext
(M) M utext