%% 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{-2 2} def
/F{2 5} def
/G{15 5} def
/H{11 2} def
[E F G H] polygone*
/I{A B E H interdroite} def
/J{B C G H interdroite} def
[A I] ligne
[A D] ligne
[D C] ligne
[C J] ligne

pointilles
[I B] ligne
[B J] ligne

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

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