Présentation de 681.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-carreau)
(07-carreau)
(08-carreau)
(09-carreau)
(10-carreau)
(V-carreau)
(D-carreau)
(R-carreau)
]
{
   xdecalage i mul ydecalage i mul [facteur dup] 4 -1 roll ucpict
   /i i 1 add store
} apply