Présentation de 1342.jps

/syracuse/bbgraf/tmp/1342.jpg
-6 6 setxrange %% intervalle de l'image sur Ox -3 7 setyrange %% intervalle de l'image sur Oy 30 setxunit %% taille d'une unite sur Ox quadrillage marks /facteur .6 def %% facteur d'agrandissement/reduction pour les cartes /vadjust 50 def /i 0 def [ (01-coeur) (02-coeur) (03-coeur) (04-coeur) (05-coeur) (06-coeur) (07-coeur) (08-coeur) (09-coeur) (10-coeur) (V-coeur) (D-coeur) (R-coeur) ] { 0 0 [facteur dup] {90 i add} 5 -1 roll ucpict /i i 180 12 div sub store } apply