%% auteur : MORA
-2 10 setxrange
-2.5 10 setyrange
20 setxunit
20 setyunit
.7 setlinewidth

/I{0 0} def
/L{9 0} def
/P{3 6} def
/J{1 3} def
/K{7 3} def



[I L P] polygone
[I L P ] points
[J K] ligne
setTimes
(I)  I [2 2] dltext
(L) L [2 2] drtext
(P) P [2 2] urtext
(J) J [2 2] ultext
(K) K [2 2] urtext
(6) P J milieu [2 2] rtext
(5) J K milieu [2 2] dtext
((JK)//(IL)) 3.5 -1.3 [2 2]  dtext
(7) P K milieu [2 2] rtext
%% adresse IP : 89.227.172.185