vardef AffichageVar=
  path cadre;
  cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  picture TEXT;
  TEXT=image(
      fill cadre withcolor Orange;
    draw texto;
    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

vardef AffichageLis=
  path cadre;
  cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  picture TEXT;
  TEXT=image(
      fill cadre withcolor DarkOrange;
    draw texto;
    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

vardef MettreVar(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Mettre \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} à "&if numeric nbpas : "\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}" else: nbpas fi&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef AjouterVar(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Ajouter à \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} "&if numeric nbpas : "\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}" else: nbpas fi &""),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef MontrerVar(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Montrer la variable \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef CacherVar(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Cacher la variable \colorbox{DarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageVar shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef AjouterList(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Ajouter "&nomvar&" à \colorbox{dDarkOrange}{\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef SupprimerList(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Supprimer l'élément "&if numeric nomvar : "\colorbox{white}{\textcolor{black}{"&decimal(nomvar)&" \tiny$\blacktriangledown$}}" else : nomvar fi&" de la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nbpas&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef InsererList(expr nomelmt,nbpas,nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Insérer "&nomelmt&" en position "&if numeric nbpas:"\colorbox{white}{\textcolor{black}{"&decimal(nbpas)&" \tiny$\blacktriangledown$}}" else: nbpas fi&" de la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef RemplacerList(expr nomelmt,nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Remplacer l'élément "&if numeric nomelmt:"\colorbox{white}{\textcolor{black}{"&decimal(nomelmt)&" \tiny$\blacktriangledown$}}" else: nomelmt fi&" de la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}} par "&nbpas&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef MontrerList(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Montrer la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;

vardef CacherList(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Cacher la liste \colorbox{dDarkOrange}{\textcolor{white}{"&nomvar&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageLis shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
  _coinprec:=llcorner $;
  $
enddef;