lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Custos de couleurs différentes selon les voix


From: NOreply
Subject: Re: Custos de couleurs différentes selon les voix
Date: Sat, 16 Feb 2019 04:21:16 -0700 (MST)

Bonjour,
Il faut déplacer le "Custos_engraver" du context MensuralStaff vers le
context MensuralVoice.
Ensuite, pas de problème.
Voir ici:
http://lilybin.com/v3n757/1

%%%%%%%%%%%%%%%%%%%%

\layout
{
 \context 

 {
   \MensuralStaff
   \remove "Custos_engraver"
 }
 
  \context 

 {
   \MensuralVoice
   \consists "Custos_engraver"
 }
  
}

\new MensuralStaff \with { 
  \override Clef.stencil = #
  (lambda (grob)(grob-interpret-markup grob
                  #{ \markup 
                     \fontsize #-2 
                     \raise #2.6
                     \concat 
                     { \hspace #1 \musicglyph #"clefs.mensural.g"
                       \hspace #-1.5 \lower #2.6  \musicglyph
#"clefs.mensural.c"
                       \hspace #-0.75 \lower #5.4  \musicglyph
#"clefs.petrucci.f" 
                     }
                     
    
                  #}))
  


  \remove "Ambitus_engraver"
  \omit Staff.TimeSignature 
  \override Custos.neutral-position = #8
  \override StaffSymbol.staff-space = #1.4 
  \override Custos #'style = #'mensural
  \override StaffSymbol.line-count = #9
  instrumentName = \markup { \fontsize #-3 "Analyse" }
  shortInstrumentName = \markup { \fontsize #-3 "An." }
}
<<
  \new MensuralVoice \with { 
  
\override Custos.color = #blue
  } \transpose c c {\relative c'' { \tiny
   
                                    \hide Score.BarNumber
                                    \clef "mensural-c2" 
                                    \key f \major
                                    \omit Staff.TimeSignature
                                    \override NoteHead #'style = #'petrucci
                                    \set Timing.measureLength =
#(ly:make-moment 3/1 )
                                    \stopStaff
                                    \override
Staff.StaffSymbol.line-positions = #'(-6 -6 -4 -2 -0 2 4 6 8 )
                                    \startStaff
  
                                    \voiceOne \shiftOff \override
Voice.Stem.length-fraction = 0.5
                                    \override NoteHead.color = #blue
                                    \override Rest.color = #blue
                                    \override Dots.color = #blue
                                    \override Accidental.color = #blue
                                    \override Stem.color = #blue
                                    
                                    c\longa*3/2
                                    \override NoteHead #'style =
#'blackpetrucci
             
                                    e,\breve bes'1
                                    \override NoteHead #'style = #'petrucci

                                    e1*3/2 bes
                                    c\breve*3/2
                                    f1*3/2 c\breve*3/2
                                    g1*3/2
                                    \override NoteHead #'style =
#'blackpetrucci
                                    \once \shiftOn f\breve 
                                    e1
                                    f1 a g
                                    \override NoteHead #'style = #'petrucci
                                    a\breve*3/2
             
                                    \override NoteHead #'style =
#'blackpetrucci
                                    e'1 c a \once \shiftOn  g\breve bes1
                                    \override NoteHead #'style = #'petrucci
                                    c1*3/2  d
                                    \override NoteHead #'style =
#'blackpetrucci
                                    e1 c bes
                                    \override NoteHead #'style = #'petrucci
                                    c\longa*3/4
                                    \bar "||"
     
  }}


  \new MensuralVoice \with {

  } \transpose c c {\relative c' {\tiny
                                  \omit Staff.TimeSignature
                                  \override NoteHead #'style = #'petrucci
                                  \set Timing.measureLength =
#(ly:make-moment 3/1 )
    
                                  \voiceTwo \shiftOff  \override
Voice.Stem.length-fraction = 0.5
    
                                  \once \stemDown f\longa*3/2
                                  \override NoteHead #'style =
#'blackpetrucci                        
                                  g\breve g1
                                  \override NoteHead #'style = #'petrucci
                                  c,1*3/2 d c\breve*3/2
                                  d1*3/2 f\breve*3/2 e1*3/2
                                  \override NoteHead #'style =
#'blackpetrucci
                                  \once \shiftOn f\breve c1
                                  f,1 c' bes
                                  \override NoteHead #'style = #'petrucci
                                  a\breve*3/2
                                  \override NoteHead #'style =
#'blackpetrucci
                                  c1 e fis
                                  \override NoteHead #'style = #'petrucci
                                  \once \shiftOn g\breve*3/2
                                  c,1*3/2  bis
                                  \override NoteHead #'style =
#'blackpetrucci
                                  c1 e d
                                  \override NoteHead #'style = #'petrucci
                                  \once \stemDown c\longa*3/4
             
     
  }}
  
  \new MensuralVoice \with { 
    \override Custos.color = #red

  } \transpose c c {\relative c {\tiny
                                 \omit Staff.TimeSignature
                                 \override NoteHead #'style = #'petrucci
    
                                 \voiceThree \shiftOff \override
Voice.Stem.length-fraction = 0.5
                                 \override NoteHead.color = #red
                                 \override Rest.color = #red
                                 \override Dots.color = #red
                                 \override Accidental.color = #red
                                 \override Stem.color = #red
                                 
                                 f\longa*3/2
                                 \override NoteHead #'style =
#'blackpetrucci
                                 c'\breve g1
                                 \override NoteHead #'style = #'petrucci
                                 g'1*3/2 g,
                                 g'\breve*3/2
                                 f1*3/2 f,\breve*3/2 c'1*3/2
                                 \override NoteHead #'style =
#'blackpetrucci
                                 f,\breve a1
                                 c1 f, d'
             
                                 e\breve a1
             
                                 \override NoteHead #'style =
#'blackpetrucci
                                 g\breve d1
                                 \override NoteHead #'style = #'petrucci
                                 g,\breve*3/2
                                 g'1*3/2  d
                                 \override NoteHead #'style =
#'blackpetrucci
                                 a1 c g
                                 \override NoteHead #'style = #'petrucci
                                 \once \stemDown g'\longa*3/4
             
             
     
  }}
>> 
%%%%%%%%%%%%%%%%%%%%%%%%%%

% ; = )



--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]