Présentation de 666.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 1 def /ydecalage 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