-1 17 setxrange
-5 10 setyrange
30 setxunit
30 setyunit
/O{0 0} def
/A{3 4} def
/B{16 4} def
/C{13 0} def
/D{4.1 7} def
/E{8.4 9.1} def
/F{11 8} def
/G{8 6} def
/H{5 -3} def
/I{8 -1} def
/J{A B F I interdroite} def
/N{11 -2} def
/P{7 -4} def
/K{E N G F interdroite} def
/L{O C D P interdroite} def
/Q{A B D P interdroite} def
/M{O C E N interdroite} def
/T{H I D P interdroite} def
1.5 setlinewidth
[O A] ligne
[A Q] ligne
[J B] ligne
[B C] ligne
[O C] ligne

[G F] ligne
[G H] ligne
[F J] ligne
[D E] ligne
[E K] ligne
[D P] ligne
[P N] ligne
[M N] ligne
[H T] ligne
[L J] ligne
0.75 setlinewidth
pointilles
[Q J] ligne
[I J] ligne
[I T] ligne
[K M] ligne

continu
L J droite


<tex>
$P$
</tex>
0.5 0 [1.5 dup] urtexlabel

<tex>
$D$
</tex>
14 8 [1.5 dup] urtexlabel


<tex>
$R$
</tex>
9.7 6.7 [1.5 dup] urtexlabel

<tex>
$Q$
</tex>
7.5 8 [1.5 dup] urtexlabel