Présentation de 679.jps

-2 9 setxrange   %% intervalle de l'image sur Ox

0 4 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 1 def
/ydecalage 0 def
/i 0 def
[
(01-trefle)
(07-trefle)
(08-trefle)
(09-trefle)
(10-trefle)
(V-trefle)
(D-trefle)
(R-trefle)
]
{
   xdecalage i mul ydecalage i mul [facteur dup] 4 -1 roll ucpict
   /i i 1 add store
} apply