-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*
/I{0.5 2.2} def % droite D
/J{7.5 0.2} def
[I J] ligne


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


<tex>
$D=D'$
</tex>
1  2 [1.5 dup] dctexlabel