Présentation de 667.jps

/syracuse/bbgraf/tmp/667.jpg
-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 0.5 def /ydecalage 0 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