src/Sons.mp

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