%% auteur :
-3 3 setxrange
-2 3.2 setyrange

/O1 {0 1} def
/a {3 sqrt 2 div} def 
/O2 {a -0.5} def
/b {a neg} def
/O3 {b -0.5} def

/c {0.5 a add neg} def
/d {1.5 a add} def
/e {d neg} def
/f {3 sqrt 1 add} def
/A {0 f} def
/C {d c} def
/B {e c} def

O1 a cercle
O2 a cercle
O3 a cercle



[O1 O2 O3] points
[A B C] polygone
setTimes
(A) A utext
(B) B ltext
(C) C rtext
(O) O1 rtext
(1) indice
(O) O2 rtext
(2) indice
(O) O3 rtext
(3) indice