instead of using shortVocalName ... you could also use stanzas: Perfect! I should have seen stanza, but missed it.
So below is the result. I tried to create a macro, "Fred", to replace the many repeated lines, but was unsuccessful. Suggestions on how to make it work? Thanks. ============================================================================== \version "2.16.0" \language english #(set-global-staff-size 28) \paper { #(set-paper-size "letter") top-margin = 0.75\in bottom-margin = 1\in ragged-last-bottom = ##f tagline = ##f } % paper \layout { \pointAndClickOff \override Score.OctavateEight #'font-name = #"times" \override Score.OctavateEight #'font-size = #-1 \override Score.LyricText #'font-size = #3 indent = 0 \context { \Staff \remove "Time_signature_engraver" } % context } % layout \header { title = \markup {\fontsize #-3 "Note Exercise: Form 3, 1st Position" } enteredby = "Peter Buhr" } % header melody = \relative c { \cadenzaOn e, a d g b e \bar "|" \break % string names (standard tuning) e,, f g a b c d e f g a b c d e f g \bar "|" \break % all notes in 1st position e g d c e f g e b d c g' f d c f \bar "|" \break % top 6 notes (c-g), random e, g f a b f a g e f a e b' a e f \bar "|" \break % middle 6 notes (b-e), random d c g d' b e, a f c' d f, g a c e, d' \bar "|" \break % bottom 7 notes (d-E), random } % melody Fred = #(define-music-function (parser location name times) (string? number?) #{ \set stanza = \markup \fontsize #-2 #name \repeat unfold #times {\markup \combine \with-color #white "|" "_" } #}) notes = \lyricmode { % \Fred "Note" 6 \set stanza = \markup \fontsize #-2 "Note" \repeat unfold 6 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Note" \repeat unfold 17 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Note" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Note" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Note" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } } % notes fretno = \lyricmode { \set stanza = \markup \fontsize #-2 "Fret" \repeat unfold 6 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Fret" \repeat unfold 17 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Fret" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Fret" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } \set stanza = \markup \fontsize #-2 "Fret" \repeat unfold 16 {\markup \combine \with-color #white "|" "_" } } % fretno \score { << \context Voice = one { \clef "treble_8" \melody } \lyricsto "one" \new Lyrics \notes \lyricsto "one" \new Lyrics \fretno >> } % score % Local Variables: % % tab-width: 4 % % compile-command: "lilypond --ps NoteName.ly" % % End: % _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user