3 cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
6 fill cadre withcolor LightBlue;
8 draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
13 vardef Demander(expr nbpas)=
17 label.lrt(LATEX("\bfseries\color{white} Demander "&nbpas&" et attendre"),if unknown _coinprec:(0,0) else: _coinprec fi);
19 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
20 _coinprec:=llcorner $;
24 vardef ActiverVideo(expr nbpas)=
28 label.lrt(LATEX("\bfseries\color{white} Activer la vidéo \opCap{"&nbpas&"}"),if unknown _coinprec:(0,0) else: _coinprec fi);
30 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
31 _coinprec:=llcorner $;
35 vardef TransparenceVideo(expr nbpas)=
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);
41 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
42 _coinprec:=llcorner $;
50 label.lrt(LATEX("\bfseries\color{white} Réinitialiser le chronomètre"),if unknown _coinprec:(0,0) else: _coinprec fi);
52 $=AffichageCap shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
53 _coinprec:=llcorner $;