Présentation de 1638.jps

/syracuse/bbgraf/tmp/1638.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 .5 def %% facteur d'agrandissement/reduction pour les cartes /vadjust 50 def /i 0 def [ (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (08-pique) (carte_dos_04) (carte_dos_04) (carte_dos_04) (carte_dos_04) (08-trefle) ] { 0 0 [facteur dup] {90 i add} 5 -1 roll ucpict /i i 180 12 div sub store } apply