Re: «Perte» d'information dans une polyphonie

[Jean Abou Samra]

Le 29/04/2021 à 10:48, Bernard Meylan a écrit :
> Bonjour à tout le monde!
>
> Avec ceci:
>
> \version "2.22.0"
>
> #(define notes-ornements
>     `((Voice Stem direction ,UP)
>       (Voice Slur direction ,DOWN)
>       (Voice Stem font-size 30)
>       (Voice Flag font-size -5)
>       (Voice NoteHead font-size -6)
>       (Voice TabNoteHead font-size -5)
>       (Voice Dots font-size -4)
>       (Voice Stem length-fraction 0.6)
>       (Voice Stem no-stem-extend #t)
>       (Voice Stem  beam-thickness 0.35)
>       (Voice Beam beam-thickness 0.35)
>       (Voice Beam length-fraction 0.7)
>       (Voice Accidental font-size -5)
>       (Voice AccidentalCautionary font-size -5)
>       (Voice Script font-size -4)
>       ;(Voice Fingering font-size -8)
>       (Voice StringNumber font-size -9)))
>
> hampegrace = \override Stem.thickness = #0.8
>
> \score {
>    
>      \relative c''
> {
>    c4 c \hampegrace \grace {b16 d} \undo \hampegrace c4 c
>    <<{\voiceOne c4 c \hampegrace \grace {b16 d} \undo \hampegrace c4 c} \new
> Voice {\voiceTwo e,4 e e e }>> \oneVoice
> }
>      
>      \layout {
>        \context {
>          \Score
>          graceSettings = #notes-ornements
>        }
>      }
>    }
>
> j'ai diminué la taille de mes notes d'ornement, idem pour les hampes
> (\hampegrace) et cela est parfait. Je viens de découvrir qu'au moment de
> passer dans un contexte polyphonique à 2 voix, l'info était «perdue» et ces
> fameuses notes reprennaient leur taille «Monsieur Michelin»… J'ai aussi
> essayé la séparation plus radicale des voix avec la double barre oblique
> inversée (\\) mais le résultat est toujours le même: les notes d'ornements
> refusent leur cure d'amaigrissement… Un bogue ou une grôsse fôte de ma part?

Disons un malentendu. Les commandes \voiceOne, etc. effectuent
elles-mêmes des aménagements à la propriété graceSettings, ce
qui annule les vôtres. Une possibilité consiste à redéfinir
ces commandes, comme ceci :

\version "2.22.0"

#(define notes-ornements
   `((Voice Stem direction ,UP)
     (Voice Slur direction ,DOWN)
     (Voice Stem font-size 30)
     (Voice Flag font-size -5)
     (Voice NoteHead font-size -6)
     (Voice TabNoteHead font-size -5)
     (Voice Dots font-size -4)
     (Voice Stem length-fraction 0.6)
     (Voice Stem no-stem-extend #t)
     (Voice Stem  beam-thickness 0.35)
     (Voice Beam beam-thickness 0.35)
     (Voice Beam length-fraction 0.7)
     (Voice Accidental font-size -5)
     (Voice AccidentalCautionary font-size -5)
     (Voice Script font-size -4)
     ;(Voice Fingering font-size -8)
     (Voice StringNumber font-size -9)))

\layout {
  \set Score.graceSettings = #notes-ornements
}
réglagesOrnements = \set Voice.graceSettings = #notes-ornements
voiceOne = { \voiceOne \réglagesOrnements }
voiceTwo = { \voiceTwo \réglagesOrnements }
voiceThree = { \voiceThree \réglagesOrnements }
voiceFour = { \voiceFour \réglagesOrnements }
oneVoice = { \oneVoice \réglagesOrnements }
#(set! (@@ (lily) general-grace-settings) notes-ornements) % pour << \\ >>


hampegrace = \override Stem.thickness = #0.8


\relative c'' {
  c4 c
  \hampegrace
  \grace { b16 d }
  \undo \hampegrace
  c4 c
  <<
    {
      \voiceOne
      c4 c
      \hampegrace
      \grace { b16 d }
      \undo \hampegrace
      c4 c
    }
    \new Voice {
      \voiceTwo
      e,4 e e e
    }
  >>
  \oneVoice
  \grace c
  <<
    { c' \grace c c }
    \\
    { e, \grace e e }
  >>
}

Cordialement,
Jean