28.4527 setxunit %% 10 mm
%60 setxunit
0 5 setxrange
0 4 setyrange

%[1 1 .5 .5 .1 .1] {orange} Quadrillage

%tracerepere marks

/O {1.5 1} def
/r 2.2 def                      %% rayon du cercle
/cerc {O r} def                 %% on nomme le cercle
/A {5 cerc cpoint} def        %% A = point du cercle d'angle 5
/B {50 cerc cpoint} def         %% B = point du cercle d'angle 50

[B O A] ligne
[B O A] points
A O B 1 (<-) tripointarcarrow