-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*
[X W] ligne
[Y Z] ligne
noir
pointilles
[Y C] ligne
[T D] ligne
[t X] ligne
[D U] ligne
[V K] ligne
$
P $
0.8 -1.6 [1.5 dup] ultexlabel
$
Q$
1 -0.1 [1.5 dup] ultexlabel
$
R$
6 4 [1.5 dup] ultexlabel