Présentation de cerc_clip_3.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 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