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 colStylo : DarkGreen else: colStylo fi;
27 label.lrt(LATEX("\bfseries\color{white}effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
29 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
30 _coinprec:=llcorner $;
31 _coinprec:=_coinprec+(0,eb);
39 label.lrt(LATEX("\bfseries\color{white}estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
41 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
42 _coinprec:=llcorner $;
43 _coinprec:=_coinprec+(0,eb);
51 label.lrt(LATEX("\bfseries\color{white}stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
53 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
54 _coinprec:=llcorner $;
55 _coinprec:=_coinprec+(0,eb);
63 label.lrt(LATEX("\bfseries\color{white}relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
65 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
66 _coinprec:=llcorner $;
67 _coinprec:=_coinprec+(0,eb);
71 vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
75 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);
77 $=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
78 _coinprec:=llcorner $;
79 _coinprec:=_coinprec+(0,eb);
83 vardef AjouterCS(expr nbang)=
87 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);
89 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
90 _coinprec:=llcorner $;
91 _coinprec:=_coinprec+(0,eb);
95 vardef MettreCS(expr nbang)=
99 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);
101 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
102 _coinprec:=llcorner $;
103 _coinprec:=_coinprec+(0,eb);
108 vardef AjouterIS(expr nbang)=
112 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);
114 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
115 _coinprec:=llcorner $;
116 _coinprec:=_coinprec+(0,eb);
120 vardef MettreIS(expr nbang)=
124 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);
126 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
127 _coinprec:=llcorner $;
128 _coinprec:=_coinprec+(0,eb);
133 vardef AjouterTS(expr nbang)=
137 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);
139 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
140 _coinprec:=llcorner $;
141 _coinprec:=_coinprec+(0,eb);
142 _coinprec:=_coinprec+(0,eb);
146 vardef MettreTS(expr nbang)=
150 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);
152 $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
153 _coinprec:=llcorner $;
154 _coinprec:=_coinprec+(0,eb);