Présentation de 1635.jps

-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
[
(carte_dos_01)
(carte_dos_02)
(carte_dos_03)
(carte_dos_04)
(05-trefle)
(06-trefle)
(07-trefle)
(08-trefle)
(09-trefle)
(10-trefle)
(V-trefle)
(D-trefle)
(R-trefle)
]
{
   0 0 [facteur dup] {90 i add} 5 -1 roll ucpict
   /i i 180 12 div sub store
} apply