%% auteur : Gilles Mora

-3 16 setxrange
-5 8 setyrange
25 setxunit
25 setyunit


/A {-3 0} def
/B{1 3} def
/C{14 3} def
/D{10 0} def
/E{3 -4} def
/F{7 -2} def
/K{4 6} def
/L{8 8} def
/G{K E A D interdroite} def
/H{L F A D interdroite} def
/I{F L B C interdroite} def
/J{K E B C interdroite} def

[A B] ligne
[B J] ligne
[[I C] ligne
[C D] ligne
[A D] ligne
[E K] ligne
[K L] ligne
[L I] ligne
[H F] ligne
[E F] ligne

I G droite
pointilles
[I J] ligne
[I H] ligne

<tex>
$P$
</tex>
-1.5 0 [1.5 dup] ultexlabel

<tex>
$Q$
</tex>
4 -3.5 [1.5 dup] ultexlabel

<tex>
$D$
</tex>
12 5 [1.5 dup] ultexlabel