Présentation de cerc_empil_2.jps

%% auteur :

-5 5 setxrange
-3.2 3.2 setyrange

O 1 /C1 defcercle
/O2 {2 0} def
/u {2 0} def
/v {-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
/C8 {C7 u translatecercle} def
 /C9 {C2 u translatecercle} def 
/C10 {C3 u translatecercle} def 
/C11 {C4 v translatecercle} def 
/C12 {C5 v translatecercle} def 
/C13 {C6 v translatecercle} def 

C1 cercle
C2 cercle
C3 cercle
C4 cercle
C5 cercle
C6 cercle
C7 cercle
C8 cercle
C9 cercle
C10 cercle
C11 cercle
C12 cercle
C13 cercle

/fillstyle{hachure}def
-60 60 O 1 wedge*
-120 -60 O3 1 wedge*
120 240 O2 1 wedge*
60 120 O7 1 wedge*