%% auteur : 
-3 3 setxrange
-3 3 setyrange

gsave
   bleu hachure
grestore

/fillstyle {blanc fill} def

/cerc {3 3 1} def

%% la famille des 4 cercles de l'extremite droite du dessin
[cerc 3 {dupc 0 -2 translatecercle} repeat] 
%% chaque cercle est duplique puis tranlate de 2 rangees
{dupc -4 0 translatecercle} capply
%% chaque cercle est duplique puis tranlate d'une rangee
{dupc -2 0 translatecercle} capply
%% on les dessine
{cercle*} capply