src/Apparence.mp

   1 vardef AffichageA=
   2   path cadre;
   3   cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
   4     (llcorner texto+(0.375cm,0)+(-eb,-eb))--
   5     (llcorner texto+(0.375cm,0)+(0,-2eb))--
   6     (llcorner texto+(0.625cm,0)+(0,-2eb))--
   7     (llcorner texto+(0.625cm,0)+(eb,-eb))--
   8     (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
   9     (ulcorner texto+(0.625cm,0)+(eb,eb))--
  10     (ulcorner texto+(0.625cm,0))--
  11     (ulcorner texto+(0.375cm,0))--
  12     (ulcorner texto+(0.375cm,0)+(-eb,eb))--
  13     (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
  14   picture TEXT;
  15   TEXT=image(
  16       fill cadre withcolor if unknown colAp : LightViolet else: colAp fi;
  17     draw texto;
  18     draw cadre;
  19     );
  20   TEXT
  21 enddef;
  22
  23 vardef DireT(expr phrase,tps)=
  24   save $;
  25   picture $,texto;
  26   texto=image(
  27       label.lrt(LATEX("\bfseries\color{white}dire "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
  28   );
  29 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  30 _coinprec:=llcorner $;
  31 _coinprec:=_coinprec+(0,eb);
  32 $
  33 enddef;
  34
  35 vardef Dire(expr phrase)=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       label.lrt(LATEX("\bfseries\color{white}dire "&phrase&""),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 _coinprec:=_coinprec+(0,eb);
  44 $
  45 enddef;
  46
  47 vardef PenserT(expr phrase,tps)=
  48   save $;
  49   picture $,texto;
  50   texto=image(
  51       label.lrt(LATEX("\bfseries\color{white}penser "&phrase&" pendant \colorbox{white}{\textcolor{black}{"&if numeric tps:decimal(tps)&"}}" else: tps fi&" secondes"),if unknown _coinprec: (0,0) else:_coinprec fi);
  52   );
  53 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  54 _coinprec:=llcorner $;
  55 _coinprec:=_coinprec+(0,eb);
  56 $
  57 enddef;
  58
  59 vardef Penser(expr phrase)=
  60   save $;
  61   picture $,texto;
  62   texto=image(
  63       label.lrt(LATEX("\bfseries\color{white}penser "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  64   );
  65 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  66 _coinprec:=llcorner $;
  67 _coinprec:=_coinprec+(0,eb);
  68 $
  69 enddef;
  70
  71 vardef Montrer=
  72   save $;
  73   picture $,texto;
  74   texto=image(
  75       label.lrt(LATEX("\bfseries\color{white} montrer"),if unknown _coinprec: (0,0) else:_coinprec fi);
  76   );
  77 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  78 _coinprec:=llcorner $;
  79 _coinprec:=_coinprec+(0,eb);
  80 $
  81 enddef;
  82
  83 vardef Cacher=
  84   save $;
  85   picture $,texto;
  86   texto=image(
  87       label.lrt(LATEX("\bfseries\color{white} cacher"),if unknown _coinprec: (0,0) else:_coinprec fi);
  88   );
  89 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
  90 _coinprec:=llcorner $;
  91 _coinprec:=_coinprec+(0,eb);
  92 $
  93 enddef;
  94
  95 vardef Basculer(expr costume)=
  96   save $;
  97   picture $,texto;
  98   texto=image(
  99       label.lrt(LATEX("\bfseries\color{white} basculer sur le costume "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
 100   );
 101 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 102 _coinprec:=llcorner $;
 103 _coinprec:=_coinprec+(0,eb);
 104 $
 105 enddef;
 106
 107 vardef CostumeSuivant=
 108   save $;
 109   picture $,texto;
 110   texto=image(
 111       label.lrt(LATEX("\bfseries\color{white} costume suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
 112   );
 113 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 114 _coinprec:=llcorner $;
 115 _coinprec:=_coinprec+(0,eb);
 116 $
 117 enddef;
 118
 119 vardef BasculerAR(expr costume)=
 120   save $;
 121   picture $,texto;
 122   texto=image(
 123       label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
 124   );
 125 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 126 _coinprec:=llcorner $;
 127 _coinprec:=_coinprec+(0,eb);
 128 $
 129 enddef;
 130
 131 vardef BasculerARA(expr costume)=
 132   save $;
 133   picture $,texto;
 134   texto=image(
 135       label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&" et attendre"),if unknown _coinprec: (0,0) else:_coinprec fi);
 136   );
 137 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 138 _coinprec:=llcorner $;
 139 _coinprec:=_coinprec+(0,eb);
 140 $
 141 enddef;
 142
 143 vardef ARSuivant=
 144   save $;
 145   picture $,texto;
 146   texto=image(
 147       label.lrt(LATEX("\bfseries\color{white} arrière-plan suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
 148   );
 149 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 150 _coinprec:=llcorner $;
 151 _coinprec:=_coinprec+(0,eb);
 152 $
 153 enddef;
 154
 155 vardef AjouterEffet(expr costume,nb)=
 156   save $;
 157   picture $,texto;
 158   texto=image(
 159       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);
 160   );
 161 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 162 _coinprec:=llcorner $;
 163 _coinprec:=_coinprec+(0,eb);
 164 $
 165 enddef;
 166
 167 vardef MettreEffet(expr costume,nb)=
 168   save $;
 169   picture $,texto;
 170   texto=image(
 171       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);
 172   );
 173 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 174 _coinprec:=llcorner $;
 175 _coinprec:=_coinprec+(0,eb);
 176 $
 177 enddef;
 178
 179 vardef AnnulerEffet=
 180   save $;
 181   picture $,texto;
 182   texto=image(
 183       label.lrt(LATEX("\bfseries\color{white} annuler les effets graphiques"),if unknown _coinprec: (0,0) else:_coinprec fi);
 184   );
 185 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 186 _coinprec:=llcorner $;
 187 _coinprec:=_coinprec+(0,eb);
 188 $
 189 enddef;
 190
 191 vardef AjouterTaille(expr nb)=
 192   save $;
 193   picture $,texto;
 194   texto=image(
 195       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);
 196   );
 197 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 198 _coinprec:=llcorner $;
 199 _coinprec:=_coinprec+(0,eb);
 200 $
 201 enddef;
 202
 203 vardef MettreA(expr nb)=
 204   save $;
 205   picture $,texto;
 206   texto=image(
 207       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);
 208   );
 209 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 210 _coinprec:=llcorner $;
 211 _coinprec:=_coinprec+(0,eb);
 212 $
 213 enddef;
 214
 215 vardef AllerPPlan=
 216   save $;
 217   picture $,texto;
 218   texto=image(
 219       label.lrt(LATEX("\bfseries\color{white} aller au premier plan"),if unknown _coinprec: (0,0) else:_coinprec fi);
 220   );
 221 $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 222 _coinprec:=llcorner $;
 223 _coinprec:=_coinprec+(0,eb);
 224 $
 225 enddef;
 226
 227 vardef DeplacerAP(expr nb)=
 228   save $;
 229   picture $,texto;
 230   texto=image(
 231       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
 232         );
 233     );
 234   $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
 235 _coinprec:=llcorner $;
 236 _coinprec:=_coinprec+(0,eb);
 237 $
 238 enddef;