[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Note Exercise, Guitar
From: |
pabuhr |
Subject: |
Re: Note Exercise, Guitar |
Date: |
Sun, 17 Feb 2013 15:37:45 -0800 |
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: %