MetaPost / Cartes à jouer (Christophe Poulain)
Présentation / Animations / Figures pour un cours / Galeries / Vrac   vers le bas

Cartes à jouer (Christophe Poulain)

Voici une exploitation des cartes à jouer dans un fichier metapost à l'aide des macros d'exteps. C'est à mettre en parallèle avec l'utilisation de ces mêmes cartes par BBgraf.

Pour la compilation de ce fichier les macros de geometriesyr16 sont nécessaires.

cartes.mp [ source brut ] 

 prologues:=2;
 input geometriesyr16;
 input exteps;
Conversion au format PDF de cartes.1
 figure(0,0,4.5*136pt,196pt);
 picture carte[];
 carte1=image(
   begineps "07-carreau.eps";
   base:=(0,0);
   endeps;
   );
 carte2=image(
   begineps "08-carreau.eps";
   base:=(68,0);
   endeps;
   );
 carte3=image(
   begineps "09-carreau.eps";
   base:=(2*68,0);
   endeps;
   );
 carte4=image(
   begineps "10-carreau.eps";
   base:=(3*68,0);
   endeps;
   );
 carte5=image(
   begineps "V-carreau.eps";
   base:=(4*68,0);
   endeps;
   );
 carte6=image(
   begineps "D-carreau.eps";
   base:=(5*68,0);
   endeps;
   );
 carte7=image(
   begineps "R-carreau.eps";
   base:=(6*68,0);
   endeps;
   );
 carte8=image(
   begineps "01-carreau.eps";
   base:=(7*68,0);
   endeps;
   );
 for k=1 upto 8:
   trace carte[k];
 endfor;
 fin;
Conversion au format PDF de cartes.2
 figure(-10u,-10u,15u,15u);
 picture carte[];
 carte1=image(
   begineps "07-carreau.eps";
   angle:=90;
   base:=(0,0);
   endeps;
   );
 carte2=image(
   begineps "08-carreau.eps";
   angle:=90-180/8;
   base:=(3u+3u*cosd(180-180/8),3u*sind(180-180/8));
   endeps;
   );
 carte3=image(
   begineps "09-carreau.eps";
   angle:=90-180*2/8;
   base:=(3u+3u*cosd(180-180*2/8),3u*sind(180-180*2/8));
   endeps;
   );
 carte4=image(
   begineps "10-carreau.eps";
   angle:=90-180*3/8;
   base:=(3u+3u*cosd(180-180*3/8),3u*sind(180-180*3/8));
   endeps;
   );
 carte5=image(
   begineps "V-carreau.eps";
   angle:=90-180*4/8;
   base:=(3u+3u*cosd(180-180*4/8),3u*sind(180-180*4/8));
   endeps;
   );
 carte6=image(
   begineps "D-carreau.eps";
   angle:=90-180*5/8;
   base:=(3u+3u*cosd(180-180*5/8),3u*sind(180-180*5/8));
   endeps;
   );
 carte7=image(
   begineps "R-carreau.eps";
   angle:=90-180*6/8;
   base:=(3u+3u*cosd(180-180*6/8),3u*sind(180-180*6/8));
   endeps;
   );
 carte8=image(
   begineps "01-carreau.eps";
   angle:=90-180*7/8;
   base:=(3u+3u*cosd(180-180*7/8),3u*sind(180-180*7/8));
   endeps;
   );
 for k=1 upto 8:
   trace carte[k];
 endfor;
 fin;
 end

 

Validation CSS Validation XHTML — Jean-Michel Sarlat — Dernière modification : 17 janvier 2007 (0.08s - 3949474 - vendredi 9 janvier 2009) vers le haut