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
/B2 {10 3} def
/O2 {2 1.4} def
/O2u {3.5 1.7} def
/C1 {9 1} def
/D1 {1 3} def
/C2 {10 6} def
/D2 {0 4} def
C2 D2 A1 D1 interdroite /I defpoint
A2 B2 C1 B1 interdroite /J defpoint
/Q {5 2} def
[O1 O2 P Q] points
[P A1 I D2 A2 Q C1 B1] ligne
[J B2 C2 P B1] ligne
[P I] ligne
B1 P Q angledroit
B2 Q P angledroit
O2 A2 D2 1 (-) tripointarcarrow
B1 C1 Q 1 (-) tripointarcarrow
pointilles
[I D1 Q J] ligne
continu
1.5 setlinewidth
P Q droite
[O1 O1u] (->) ligne
[O2 O2u] (->) ligne
/n1 {5.5 2.5} def
/n2 {5.5 4.5} def
[n1 n2] (->) ligne