vardef AffichageVar=
  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 colVar : Orange else: colVar fi;
    draw texto;
    draw cadre;
    );
  TEXT
enddef;

vardef AffichageLis=
  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 colList : DarkOrange else: colList fi;
    draw texto;
    draw cadre;
    );
  TEXT
enddef;

vardef MettreVar(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}mettre \colorbox{DarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef AjouterVar(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}ajouter à \colorbox{DarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MontrerVar(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}montrer la variable \colorbox{DarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef CacherVar(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}cacher la variable \colorbox{DarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef AjouterList(expr nomvar,nbpas)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}ajouter "&nomvar&" à \colorbox{dDarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
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}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
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}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
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}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef MontrerList(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}montrer la liste \colorbox{dDarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef CacherList(expr nomvar)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}cacher la liste \colorbox{dDarkOrange}{\normalfont\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 $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

endinput;