%% 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{1 2} def /F{8 2} def [E F] ligne $P$ -1.3 0 [1.5 dup] ultexlabel $D$ 3 2 [1.5 dup] uctexlabel