28 setxunit
0 12 setxrange
0 6 setyrange
/A {2 5} def
/B {1 1} def
/C {12 3} def
/O {6 3} def
/P1 {3 2} def
/P2 {12 5} def
/D1 {10 7} def
/D2 {3 0} def
/On {5 6} def
/Onn {7 0} def
O On B C interdroite /I defpoint
O D1 B C interdroite /J defpoint
[A B C] ligne
O point
[P1 P2] ligne
[O On] ligne
[I Onn] ligne
[O D1] ligne
[J D2] ligne
pointilles
[I O J] ligne
continu
P1 O On angledroit
P2 O D1 1.1 (-) tripointarcarrow
D1 O On .9 (-) tripointarcarrow