Présentation de cerc_clip_2.jps

/syracuse/bbgraf/albums/cercles/cerc_clip_2.jpg
%% 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