Présentation de cerc_clip_1.jps

%% auteur : 

-3 3 setxrange
-3 3 setyrange

/fillstyle {bleu hachure} 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