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

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

%tracerepere marks
/A {3 1} def
/B {9.5 2.5} def
/C {5 4} def
[C A B] ligne

/O1 {0.5 4} def
/O2 {1.5 4} def
/u {0.5 -2} def
/pO1 {O1 u addv} def
/pO2 {O2 u addv} def
/M {6 4.5} def
/pM {M u addv} def
/sM {pM u addv} def
/d {M pM} def
/I {A B d interdroite} def

[M pM sM] points
O1 pO1 droite
O2 pO2 droite
[M pM] ligne
[I sM] ligne

pointilles
[pM I] ligne