%% 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
|