Hi,Pierre:
On Monday, April 28, 2014 11:33:47 AM, MING TSANG <tsan...@rogers.com> wrote:
 
Hi, Pierre:
<<<
On Monday, April 28, 2014 10:40:40 AM, Pierre Perol-Schneider 
<pierre.schneider.pa...@gmail.com> wrote:
 
2014-04-28 14:08 GMT+02:00 MING TSANG <tsan...@rogers.com>:

 
I applied your change to my full score and I notice that the staff size for 
female-staff & male-staff are the same.  I am expecting the male-staff size is 
larger for better reading.  

Hi,

Please try the enclosed file,

~Pierre

>>>
<<<<Yes! It works......  thank you very much.   Have a great day!
Emmanuel,
Ming.
>>>>1. How can I Just increase the size of numbers inside the easyNoteheadsOn 
>>>>option? Right now the numbers is too small. A larger number inside the 
>>>>notehead will provide better  sight reading.
2. How can I pass a parameter  (mySize} to \EzON? Now it is hard coded.  e.g. 
\EzON #1.5 
Emmanuel,
Ming.
\version "2.19.5"

\language "english"

#(define solfege (circular-list "d" "r" "m" "f" "s" "l" "t"))
#(define numbers (circular-list "1" "2" "3" "4" "5" "6" "7"))

#(define (Ez_noteheads-engraver lst )
   (list
    (cons 'acknowledgers
      (list
       (cons 'note-head-interface
         (lambda (engraver grob source-engraver)
           (let* ((context (ly:translator-context engraver))
                  (tonic-pitch (ly:context-property context 'tonic))
                  (tonic-name (ly:pitch-notename tonic-pitch))
                  (delta (- 7 tonic-name))
                  (solfege-base lst)
                  (solfege (take (drop solfege-base delta) 7))
                  (note-names (apply vector solfege)))
             ; (display solfege)(newline)
             (ly:grob-set-property! grob 'note-names
               note-names))))))))

% set male staff elements sizes : 
mySize = #1.5

EzON = {
  \easyHeadsOn
  \override Staff.StaffSymbol.staff-space = \mySize
  \override Staff.Clef.font-size = \mySize
  \override Staff.TimeSignature.font-size = \mySize
  
  %\override Staff.NoteHead.font-size = \mySize
  %\override Staff.Rest.font-size = \mySize
  %\override Staff.Accidental.font-size = \mySize
}

% if needded :
EzOFF = {
  \easyHeadsOff
  \revert Staff.StaffSymbol.staff-space
  \revert Staff.Clef.font-size
  \revert Staff.TimeSignature.font-size
}

EzNum = \with { \consists #( Ez_noteheads-engraver numbers ) } 
#(define eznum  #( Ez_noteheads-engraver numbers )) 
EzSol = \with { \consists #( Ez_noteheads-engraver solfege   ) } 
ezsol =   #( Ez_noteheads-engraver solfege   )

% {
#(set-global-staff-size 20)

globalii = {
  \key c \major
  \numericTimeSignature
  \time 3/4
}

SA = {
  \globalii
  
  %% uncomment below for easy reading :
  %\EzON
  
  | % mes.27
    << 
       { 
         \voiceOne 
         c''4. b'8 
       }
       \new Voice { 
         
  %% uncomment below for easy reading :
  %\EzON
         
         \voiceTwo 
         d'4 c'4 
       }
    >> 
    \oneVoice 
    <fs'a'>4
    
  | % mes.28
    <e'g'>4 r4 q4 
    
  | % mes.29  
    <d'f'>4 <c'e'>4 <c'f'>4 
    
  | % mes.30
  <b d'>4 <c'a'>4 <b g'>4
  
  | % mes.31-32
    <<
      {
        \voiceOne 
        e'2.^~
      | % mes.32
        e'4
      }
      \new Voice {
        \voiceTwo 
        
  %% uncomment below for easy reading :
  %\EzON
        
        d'4( c'2~ 
      | % mes.32 
        c'4)
      }
    >> 
    \oneVoice
    r4 g'4 
    
  | % mes.3...
}

TB = { 
  \globalii
  
  %% comment-on below for standart reading :
  \EzON
  
  | % mes.27
    <e g>4 q4 <fs c'>4 
  
  | % mes.28 
    <c c'>4 r4 q4 
  
  | % mes.29 
    <d a>4 q4 
    <<
      {
        \voiceOne 
        a8( g8)
      }
      \new Voice{
        \voiceTwo 
        
  %% comment-on below for standart reading :
  \EzON
  
        d4
      }
    >> 
  
  | % mes.30 
    \oneVoice 
    <g,f>4 q4 q4 
  
  | % mes.31 
    <c g>2.~ 
  
  | % mes.32 
    q4 r4 g4 
    
  | % mes.3...... 
}

\score {
  \new ChoirStaff <<
    \new Staff  
    %\EzNum 
    {
      <<
        \new Voice = "female"
        \SA 
      >>
    }
    \new Staff 
    \EzNum  
    {
      % comment-on for standard size :
      %\set Staff.fontSize = \mySize
      
      \set Staff.instrumentName = \markup \center-column { "T." "B." }
      \set Staff.shortInstrumentName = \markup \center-column { "T." "B." }
      <<
        \clef bass
        \new Voice = "male"   
        \voiceOne 
        \TB 
      >>
    }
  >>
  \layout { }
}


%{
convert-ly.py (GNU LilyPond) 2.19.5  convert-ly.py: Processing `'...
Applying conversion: 2.19.2
%}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to