Présentation de 680.jps

/syracuse/bbgraf/tmp/680.jpg
-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-coeur) (07-coeur) (08-coeur) (09-coeur) (10-coeur) (V-coeur) (D-coeur) (R-coeur) ] { xdecalage i mul ydecalage i mul [facteur dup] 4 -1 roll ucpict /i i 1 add store } apply