vardef AffichageA=
  path cadre;
  cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  picture TEXT;
  TEXT=image(
      fill cadre withcolor LightViolet;
    draw texto;
    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

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

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

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

vardef Penser(expr phrase)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Penser \colorbox{white}{\textcolor{black}{"&phrase&"}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageA);
_coinprec:=llcorner $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
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 $;
$
enddef;