-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
[
(01-trefle)
(02-trefle)
(03-trefle)
(04-trefle)
(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