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