28 setxunit
-0.2 10 setxrange
0 6 setyrange
/A1 {1 6} def
/O1 {2 5.75} def
/O1u {3 5.5} def
/P {5 5} def
/B1 {9 4} def
/A2 {0 1} def
/O2 {2 1.4} def
/O2u {3.5 1.7} def
/Q {5 2} def
/B2 {10 3} def
/n1 {1 2} def
/n2 {1 5} def
[O1 O2 P Q] points
[A1 B1] ligne
[A2 B2] ligne
A1 P Q angledroit
A2 Q P angledroit
1.5 setlinewidth
P Q droite
[O1 O1u] (->) ligne
[O2 O2u] (->) ligne
[n1 n2] (->) ligne