src/Capteurs.mp

   1 vardef AffichageCap=
   2   path cadre;
   3   cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   4   picture TEXT;
   5   TEXT=image(
   6       fill cadre withcolor LightBlue;
   7     draw texto;
   8     draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   9     );
  10   TEXT
  11 enddef;
  12
  13 vardef Demander(expr nbpas)=
  14   save $;
  15   picture $,texto;
  16   texto=image(
  17       label.lrt(LATEX("\bfseries\color{white} Demander "&nbpas&" et attendre"),if unknown _coinprec:(0,0) else: _coinprec fi);
  18   );
  19 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  20 _coinprec:=llcorner $;
  21   $
  22 enddef;
  23
  24 vardef ActiverVideo(expr nbpas)=
  25   save $;
  26   picture $,texto;
  27   texto=image(
  28       label.lrt(LATEX("\bfseries\color{white} Activer la vidéo \opCap{"&nbpas&"}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  29   );
  30 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  31 _coinprec:=llcorner $;
  32   $
  33 enddef;
  34
  35 vardef TransparenceVideo(expr nbpas)=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       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);
  40     );
  41   $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  42 _coinprec:=llcorner $;
  43 $
  44 enddef;
  45
  46 vardef ReinitChrono=
  47   save $;
  48   picture $,texto;
  49   texto=image(
  50       label.lrt(LATEX("\bfseries\color{white} Réinitialiser le chronomètre"),if unknown _coinprec:(0,0) else: _coinprec fi);
  51   );
  52 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  53 _coinprec:=llcorner $;
  54   $
  55 enddef;