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 <[email protected]>
>To: [email protected]
>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: <op.wwbr0raudfrkz2@localhost>
>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
>[email protected]
>https://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
>End of lilypond-user Digest, Vol 125, Issue 152
>***********************************************
>
>
>_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
