vardef AffichageB=
  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 DarkPurple;
    draw texto;
    draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

vardef AffichageBlocDef=
  path cadre;
  cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb)){dir165}..{dir-165}(ulcorner texto+(-eb,eb))--cycle;
  picture TEXT;
  TEXT=image(
      fill cadre withcolor DarkPurple;
    draw texto;
    draw cadre;%(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
    );
  TEXT
enddef;

vardef Bloc(expr nombloc)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}"&nombloc&""),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageB shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageB);
_coinprec:=llcorner $;
$
enddef;

vardef NouveauBloc(expr nombloc)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white} Définir \colorbox{LightPurple}{\textcolor{white}{"&nombloc&"}}"),if unknown _coinprec:(0,0) else: _coinprec fi);
  );
$=AffichageBlocDef shifted (if unknown _coinprec:(0,0) else : _coinprec fi - ulcorner AffichageBlocDef);
_coinprec:=llcorner $;
$
enddef;