Re: Is it possible to adapt Numbers as easy note heads [0.07143] to solfege ( d r m f s l t)?

[MING TSANG]

Giles:

Thank you for the quick response.  "EzSolfegeEngraver" works wonderfully.  I did replace :

(solfege-base (circular-list "S" "O" "L" "F" "E" "G"  "E"))

with

(solfege-base (circular-list "d" "r" "m" "f" "s" "l" "t"))

Thank you very much.

Ming

Message: 7
Date: Tue, 30 Apr 2013 01:11:05 +0200
From: Gilles <address@hidden>
To: address@hidden
Subject: Re: Is it possible to adapt Numbers as easy note heads
    [0.07143] to    solfege ( d r m f s l t)?
Message-ID: <address@hidden>
Content-Type: text/plain; charset=iso-8859-15; format=flowed;
    delsp=yes


> #(define EzSolfegeEngraver#(define EzSolfegeEngraver


Oh sorry a copy-paste error.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define EzSolfegeEngraver
    (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 (circular-list "S" "O" "L" "F" "E" "G" 
"E"))
                  (solfege (take (drop solfege-base delta) 7))
                  (note-names (apply vector solfege)))
              ; (display solfege)(newline)
              (ly:grob-set-property! grob 'note-names
                note-names))))))))
EzNum = {
  \easyHeadsOn
  \override Staff.StaffSymbol #'staff-space = #1.5 %1.4
  \override Staff.StaffSymbol #'line-thickness = #1.5 %1.4
  \override Staff.NoteHead #'font-size = #+3.2 %=3.0
  \override Staff.Clef #'font-size = #+1.35 %1.25
  \override Staff.TimeSignature #'font-size = #+1.35 %1.25
  \override Staff.Accidental #'font-size = #+1.35 %1.25
  \override Voice.NoteHead #'font-size = #-5.25 %-5.0
}

global = {  \key c\major \time 4/4 }
mux = \relative c' { \global \EzNum
                      c4 d e f g a b4 r
                      \key f\major
                      f g a bes c d e r
                      \key g\major
                      g, a b c d e fis r
}

\score {
  \new Staff { \mux}
  \layout {
    \context {
      \Voice
      \consists \EzSolfegeEngraver
    }
  }
}

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

--
Gilles



------------------------------

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user


End of lilypond-user Digest, Vol 125, Issue 152
***********************************************