-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