vardef AffichageCap=
  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 colCapteur : LightBlue else: colCapteur fi;
    draw texto;
    draw cadre;
    );
  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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef ActiverVideo(expr nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} activer la vidéo \opCapCap{\normalfont "&nbpas&"}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
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 $;
_coinprec:=_coinprec+(0,eb);
$
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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;