main_03.jps

-2 8 setxrange   %% intervalle de l'image sur Ox
-6 5 setyrange   %% intervalle de l'image sur Oy
30 setxunit      %% taille d'une unite sur Ox

%marks
%quadrillage

/facteur .6 def %% facteur d'agrandissement/reduction pour les cartes
/xdecalage .5 def
/ydecalage -.5 def
/i 0 def
[
(01-pique)
(02-pique)
(03-pique)
(04-pique)
(05-pique)
(06-pique)
(07-pique)
(08-pique)
(09-pique)
(10-pique)
(V-pique)
(D-pique)
(R-pique)
]
{
   xdecalage i mul ydecalage i mul [facteur dup] 4 -1 roll ucpict
   /i i 1 add store
} apply