[ << Vocal music ]	[Top][Contents]	[ Chords >> ]
[ < Ajout d’indicateurs à une portée dédoublée après un saut de ligne ]	[ Up : Vocal music ]	[ Ajustement de l’espacement vertical des paroles > ]

---

Indication de l’instrument cité dans l’accompagnement d’une partition pour chœur

Lorsque le nombre d’instruments cités dans la réduction pour piano se multiplie, vous pourriez avoir intérêt à créer votre propre fonction pour gérer ces repères. La fonction musicale \cueWhile prend quatre arguments : la musique d’où provient la citation, telle que définie par \addQuote, le nom qui sera mentionné en regard de cette citation, son positionnement – UP ou DOWN selon qu’il sera attribué à \voiceOne et placé au-dessus ou \voiceTwo et placé en dessous – et enfin la musique du piano qui interviendra en parallèle. Le nom de l’instrument en question viendra s’aligner sur la gauche de la citation. Bien que vous puissiez effectuer plusieurs citations, elle ne peuvent être simultanées.

cueWhile =
#(define-music-function
   (instrument name dir music)
   (string? string? ly:dir? ly:music?)
   #{
     \cueDuring $instrument #dir {
       \once \override TextScript.self-alignment-X = #RIGHT
       \once \override TextScript.direction = $dir
       <>-\markup { \tiny #name }
       $music
     }
   #})

flute = \relative c'' {
  \transposition c'
  s4 s4 e g
}
\addQuote "flute" { \flute }

clarinet = \relative c' {
  \transposition bes
  fis4 d d c
}
\addQuote "clarinet" { \clarinet }

singer = \relative c'' { c4. g8 g4 bes4 }
words = \lyricmode { here's the lyr -- ics }

pianoRH = \relative c'' {
  \transposition c'
  \cueWhile "clarinet" "Clar." #DOWN { c4. g8 }
  \cueWhile "flute" "Flute" #UP { g4 bes4 }
}
pianoLH = \relative c { c4 <c' e> e, <g c> }

\score {
  <<
    \new Staff {
      \new Voice = "singer" {
        \singer
      }
    }
    \new Lyrics {
      \lyricsto "singer"
      \words
    }
    \new PianoStaff <<
      \new Staff {
        \new Voice {
          \pianoRH
        }
      }
      \new Staff {
        \clef "bass"
        \pianoLH
      }
    >>
  >>
}