Présentation de cerc_hexa_1.jps

%% 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