%% auteur : Gilles Mora

-1 8 setxrange
-3 5 setyrange
50 setxunit
50 setyunit


/A {0 0} def
/B {5 0} def
/C {6.5 2} def
/D {1.5 2} def
/E{3 4} def
/F{3 1.3} def
/G{3 0} def
/H{3 -2} def
/I{1.5 1} def
/J{5 0.5} def
/K{1 0.5} def
/L{6 1.8} def
/M{1.5 1.2} def
/N{5.3 1.3} def
/fillstyle {.85 setgray fill} def
   [A B C D] polygone*
[E F] ligne
[G H] ligne
[I J] ligne
[K L] ligne
[M N] ligne
pointilles
[F G] ligne

noir
<tex>
$P $ 
</tex>
0.7 0 [2 dup] ultexlabel

<tex>
$d$ 
</tex>
3 3.5 [2 dup] ultexlabel