[ << Staff notation ]	[Top][Contents]	[ Editorial annotations >> ]
[ < Ajout d’indicateurs à une portée dédoublée après un saut de ligne ]	[ Up : Staff notation ]	[ Ajout de marques temporelles à un long glissando > ]

---

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
      }
    >>
  >>
}