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.5 1} def
/B {7 2.5} def
/C {2 2.5} def
/AB {A B} def
/O {4 2.5} def
/v {1 2} def
/pv {1.3 0.5} def
/qv {-0.3 1.5} def
/Ov {O v addv} def
/Opv {O pv addv} def
/Oqv {O qv addv} def
/Oqvqv {Oqv qv addv} def
/D {4.6 -1} def
/d {O Oqv} def
/I {AB d interdroite} def
/OO {2.7 2} def

[C A B] ligne
[O Oqvqv] ligne
[I D] ligne
Oqv O OO angledroit

O Ov (->) line
O Opv (->) line
O Oqv (->) line

pointilles
[Oqv Ov Opv] ligne
[O I] ligne