Source PostScript (get.pps)

%% syntaxe : array_points n getp --> le n-ieme point du tableau de
%% points array_points
/getp {
   2 copy
   2 mul get
   3 1 roll
   2 mul 1 add get
} def

%% syntaxe : array_cercles n cget --> le n-ieme cercle du tableau de
%% cercles array_points
/getc {
2 dict begin
   /n exch def
   /les_cercles exch def
   les_cercles n 3 mul get
   les_cercles n 3 mul 1 add get
   les_cercles n 3 mul 2 add get
end
} def