%% auteur :
-4 4 setxrange
-3.2 3.2 setyrange

O 1 /C1 defcercle
/O2 {2 0} def
O2 1 /C2 defcercle
/O3 {O2 O 60 rotatepoint} def
/C3 {C2 O 60 rotatecercle} def
/O4 {O3 O 60 rotatepoint} def
/C4 {C3 O 60 rotatecercle} def
/O5 {O4 O 60 rotatepoint} def
/C5 {C4 O 60 rotatecercle} def
/O6 {O5 O 60 rotatepoint} def
/C6 {C5 O 60 rotatecercle} def
/O7 {O6 O 60 rotatepoint} def
/C7 {C6 O 60 rotatecercle} def

C1 cercle
C2 cercle
C3 cercle
C4 cercle
C5 cercle
C6 cercle
C7 cercle

[O O2 O3 O4 O5 O6 O7] points

/a {3 sqrt 3 div 1 add 2 mul} def
/A {a 0} def
/B {A O 60 rotatepoint} def
/C {B O 60 rotatepoint} def
/D {C O 60 rotatepoint} def
/E {D O 60 rotatepoint} def
/F {E O 60 rotatepoint} def




[A B C D E F] polygone
%/AB {A B} def
%/H {O1 AB orthoproj} def
%/K {O2 AB orthoproj} def
%A H O1 angledroit
%A K O2 angledroit

pointilles
%[O1 H] ligne
%[O2 K] ligne
% O1 droite
% O2 droite
% O3 droite 

setTimesItalic

(A) A rtext
(B) B rtext
(C) C ltext
(D) D ltext
(E) E dltext
(F) F drtext
(O) O rtext
(1) indice
(O) O2 drtext
(2) indice
(O) O3 rtext
(3) indice
(O) O4 rtext
(4) indice
(O) O5 rtext
(5) indice
(O) O6 rtext
(6) indice
(O) O7 rtext
(7) indice
%H) H ltext
%K) K ltext