Présentation de 1850.jps

autocrop
-6 6 setxrange   %% intervalle de l'image sur Ox

-7 7 setyrange   %% intervalle de l'image sur Oy

20 setxunit      %% taille d'une unite sur Ox


/facteur .4 def %% facteur d'agrandissement/reduction pour les cartes

/vadjust 20 def

/i 0 def
[
(carte_dos_01)
(carte_dos_02)
(carte_dos_03)
(carte_dos_04)
(carte_dos_05)
(carte_dos_06)
(carte_dos_07)
(carte_dos_08)
(carte_dos_09)
(carte_dos_10)
(carte_dos_11)
(carte_dos_13)
(carte_dos_14)
(carte_dos_bleu)
]
{
   0 0 [facteur dup] {90 i add} 5 -1 roll ucpict
   /i i 360 14 div sub store
} apply