-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-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
|