%% 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 colonnes
{dupc -4 0 translatecercle} capply
%% chaque cercle est duplique puis tranlate d'une colonne
{dupc -2 0 translatecercle} capply

/les_cercles exch def          %% on stocke le tableau de cercles

les_cercles {pop} capply       %% on recupere le tableau des centres
/les_centres exch def          %% et on le stocke

les_cercles {cercle} capply    %% on dessine les cercles

%% on cree le tableau [/A1 /A2 ... /A16]
/les_noms
   [/A
   les_centres length 2 idiv  %% le nombre de points
   genMiname]
def

%% on associe les noms aux points
les_noms les_centres mapnp

gsave
   newpath
      [A2 A12 A15 A5] polygone_
   closepath
   clip
   les_cercles {cercle*} capply    %% on dessine les cercles hachures
grestore