vardef AffichageA=
  path cadre;
  cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
    (llcorner texto+(0.375cm,0)+(-eb,-eb))--
    (llcorner texto+(0.375cm,0)+(0,-2eb))--
    (llcorner texto+(0.625cm,0)+(0,-2eb))--
    (llcorner texto+(0.625cm,0)+(eb,-eb))--
    (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
    (ulcorner texto+(0.625cm,0)+(eb,eb))--
    (ulcorner texto+(0.625cm,0))--
    (ulcorner texto+(0.375cm,0))--
    (ulcorner texto+(0.375cm,0)+(-eb,eb))--
    (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
  picture TEXT;
  TEXT=image(
      fill cadre withcolor if unknown colAp : LightViolet else: colAp fi;
    draw texto;
    draw cadre;
    );
  TEXT
enddef;

vardef DireT(expr phrase,tps)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Dire(expr phrase)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}dire "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef PenserT(expr phrase,tps)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Penser(expr phrase)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}penser "&phrase&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Montrer=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} montrer"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Cacher=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} cacher"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Basculer(expr costume)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} basculer sur le costume "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef CostumeSuivant=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} costume suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef BasculerAR(expr costume)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef BasculerARA(expr costume)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} basculer sur l'arrière-plan "&costume&" et attendre"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef ARSuivant=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} arrière-plan suivant"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef AjouterEffet(expr costume,nb)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef MettreEffet(expr costume,nb)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef AnnulerEffet=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} annuler les effets graphiques"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef AjouterTaille(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef MettreA(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef AllerPPlan=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} aller au premier plan"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef DeplacerAP(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      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
	);
    );
  $=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;