-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)
(carte_dos_04)
(carte_dos_04)
(carte_dos_04)
]
{
0 0 [facteur dup] {90 i add} 5 -1 roll ucpict
/i i 180 12 div sub store
} apply
|