src/Capteurs.mp

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