-3 16 setxrange
-10 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{1 2.5} def % droite D
/J{8 0.5} def
[I J] ligne
/E{0 0.5} def
/F{8 2} def
[E F] ligne


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


<tex>
$D$
</tex>
1  2.5 [1.5 dup] dctexlabel

<tex>
$D'$
</tex>
8 3 [1.5 dup] dctexlabel


/A {-3 -5} def
/B{1 -2} def
/C{12 -2} def
/D{8 -5} def
[A B C D] polygone*
/I{1 -2.5} def % droite D
/J{8 -4.5} def
[I J] ligne
/E{0 -4.5} def
/F{8 -3} def
[E F] ligne


<tex>
$Q$
</tex>
-1.3 -5 [1.5 dup] ultexlabel


<tex>
$D_1$
</tex>
1  -2.5 [1.5 dup] dctexlabel

<tex>
$D_1'$
</tex>
8 -2 [1.5 dup] dctexlabel