28.4527 setxunit %% 10 mm
%60 setxunit
0 11 setxrange
0 6 setyrange

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

%tracerepere marks

/O {6.5 2.5} def
/A {1 1} def
/B {9.5 1.5} def
/C {3.5 2.5} def
/xU {-0.2 2.5} def
/xH {1.2 -0.4} def
/rxH {1 0.6} def
/bas {0.1 -1.25} def

/OxU {O xU addv} def
/OxH {O xH addv} def
/Ox {OxH xU addv} def
/OrxH {O rxH addv} def
/Orx {OrxH xU addv} def

/I {A B O OxU interdroite} def
/J {O Orx Ox OxU interdroite} def
/Ibas {I bas addv} def
/OU {I xU addv} def
/D {OxU xU addv} def

[C A B] ligne
[O D] ligne
[I Ibas] ligne

O OxH (->) line
O OrxH (->) line
O Ox (->) line
J Orx (->) line
O OxU (->) line
OxU Ox (->) line
OxU Orx (->) line
D O A angledroit

OxH O OrxH 0.5 (<-) tripointarcarrow
Ox OxU Orx 0.5 (<-) tripointarcarrow

pointilles
[O I] ligne
[O J] ligne
[Ox OxH] ligne
[Orx OrxH] ligne

continu
1.7 setlinewidth
O OU (->) line