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

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

%tracerepere marks

/A {1 0.5} def
/B {8 1.5} def
/C {2.5 3} def
/O {4 2} def
/x {1 2.5} def
/px {1.5 0.5} def
/qx {-0.5 2} def
/Ox {O x addv} def
/Opx {O px addv} def
/y {3 2} def
/Oy {O y addv} def


[C A B] ligne
[Ox Opx] ligne
Opx O Opx Ox angledroit

O Ox (->) line
O Opx (->) line

 0.3 setlinewidth
[Ox Oy] ligne
O Oy (->) line