%% 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
[A B C D] polygone*


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