vardef AffichageS=
  path cadre;
  cadre=(llcorner texto+(-eb,0))--(llcorner texto+(0,-eb))--
    (llcorner texto+(0.375cm,0)+(-eb,-eb))--
    (llcorner texto+(0.375cm,0)+(0,-2eb))--
    (llcorner texto+(0.625cm,0)+(0,-2eb))--
    (llcorner texto+(0.625cm,0)+(eb,-eb))--
    (lrcorner texto+(0,-eb))--(lrcorner texto+(eb,0))--(urcorner texto+(eb,0))--(urcorner texto+(0,eb))--
    (ulcorner texto+(0.625cm,0)+(eb,eb))--
    (ulcorner texto+(0.625cm,0))--
    (ulcorner texto+(0.375cm,0))--
    (ulcorner texto+(0.375cm,0)+(-eb,eb))--
    (ulcorner texto+(0,eb))--(ulcorner texto+(-eb,0))--cycle;
  picture TEXT;
  TEXT=image(
    fill cadre withcolor if unknown colStylo : DarkGreen else: colStylo fi;
    draw texto;
    draw cadre;
    );
  TEXT
enddef;

vardef Effacer=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}effacer tout"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Estampiller=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}estampiller"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef PoserStylo=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}stylo en position d'écriture"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef ReleverStylo=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}relever le stylo"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MettreCouleur(expr nomcol,redc,greenc,bluec)=
  save $;
  picture $,texto;
  texto=image(
      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);
  );
$=AffichageS shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef AjouterCS(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MettreCS(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

%intensité stylo
vardef AjouterIS(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MettreIS(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

%taille du stylo
vardef AjouterTS(expr nbang)=
    save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MettreTS(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      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);
    );
  $=AffichageS shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageS);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;