3 cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
6 fill cadre withcolor DarkGreen;
8 draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
17 label.lrt(LATEX("\bfseries\color{white}Effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
19 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
20 _coinprec:=llcorner $;
28 label.lrt(LATEX("\bfseries\color{white}Estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
30 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
31 _coinprec:=llcorner $;
39 label.lrt(LATEX("\bfseries\color{white}Stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
41 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
42 _coinprec:=llcorner $;
50 label.lrt(LATEX("\bfseries\color{white}Relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
52 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
53 _coinprec:=llcorner $;
57 vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
61 label.lrt(LATEX("\bfseries\color{white}Mettre la couleur du stylo à \definecolor{"&nomcol&"}{rgb}{"&decimal(redc)&","&decimal(greenc)&","&decimal(bluec)&"}\colorbox{"&nomcol&"}{\phantom{t}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
63 $=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
64 _coinprec:=llcorner $;
68 vardef AjouterCS(expr nbang)=
72 label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la couleur du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
74 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
75 _coinprec:=llcorner $;
79 vardef MettreCS(expr nbang)=
83 label.lrt(LATEX("\bfseries\color{white}Mettre la couleur du stylo à "& if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
85 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
86 _coinprec:=llcorner $;
91 vardef AjouterIS(expr nbang)=
95 label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à l'intensité du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
97 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
98 _coinprec:=llcorner $;
102 vardef MettreIS(expr nbang)=
106 label.lrt(LATEX("\bfseries\color{white}Mettre l'intensité du stylo à "& if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
108 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
109 _coinprec:=llcorner $;
114 vardef AjouterTS(expr nbang)=
118 label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi&" à la taille du stylo"),if unknown _coinprec:(0,0) else : _coinprec fi);
120 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
121 _coinprec:=llcorner $;
125 vardef MettreTS(expr nbang)=
129 label.lrt(LATEX("\bfseries\color{white}Mettre la taille du stylo à "& if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}}" else: nbang fi),if unknown _coinprec:(0,0) else : _coinprec fi);
131 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
132 _coinprec:=llcorner $;