Présentation de cerc_hexa_1.jps

/syracuse/bbgraf/albums/cercles/cerc_hexa_1.jpg
%% 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