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

vardef Jouer(expr phrase)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Jouer le son \colorbox{LightPink}{\textcolor{white}{"&phrase&" \tiny\textcolor{black}{$\blacktriangledown$}}}"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef JouerT(expr phrase)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Jouer le son \colorbox{LightPink}{\textcolor{white}{"&phrase&" \tiny\textcolor{black}{$\blacktriangledown$}}} jusqu'au bout"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef ArreterSon=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Arrêter tous les sons"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef Tambour(expr nb,tps)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Jouer du tambour "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&" \tiny$\blacktriangledown$}}" else: nb fi&" pendant "&if numeric tps:"\colorbox{white}{\textcolor{black}{"&decimal(tps)&"}}" else: tps fi&" temps"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef Pause(expr tps)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Faire une pause pour "&if numeric tps:"\colorbox{white}{\textcolor{black}{"&decimal(tps)&"}}" else: tps fi&" temps"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef JouerNote(expr nb,tps)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Jouer la note "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&" \tiny\textcolor{black}{$\blacktriangledown$}}}" else : nb fi&" pendant "&if numeric tps:"\colorbox{white}{\textcolor{black}{"&decimal(tps)&"}}" else: tps fi&" temps"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef ChoisirInstrument(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Choisir l'instrument \no "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&" \tiny$\blacktriangledown$}}" else: nb fi&""),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef AjouterVol(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&" au volume"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef MettreVol(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Mettre le volume au niveau "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&"~\%"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef AjouterTempo(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Ajouter "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&" au tempo"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

vardef MettreTempo(expr nb)=
  save $;
  picture $,texto;
  texto=image(
      label.lrt(LATEX("\bfseries\color{white}Mettre le tempo à "&if numeric nb:"\colorbox{white}{\textcolor{black}{"&decimal(nb)&"}}" else: nb fi&"~bpm"),if unknown _coinprec: (0,0) else:_coinprec fi);
  );
$=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
_coinprec:=llcorner $;
$
enddef;

endinput;