28.4527 setxunit %% 10 mm
%90 setxunit
-1 3 setxrange
-1 2 setyrange

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

%tracerepere marks

traceaxes
axesarrow

/A {15 cos 2 mul 15 sin 2 mul} def
/B {60 cos 2 mul 60 sin 2 mul} def
1 0 0 0 A 1 (<-) tripointarcarrow
1 0 0 0 B 0.5 (<-) tripointarcarrow

0.5 setlinewidth
[A 0 0 B] ligne

1.5 setlinewidth
15 60 0 0 2 Cercle