Re: Note Exercise, Guitar

[pabuhr]

   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: %