vardef AffichageCap=
  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 LightBlue;
    draw texto;
    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

vardef Demander(expr nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} Demander "&nbpas&" et attendre"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
  $
enddef;

vardef ActiverVideo(expr nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} Activer la vidéo \opCap{"&nbpas&"}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
  $
enddef;

vardef TransparenceVideo(expr nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} Mettre la transparence vidéo à "&if numeric nbpas:"\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}" else: nbpas fi&"~\%"),if unknown _coinprec:(0,0) else: _coinprec fi);
    );
  $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
$
enddef;

vardef ReinitChrono=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} Réinitialiser le chronomètre"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
  $
enddef;