%% 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{I P 0.333 hompoint} def
/K{I L 0.333 hompoint} 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] dtext
(3) P J milieu [2 2] ltext
(5) J K milieu [2 2] text
((JK)//(IL)) 3.5 -1.3 [2 2]  dtext
(10) P L milieu [2 2] rtext

setTimesItalic
(x) I J milieu [2 2] ltext
%% adresse IP : 89.227.172.185