Présentation de 448.jps

/syracuse/bbgraf/tmp/448.jpg
-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-trefle) ccpict x1 -.5 [facteur dup] (10-coeur) ccpict x1 -1 [facteur dup] (V-coeur) ccpict %% colonne 2 x2 0 [facteurdos dup] (D-trefle) ccpict x2 -.5 [facteurdos dup] (08-carreau) 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