vardef Affichage=
  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 colMouv : DarkBlue else: colMouv fi;
    draw texto;
  draw cadre;
    );
  TEXT
enddef;

vardef Avancer(expr nbpas)=
  save $;
  picture $,texto;
  texto=image(
      if numeric nbpas:
      label.lrt(LATEX("\bfseries\color{white}avancer de \colorbox{white}{\textcolor{black}{"&decimal(nbpas)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  else:
    label.lrt(LATEX("\bfseries\color{white}avancer de "&nbpas&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  fi;
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Tournerd(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      if numeric nbang:
      label.lrt(LATEX("\bfseries\color{white}tourner à droite de \colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}} degré(s)"),if unknown _coinprec:(0,0) else: _coinprec fi);
  else:
    label.lrt(LATEX("\bfseries\color{white}tourner à droite de "&nbang&" degré(s)"),if unknown _coinprec:(0,0) else: _coinprec fi);
  fi;
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Tournerg(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      if numeric nbang:
      label.lrt(LATEX("\bfseries\color{white}tourner à gauche de \colorbox{white}{\textcolor{black}{"&decimal(nbang)&"}} degré(s)"),if unknown _coinprec:(0,0) else : _coinprec fi);
  else:
    label.lrt(LATEX("\bfseries\color{white}tourner à gauche de "&nbang&" degré(s)"),if unknown _coinprec:(0,0) else : _coinprec fi);
    fi;
    );
  $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Orienter(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}s'orienter à "&if numeric nbang:"\colorbox{white}{\textcolor{black}{"&decimal(nbang)&" \tiny$\blacktriangledown$}}" else: nbang fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Orienterdirection(expr nbang)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}s'orienter vers \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&nbang&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
  $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;
  
vardef Aller(expr xa,ya)=
  save $;
  picture $,texto;
  texto=image(
      if (numeric xa) and (numeric ya):
      label.lrt(LATEX("\bfseries\color{white} aller à x : \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} y : \colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  elseif (numeric xa):
label.lrt(LATEX("\bfseries\color{white} aller à x : \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} y : "&ya&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  elseif (numeric ya):
label.lrt(LATEX("\bfseries\color{white} aller à x : "&xa&" y : \colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  else:
label.lrt(LATEX("\bfseries\color{white} aller à x : "&xa&" y : "&ya&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  fi;
    );
  $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Allera(expr pointeur)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} aller à : \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&pointeur&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
    );
  $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Glisser(expr tps,xa,ya)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}glisser en "&if numeric tps:"\colorbox{white}{\textcolor{black}{"&decimal(tps)&"}}" else: tps fi&" seconde(s) à x : "&if numeric xa:"\colorbox{white}{\textcolor{black}{"&decimal(xa)&"}}" else: xa fi&" y : "&if numeric ya:"\colorbox{white}{\textcolor{black}{"&decimal(ya)&"}}" else: ya fi), if unknown _coinprec:(0,0) else:_coinprec fi);
    );
  $=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
  $
enddef;

vardef Ajouter(expr xa,xx)=
  save $;
  picture $,texto;
  texto=image(
      if numeric xa:
      label.lrt(LATEX("\bfseries\color{white} ajouter \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
  else:
      label.lrt(LATEX("\bfseries\color{white} ajouter "&xa&" à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
    fi;
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Mettre(expr xa,xx)=
  save $;
  picture $,texto;
  texto=image(
      if numeric xa:
      label.lrt(LATEX("\bfseries\color{white}donner la valeur \colorbox{white}{\textcolor{black}{"&decimal(xa)&"}} à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
  else:
label.lrt(LATEX("\bfseries\color{white}donner la valeur "&xa&" à "&xx),if unknown _coinprec: (0,0) else:_coinprec fi);
    fi;
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef Rebondir=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} rebondir si le bord est atteint"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;

vardef FixerSensRotation(expr sens)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} fixer le sens de rotation \colorbox{mLightBlue}{\normalfont\textcolor{white}{"&sens&"} \textcolor{black}{\tiny$\blacktriangledown$}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=Affichage shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner Affichage);
_coinprec:=llcorner $;
_coinprec:=_coinprec+(0,eb);
$
enddef;