Présentation de 1100.jps

/syracuse/bbgraf/tmp/1100.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 /facteur .6 def %% facteur d'agrandissement/reduction pour les cartes /vadjust 50 def /i 0 def [ (09-coeur) (V-trefle) (V-carreau) (10-trefle) (V-pique) (D-trefle) (R-trefle) (V-coeur) ] { 0 0 [facteur dup] {60 i add} 5 -1 roll ucpict /i i 180 12 div sub store } apply