%% 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 {O2 AB orthoproj} def /K {O3 AB orthoproj} def A H O2 angledroit A K O3 angledroit pointilles [O2 H] ligne [O3 K] ligne A D droite B E droite C F droite [O2 O3 O4 O5 O6 O7] polygone setTimesItalic (A) A urtext (B) B rtext (C) C ltext (D) D ultext (E) E ltext (F) F rtext (O) O dtext (1) indice (O) O2 drtext (2) indice (O) O3 rtext (3) indice (O) O4 utext (4) indice (O) O5 ultext (5) indice (O) O6 dtext (6) indice (O) O7 rtext (7) indice (H) H rtext (K) K rtext