-6 6 setxrange %% intervalle de l'image sur Ox
-3 7 setyrange %% intervalle de l'image sur Oy
20 setxunit %% taille d'une unite sur Ox
/facteur .5 def %% facteur d'agrandissement/reduction pour les cartes
/vadjust 30 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)
(08-carreau)
(08-trefle)
(carte_dos_04)
(carte_dos_04)
(carte_dos_04)
(08-pique)
(carte_dos_04)
(carte_dos_04)
(carte_dos_04)
(carte_dos_04)
(08-coeur)
]
{
0 0 [facteur dup] {90 i add} 5 -1 roll ucpict
/i i 180 12 div sub store
} apply
|