Fichier 980.jps — Modifié le 12 Novembre 2006 à 12 h 16
%% auteur : Gilles Mora
-3 16 setxrange
-2 5 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*
/E{-3 4} def
/F{8 4} def
E F droite
<tex>
$P$
</tex>
-1.3 0 [1.5 dup] ultexlabel
<tex>
$D$
</tex>
-2 4 [1.5 dup] uctexlabel