Fichier 002.jps — Modifié le 2 Septembre 2006 à 19 h 48
%% 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