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;
16 fill cadre withcolor if unknown colCapteur : LightBlue else: colCapteur fi;
23 vardef Demander(expr nbpas)=
27 label.lrt(LATEX("\bfseries\color{white} demander "&nbpas&" et attendre"),if unknown _coinprec:(0,0) else: _coinprec fi);
29 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
30 _coinprec:=llcorner $;
31 _coinprec:=_coinprec+(0,eb);
35 vardef ActiverVideo(expr nbpas)=
39 label.lrt(LATEX("\bfseries\color{white} activer la vidéo \opCapCap{\normalfont "&nbpas&"}"),if unknown _coinprec:(0,0) else: _coinprec fi);
41 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
42 _coinprec:=llcorner $;
43 _coinprec:=_coinprec+(0,eb);
47 vardef TransparenceVideo(expr nbpas)=
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);
53 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
54 _coinprec:=llcorner $;
55 _coinprec:=_coinprec+(0,eb);
63 label.lrt(LATEX("\bfseries\color{white} réinitialiser le chronomètre"),if unknown _coinprec:(0,0) else: _coinprec fi);
65 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
66 _coinprec:=llcorner $;
67 _coinprec:=_coinprec+(0,eb);