>I am not top-posting
David,
You are way too good!
Is this the way I enter it? For some reason, does not seem to be working
- it seems to be ignoring the suffix.
If I wanted to display new-name as the program runs, is there a command
for that?
Thanks
Jay
\version "2.18.2"
music = \relative c' {c2 d e f g a b c c b a g f e d c}
newnames =
#`(("c" . "S")
("d" . "R")
("e" . "G")
("f" . "M")
("g" . "P")
("a" . "D")
("b" . "N")
)
#(define (myNoteNames size)
(lambda (grob)
(let* (
;; bindings
(default-name (ly:grob-property grob 'text))
(new-name (assoc-get default-name newnames))
(cause (event-cause grob))
(duration (ly:prob-property cause 'duration))
(duration-log (ly:duration-log duration))
(suffix
(case duration-log
((1) "a") ;; half note
(else "")))
(text (string-append new-name suffix))
)
;; body
(ly:grob-set-property! grob 'text (markup #:fontsize size new-
name))
(ly:text-interface::print grob)
)
))
\new Staff {
<<
\new Voice {
\music
\shiftDurations #1 #0 {\music }
\shiftDurations #2 #0 {\music \music }
}
\context NoteNames {
\override NoteName.stencil = #(myNoteNames 0)
\music
\override NoteName.stencil = #(myNoteNames -1)
\shiftDurations #1 #0 {\music }
\override NoteName.stencil = #(myNoteNames -2)
\shiftDurations #2 #0 {\music \music }
}
>>
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
