src/Apparence.mp

   1 vardef AffichageA=
   2   path cadre;
   3   cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   4   picture TEXT;
   5   TEXT=image(
   6       fill cadre withcolor LightViolet;
   7     draw texto;
   8     draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   9     );
  10   TEXT
  11 enddef;
  12
  13 vardef DireT(expr phrase,tps)=
  14   save $;
  15   picture $,texto;
  16   texto=image(
  17       label.lrt(LATEX("\bfseries\color{white}Dire \colorbox{white}{\textcolor{black}{"&phrase&"}} pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
  18   );
  19 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  20 _coinprec:=llcorner $;
  21 $
  22 enddef;
  23
  24 vardef Dire(expr phrase)=
  25   save $;
  26   picture $,texto;
  27   texto=image(
  28       label.lrt(LATEX("\bfseries\color{white}Dire \colorbox{white}{\textcolor{black}{"&phrase&"}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  29   );
  30 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  31 _coinprec:=llcorner $;
  32 $
  33 enddef;
  34
  35 vardef PenserT(expr phrase,tps)=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       label.lrt(LATEX("\bfseries\color{white}Penser \colorbox{white}{\textcolor{black}{"&phrase&"}} pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
  40   );
  41 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  42 _coinprec:=llcorner $;
  43 $
  44 enddef;
  45
  46 vardef Penser(expr phrase)=
  47   save $;
  48   picture $,texto;
  49   texto=image(
  50       label.lrt(LATEX("\bfseries\color{white}Penser \colorbox{white}{\textcolor{black}{"&phrase&"}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  51   );
  52 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  53 _coinprec:=llcorner $;
  54 $
  55 enddef;
  56
  57 vardef Montrer=
  58   save $;
  59   picture $,texto;
  60   texto=image(
  61       label.lrt(LATEX("\bfseries\color{white} Montrer"),if unknown _coinprec: (0,0) else:_coinprec fi);
  62   );
  63 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  64 _coinprec:=llcorner $;
  65 $
  66 enddef;
  67
  68 vardef Cacher=
  69   save $;
  70   picture $,texto;
  71   texto=image(
  72       label.lrt(LATEX("\bfseries\color{white} Cacher"),if unknown _coinprec: (0,0) else:_coinprec fi);
  73   );
  74 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  75 _coinprec:=llcorner $;
  76 $
  77 enddef;
  78
  79 vardef Basculer(expr costume)=
  80   save $;
  81   picture $,texto;
  82   texto=image(
  83       label.lrt(LATEX("\bfseries\color{white} Basculer sur le costume "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  84   );
  85 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  86 _coinprec:=llcorner $;
  87 $
  88 enddef;
  89
  90 vardef CostumeSuivant=
  91   save $;
  92   picture $,texto;
  93   texto=image(
  94       label.lrt(LATEX("\bfseries\color{white} Costume suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
  95   );
  96 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  97 _coinprec:=llcorner $;
  98 $
  99 enddef;
 100
 101 vardef BasculerAR(expr costume)=
 102   save $;
 103   picture $,texto;
 104   texto=image(
 105       label.lrt(LATEX("\bfseries\color{white} Basculer sur l'arrière-plan "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
 106   );
 107 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 108 _coinprec:=llcorner $;
 109 $
 110 enddef;
 111
 112 vardef AjouterEffet(expr costume,nb)=
 113   save $;
 114   picture $,texto;
 115   texto=image(
 116       label.lrt(LATEX("\bfseries\color{white} Ajouter à l'effet "&costume&" "& if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
 117   );
 118 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 119 _coinprec:=llcorner $;
 120 $
 121 enddef;
 122
 123 vardef MettreEffet(expr costume,nb)=
 124   save $;
 125   picture $,texto;
 126   texto=image(
 127       label.lrt(LATEX("\bfseries\color{white} Mettre l'effet "&costume&" à "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
 128   );
 129 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 130 _coinprec:=llcorner $;
 131 $
 132 enddef;
 133
 134 vardef AnnulerEffet=
 135   save $;
 136   picture $,texto;
 137   texto=image(
 138       label.lrt(LATEX("\bfseries\color{white} Annuler les effets graphiques"),if unknown _coinprec: (0,0) else:_coinprec fi);
 139   );
 140 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 141 _coinprec:=llcorner $;
 142 $
 143 enddef;
 144
 145 vardef AjouterTaille(expr nb)=
 146   save $;
 147   picture $,texto;
 148   texto=image(
 149       label.lrt(LATEX("\bfseries\color{white} Ajouter \colorbox{white}{\textcolor{black}{"&if numeric nb:decimal(nb)&"}}" else:nb fi&" à la taille"),if unknown _coinprec: (0,0) else:_coinprec fi);
 150   );
 151 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 152 _coinprec:=llcorner $;
 153 $
 154 enddef;
 155
 156 vardef MettreA(expr nb)=
 157   save $;
 158   picture $,texto;
 159   texto=image(
 160       label.lrt(LATEX("\bfseries\color{white} Mettre à "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&"~\%\ de la taille initiale"),if unknown _coinprec: (0,0) else:_coinprec fi);
 161   );
 162 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 163 _coinprec:=llcorner $;
 164 $
 165 enddef;
 166
 167 vardef AllerPPlan=
 168   save $;
 169   picture $,texto;
 170   texto=image(
 171       label.lrt(LATEX("\bfseries\color{white} Aller au premier plan"),if unknown _coinprec: (0,0) else:_coinprec fi);
 172   );
 173 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 174 _coinprec:=llcorner $;
 175 $
 176 enddef;
 177
 178 vardef DeplacerAP(expr nb)=
 179   save $;
 180   picture $,texto;
 181   texto=image(
 182       label.lrt(LATEX("\bfseries\color{white} Déplacer de "&      if numeric nb:&"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb&" plans arrière"),if unknown _coinprec: (0,0) else:_coinprec fi
 183         );
 184     );
 185   $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 186 _coinprec:=llcorner $;
 187 $
 188 enddef;