%% auteur : Gilles MORA

-3 10 setxrange
-3 8 setyrange
15 setfontsize
30 setxunit
30 setyunit
/A{-2 -2} def
/H{3 -2} def
/B{H A 1.625 hompoint} def
/E{0 6} def
/F{8 6} def

[A F] ligne
[B E] ligne
[A B ] ligne
[E F] ligne

/C{A F E B interdroite} def
/G{C A 0.625 hompoint} def
[A H B E F G] points
[H G] ligne
setTimes
   (A) A dltext
(B) B dtext
(C) C ltext
(E) E ultext
(F) F urtext
 (G) G ultext 
(H) H dtext 
(4) A G milieu  utext
(2,5) G C milieu utext
(5) A H milieu dtext
(7) F C milieu drtext
(3) G H milieu rtext
setTimesItalic


%% adresse IP : 89.225.78.231