%% taille de la fenetre
-3 3 setxrange
-3 3 setyrange

%% les parametres du dessin
/r 2.2 def                      %% rayon du cercle
/cerc {O r} def                 %% on nomme le cercle
/A {-45 cerc cpoint} def        %% A = point du cercle d'angle -45
/B {50 cerc cpoint} def         %% B = point du cercle d'angle 50
/M {160 cerc cpoint} def        %% M = point du cercle d'angle 160

quadrillage

[O A B M] points
cerc cercle
[B O A] ligne
[B M A] ligne

A O B .5 (-) tripointarc
A M B .5 (=) tripointarc

setTimesItalic
   (A) A dtext
   (B) B rtext
   (O) O ltext
   (M) M ltext