lilypond-user
[Top][All Lists]
Advanced

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

Re: Is it possible to adapt Numbers as easy note heads [0.07143] to solf


From: Gilles
Subject: Re: Is it possible to adapt Numbers as easy note heads [0.07143] to solfege ( d r m f s l t)?
Date: Tue, 30 Apr 2013 01:03:10 +0200
User-agent: Opera Mail/12.15 (Linux)


I like to print solfege ( d r m f s l t) on to the note-head. The following snippet print numbers onto the note-head. Is it possible to adapt the following snippet to print solfege onto the note-head?

I don't know if it is want you want :
(and thanks to Frescobaldi to the automatic indentation ...)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define EzSolfegeEngraver#(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



reply via email to

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