-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

quadrillage
marks

/facteur .6 def %% facteur d'agrandissement/reduction pour les cartes
/vadjust 50 def

/i 0 def
[
(01-coeur)
(02-coeur)
(03-coeur)
(04-coeur)
(05-coeur)
(06-coeur)
(07-coeur)
(08-coeur)
(09-coeur)
(10-coeur)
(V-coeur)
(D-coeur)
(R-coeur)
]
{
   0 0 [facteur dup] {90 i add} 5 -1 roll ucpict
   /i i 180 12 div sub store
} apply