28.4527 setxunit %% 10 mm
%90 setxunit
0 7 setxrange
0 4 setyrange

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

%tracerepere marks

/u {-0.2 1.5} def
/pM {4 1} def
/M {6 0.6} def
/RM {6 1.5} def
/fM {RM u addv} def
/D {pM u addv} def
pM D droite
[M pM RM fM] ligne
[M RM fM] points
[2 1 2 1 u addv] (->) ligne