-3 16 setxrange -5 8 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* /I{0.5 2.2} def % droite D /J{7.5 0.2} def [I J] ligne /E{1.8 2.8} def /F{8.8 0.8} def [E F] ligne $P$ -1.3 0 [1.5 dup] ultexlabel $D$ 1 2 [1.5 dup] dctexlabel $D'$ 8 2 [1.5 dup] dctexlabel