src/Sons.mp

   1 vardef AffichageSon=
   2   path cadre;
   3   cadre=(llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   4   picture TEXT;
   5   TEXT=image(
   6       fill cadre withcolor DarkPink;
   7     draw texto;
   8     draw (llcorner texto+(-eb,-eb))--(lrcorner texto+(eb,-eb))--(urcorner texto+(eb,eb))--(ulcorner texto+(-eb,eb))--cycle;
   9     );
  10   TEXT
  11 enddef;
  12
  13 vardef Jouer(expr phrase)=
  14   save $;
  15   picture $,texto;
  16   texto=image(
  17       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);
  18   );
  19 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  20 _coinprec:=llcorner $;
  21 $
  22 enddef;
  23
  24 vardef JouerT(expr phrase)=
  25   save $;
  26   picture $,texto;
  27   texto=image(
  28       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);
  29   );
  30 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  31 _coinprec:=llcorner $;
  32 $
  33 enddef;
  34
  35 vardef ArreterSon=
  36   save $;
  37   picture $,texto;
  38   texto=image(
  39       label.lrt(LATEX("\bfseries\color{white}Arrêter tous les sons"),if unknown _coinprec: (0,0) else:_coinprec fi);
  40   );
  41 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  42 _coinprec:=llcorner $;
  43 $
  44 enddef;
  45
  46 vardef Tambour(expr nb,tps)=
  47   save $;
  48   picture $,texto;
  49   texto=image(
  50       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);
  51   );
  52 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  53 _coinprec:=llcorner $;
  54 $
  55 enddef;
  56
  57 vardef Pause(expr tps)=
  58   save $;
  59   picture $,texto;
  60   texto=image(
  61       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);
  62   );
  63 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  64 _coinprec:=llcorner $;
  65 $
  66 enddef;
  67
  68 vardef JouerNote(expr nb,tps)=
  69   save $;
  70   picture $,texto;
  71   texto=image(
  72       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);
  73   );
  74 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  75 _coinprec:=llcorner $;
  76 $
  77 enddef;
  78
  79 vardef ChoisirInstrument(expr nb)=
  80   save $;
  81   picture $,texto;
  82   texto=image(
  83       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);
  84   );
  85 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  86 _coinprec:=llcorner $;
  87 $
  88 enddef;
  89
  90 vardef AjouterVol(expr nb)=
  91   save $;
  92   picture $,texto;
  93   texto=image(
  94       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);
  95   );
  96 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
  97 _coinprec:=llcorner $;
  98 $
  99 enddef;
 100
 101 vardef MettreVol(expr nb)=
 102   save $;
 103   picture $,texto;
 104   texto=image(
 105       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);
 106   );
 107 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
 108 _coinprec:=llcorner $;
 109 $
 110 enddef;
 111
 112 vardef AjouterTempo(expr nb)=
 113   save $;
 114   picture $,texto;
 115   texto=image(
 116       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);
 117   );
 118 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
 119 _coinprec:=llcorner $;
 120 $
 121 enddef;
 122
 123 vardef MettreTempo(expr nb)=
 124   save $;
 125   picture $,texto;
 126   texto=image(
 127       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);
 128   );
 129 $=AffichageSon shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageSon);
 130 _coinprec:=llcorner $;
 131 $
 132 enddef;
 133
 134 endinput;