-6 6 setxrange   %% intervalle de l'image sur Ox
-6 5 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

/x1 -4 def   %% abscisse colonne 1
/x2 -1 def   %% abscisse colonne 2
/x3 2 def    %% abscisse colonne 3

%% facteur d'agrandissement pour les dos de cartes 
/facteurdos facteur .8 mul def

%%%%% le dessin %%%%%

%% colonne 1
x1 0   [facteur dup] (01-coeur) ccpict
x1 -.5 [facteur dup] (02-coeur) ccpict
x1 -1  [facteur dup] (03-coeur) ccpict

%% colonne 2
x2 0     [facteurdos dup] (carte_dos_05) ccpict
x2 -.5   [facteurdos dup] (carte_dos_05) ccpict
x2 -1    [facteurdos dup] (carte_dos_05) ccpict
x2 -1.5  [facteur dup] (R-pique) ccpict

%% colonne 3
x3 0   [facteurdos dup] (carte_dos_01) ccpict
x3 -.5 [facteur dup] (10-trefle) ccpict