%% auteur : Gilles Mora

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


/A {-3 0} def
/B{1 3} def
/C{12 3} def
/D{8 0} def
[A B C D] polygone*
/E{8 6} def
/F{6 2} def
/G{5 0} def
/H{3 -4} def
[E F] ligne
[G H] ligne
F point

pointilles
[E G] ligne

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

<tex>
$D$
</tex>
4  -4 [1.5 dup] cctexlabel

<tex>
$A$
</tex>
F [1.5 dup] cltexlabel