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

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

%tracerepere marks
/A {4 0.5} def
/B {9 2.5} def
A B droite

/M  {7.5 4} def
/u {-1 -3} def
/M1 {M u addv} def
/d {M M1} def
/pM {d A B interdroite} def
 d droite
[M pM] points

/O1 {1.5 3} def
/O2{2.2 3} def
/pO1 {O1 u addv} def
/pO2 {O2 u addv} def
O1 pO1 droite
O2 pO2 droite