X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fmanual%2Ffretted-headword.ly;h=faefb12c8b5114889c0c108e49885b7ba0183c8d;hb=6603613b789aa6328a28b9d4f7b4ff9b1d268130;hp=75fdeb04a60813910375c7be79ab55edd88c721d;hpb=1f419a2af14d4a5daf9bc9eb5f7368eedb5c6021;p=lilypond.git diff --git a/input/manual/fretted-headword.ly b/input/manual/fretted-headword.ly index 75fdeb04a6..faefb12c8b 100644 --- a/input/manual/fretted-headword.ly +++ b/input/manual/fretted-headword.ly @@ -3,152 +3,142 @@ % on melodies from Bellini's "Norma" % %*****************************************************************% -\version "2.11.61" +\version "2.11.51" #(set-global-staff-size 15) -\paper{ - ragged-end=##t - line-width=17\cm - indent=0\cm +\paper { + line-width = 17\cm + indent = 0\cm } \layout { - \context { \Score - \remove "Bar_number_engraver" - \override PaperColumn #'keep-inside-line = ##t - \override NonMusicalPaperColumn #'keep-inside-line = ##t - } + \context { + \Score + \remove "Bar_number_engraver" + \override PaperColumn #'keep-inside-line = ##t + \override NonMusicalPaperColumn #'keep-inside-line = ##t + } } %%%% shortcuts -% fingering orientations - sfol = \set fingeringOrientations = #'(left) - sfor = \set fingeringOrientations = #'(right) - sfod = \set fingeringOrientations = #'(down) - sfou = \set fingeringOrientations = #'(up) - -% string number orientations - ssnol = \set stringNumberOrientations = #'(left) %(down right up) - ssnou = \set stringNumberOrientations = #'(up) - ssnod = \set stringNumberOrientations = #'(down) - ssnor = \set stringNumberOrientations = #'(right) +% fingering orientations +sfol = \set fingeringOrientations = #'(left) +sfor = \set fingeringOrientations = #'(right) +sfod = \set fingeringOrientations = #'(down) +sfou = \set fingeringOrientations = #'(up) + +% string number orientations +ssnol = \set stringNumberOrientations = #'(left) %(down right up) +ssnou = \set stringNumberOrientations = #'(up) +ssnod = \set stringNumberOrientations = #'(down) +ssnor = \set stringNumberOrientations = #'(right) % define fingering offset FO = #(define-music-function (parser location offsetX offsetY) (number? number?) - #{ - \once \override Voice.Fingering #'extra-offset = #(cons $offsetX $offsetY ) - #}) +#{ + \once \override Voice.Fingering #'extra-offset = #(cons $offsetX $offsetY) +#}) -% markups - rit = \markup \center-align { \bold { \italic { " rit." } } } - dim = \markup \center-align { \italic { " dim." }} - andantino = \markup \left-align { \italic { \bold { \fontsize #+2.5 { "Andantino" }}}} - benmarcato = \markup { \italic { \bold { "il canto ben marcato" }}} +% markups +rit = \markup \center-align { \bold { \italic { " rit." } } } +dim = \markup \center-align { \italic { " dim." } } +andantino = \markup \left-align { \italic { \bold { \fontsize #2.5 { "Andantino" } } } } +benmarcato = \markup { \italic { \bold { "il canto ben marcato" } } } +pdolce = #(make-dynamic-script (markup #:line (#:dynamic "p" #:normal-text #:italic "dol."))) %%% THE MUSIC %%% -melody = \relative c { +melody = \relative c { \clef "treble_8" \key d \major \time 4/4 -% \override Staff.TimeSignature #'transparent = ##t \voiceOne - \override Fingering #'staff-padding = #'() \sfol - e,32 a' c e - e, a c e - e,, a' c e - e, a c e - f4\rest 4-> | % m. 1 - - e,,,32 gis' b e - e, gis b e - e,, gis' b e - e, gis b e - f4\rest \FO #'0.4 #'0.5 4 | % m. 2 - - d4\rest -> d4\rest^\rit 4-> | % m. 3 - 1 | % m. 4 - + e,32 a' c e + e, a c e + e,, a' c e + e, a c e + f4\rest 4-> | % m. 1 + + e,,,32 gis' b e + e, gis b e + e,, gis' b e + e, gis b e + f4\rest \FO #'0.4 #'0.5 4 | % m. 2 + + d4\rest -> d4\rest^\rit 4-> | % m. 3 + 1 | % m. 4 + \bar "||" \key a \minor - \override TupletNumber #'stencil = ##f - \override TupletBracket #'bracket-visibility = ##f - R1 % m. 5 - - e'4^\benmarcato e8. d16-4 - d4-4 \times 2/3{\sfou \FO #'-0.3 #'0.6 4 b8} | % end of m. 6 - + R1 % m. 5 + + e'4^\benmarcato e8. d16-4 + d4-4 \times 2/3 { \sfou \FO #'-0.3 #'0.6 4 b8 } | % end of m. 6 + \FO #'-0.3 #'0.3 - 4 \times 2/3{c4 b8} a4 e'8. e16 | % m. 7 - + 4 \times 2/3 { c4 b8 } a4 e'8. e16 | % m. 7 + \FO #'-0.3 #'0.3 - 4 \times 2/3{\sfol \FO #'0.3 #'0.0 4 e8} e4 % beg of m. 8 - \times 2/3{\sfou 4 c8} | % end of m. 8 - - b4 \times 2/3{d4-4 c8} \sfou \FO #'-1.7 #'-1.5 4 e | % end of m. 9 - - e4 e8. d16-4 d4 \times 2/3{c4 b8} | % m. 10 - - \times 2/3{a4 a8 b4 c8} % beg of m. 11 - \sfou \FO #'-0.3 #'0.3 - 4^\< \times 2/3{e4 8\!} | % end of m. 11 + 4 \times 2/3 { \sfol \FO #'0.3 #'0.0 4 e8 } e4 % beg of m. 8 + \times 2/3 { \sfou 4 c8 } | % end of m. 8 + + b4 \times 2/3 { d4-4 c8 } \sfou \FO #'-1.7 #'-1.5 4 e | % end of m. 9 + + e4 e8. d16-4 d4 \times 2/3 { c4 b8 } | % m. 10 + + \times 2/3 { a4 a8 b4 c8 } % beg of m. 11 + \sfou \FO #'-0.3 #'0.3 + 4^\< \times 2/3 { e4 8\! } | % end of m. 11 } -bass = \relative c { +bass = \relative c { \key d \major \time 4/4 \voiceTwo - \override Fingering #'staff-padding = #'() - - e,8\fp[ e'] e,[ e'] e,[ \sfol c,] | % m. 1 - - e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-0.2 % beg m. 2 - \sfol \FO #'0.3 #'0.0 b] | % end m. 2 - - e,,8 e' gis e e, e' gis_\dim e | % m. 3 - - e,1 | % m. 4 - -%% new section starts here in A minor - \override TupletNumber #'stencil = ##f - \override TupletBracket #'bracket-visibility = ##f - \set tupletSpannerDuration = #(ly:make-moment 1 4) + + e,8\fp[ e'] e,[ e'] e, \sfol c, | % m. 1 + + e,,8\fp[ e'] e,[ e'] e, \sfod \FO #'0.2 #'-0.2 % beg m. 2 + \sfol \FO #'0.3 #'0.0 b | % end m. 2 + + e,,8 e' gis e e, e' gis_\dim e | % m. 3 + + e,1 | % m. 4 + + %% new section starts here in A minor + #(revert-auto-beam-setting '(end 1 12 4 4) 1 4) + #(revert-auto-beam-setting '(end 1 12 4 4) 3 4) \once \override TextScript #'staff-padding = #1.7 - \times 2/3{a8\p[^\andantino e' a c a e ] a,[ e' a c a e ]} | % m. 5 - - \once \override DynamicText #'extra-offset = #'( -2.1 . 0.0 ) % beg m. 6 - \once \override TextScript #'staff-padding = #'() - \once \override TextScript #'extra-offset = #'( 0.0 . 2.0 ) - \times 2/3{a,8[\p_\markup {\italic { "dol." } } e' a c a e]} - \times 2/3{e,8[ \sfou c gis e]} | % end m. 6 - - \times 2/3{a,8[ a c e, b'] a,[ e' a c a e]} | % m. 7 - - \times 2/3{f,8[ f' a \sfol \FO #'0.3 #'-0.5 a f] fis,[ d' a' d a d,]} | % m. 8 - - \times 2/3{8[ d' g d' g, d] % beg m. 9 - \sfod \FO #'0.0 #'-2.0 [ \sfou b gis e]} | % end m. 9 - - \times 2/3{a,8[ e' a c a e] e,[ e' gis c gis e]} | % m. 10 - - \times 2/3{a,8[ e' a b a e] f,[ f' a d a f]} | % m. 11 + \times 2/3 { a8\p^\andantino e' a c a e a, e' a c a e } | % m. 5 + + \times 2/3 { a,8\pdolce e' a c a e } % beg m. 6 + \times 2/3 { e,8 \sfou c gis e } | % end m. 6 + + \times 2/3 { a,8 a c e, b' a, e' a c a e } | % m. 7 + + \times 2/3 { f,8 f' a \sfol \FO #'0.3 #'-0.5 a f fis, d' a' d a d, } | % m. 8 + + \times 2/3 { 8 d' g d' g, d % beg m. 9 + \sfod \FO #'0.0 #'-2.0 \sfou b gis e } | % end m. 9 + + \times 2/3 { a,8 e' a c a e e, e' gis c gis e } | % m. 10 + + \times 2/3 { a,8 e' a b a e f, f' a d a f } | % m. 11 } - \score { - \context Staff = "guitar" << - \context Voice = "upper" { \melody } - \context Voice = "lower" { \bass } - >> - \layout { } - - \midi { + \new Staff = "guitar" << + \context Voice = "upper" { \melody } + \context Voice = "lower" { \bass } + >> + \layout { \context { \Score + \override Fingering #'staff-padding = #'() + \override TupletNumber #'stencil = ##f + \override TupletBracket #'bracket-visibility = ##f } } + \midi { } } - - -