%% auteur : Christian Vassard


-3 8 setxrange
-4 4 setyrange
50 setxunit
50 setyunit
/A {-2 -2} def
/B {2 -2} def
/C {2 2} def
/D {-2 2} def
[A B C D] points
[A B C D] polygone

/E {B A 60 rotatepoint} def
E point
[A B E] polygone

/F {B C 60 rotatepoint} def
F point
[B C F] polygone

A B 1 marked
B C 1 marked
C D 1 marked
D A 1 marked
A E 1 marked
E B 1 marked
B F 1 marked
C F 1 marked

pointilles
.7 setcurvelinewidth
[D F] ligne


setTimesItalic
   (A) A drtext
   (B) B drtext
   (C) C drtext
   (D) D drtext
   (E) E drtext
   (F) F drtext