%% auteur : Gilles Mora

-1 13 setxrange
-5 5 setyrange
30 setxunit
30 setyunit


/A {0 -1.5} def
/B {10 -1.5} def
/C {12 1.5} def
/D {2 1.5} def
/E{10 0} def
/F{0 0} def
/G{2 3} def
/H{12 3} def
/I{3.5 2} def
/J{5.5 5} def
/K{9 -1.5} def
/L{7.5 -4.5} def
[A B] ligne
[B C] ligne
[E F] ligne
%[K L] ligne


/T{A D E F interdroite} def
/U{D C E H  interdroite} def
/t{G H I J interdroite} def
/V{J K G H interdroite} def
/W{E F I L interdroite} def
/X{G H J K interdroite} def
/Y{K J D C interdroite} def
/Z{A B I L interdroite} def
/z{E F Y Z interdroite} def
[G t] ligne
[E H] ligne
[F G] ligne
[X H] ligne


[J V] ligne
[A T] ligne
[U C] ligne
[I J] ligne
[I L] ligne

gsave
   .8 setlinewidth
   pointilles
   [L K] ligne
grestore

noir
 /fillstyle {.95 setgray fill} def
   [I J X W] polygone*
[W z Z] polygone*
[K Z L] polygone*

rouge
[X W] ligne
[Y Z] ligne

noir
pointilles
[Y C] ligne
[T D] ligne
[t X] ligne
[D U] ligne
[V K] ligne


<tex>
$
Plan $
</tex>
0.8 -1.6 [1.5 dup] ultexlabel
<tex>
$
P_2 $
</tex>
0.8 -0.1 [1.5 dup] ultexlabel

<tex>
$
d_1 $
</tex>
6 -1 [1.5 dup] ultexlabel
<tex>
$
d_2 $
</tex>
5 0.5 [1.5 dup] ultexlabel