vardef CommandeVide(expr commande)=
  save $;
  picture $,texto,TEXT;
  texto=image(
      label.lrt(LATEX("\Large "&if numeric commande:decimal(commande) else: commande fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
TEXT=image(
    draw texto;
  fill (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle withcolor white;
  draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
  );
$=TEXT shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner TEXT);
_coinprec:=llcorner $;
$
enddef;

vardef LigneVide(expr commande)=
  save $;
  picture $,texto,TEXT;
  texto=image(
      label.lrt(LATEX("\Large "&if numeric commande:decimal(commande) else: commande fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
TEXT=image(
    %draw texto;
  %fill (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle withcolor white;
  draw (urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb));
  );
$=TEXT shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner TEXT);
_coinprec:=llcorner $;
$
enddef;