1 % INSPIRATIONAL HEADER FOR LILYPOND DOCUMENTATION fretted-strings %
2 % Passage from Johann Kaspar Mertz "Opern Revue, Op. 8, no. 17" %
3 % on melodies from Bellini's "Norma" %
4 %*****************************************************************%
8 #(set-global-staff-size
15)
17 \remove "Bar_number_engraver"
18 \override PaperColumn
#'keep-inside-line
= ##t
19 \override NonMusicalPaperColumn
#'keep-inside-line
= ##t
24 % fingering orientations
25 sfol
= \set fingeringOrientations
= #'(left
)
26 sfor
= \set fingeringOrientations
= #'(right
)
27 sfod
= \set fingeringOrientations
= #'(down
)
28 sfou
= \set fingeringOrientations
= #'(up
)
30 % string number orientations
31 ssnol
= \set stringNumberOrientations
= #'(left
) %(down right up)
32 ssnou
= \set stringNumberOrientations
= #'(up
)
33 ssnod
= \set stringNumberOrientations
= #'(down
)
34 ssnor
= \set stringNumberOrientations
= #'(right
)
36 % define fingering offset
37 FO
= #(define-music-function
(parser location offsetX offsetY
) (number? number?
)
39 \once \override Voice
.Fingering
#'extra-offset
= #(cons $offsetX $offsetY
)
43 rit
= \markup \center-align
{ \bold { \italic { " rit." } } }
44 dim
= \markup \center-align
{ \italic { " dim." }}
45 andantino
= \markup \left-align
{ \italic { \bold { \fontsize #+
2.5 { "Andantino" }}}}
46 benmarcato
= \markup { \italic { \bold { "il canto ben marcato" }}}
50 melody
= \relative c {
54 % \override Staff.TimeSignature #'transparent = ##t
56 \override Fingering
#'staff-padding
= #'()
62 f4\rest <e'-
4>4-
> |
% m. 1
68 f4\rest \FO #'0.4 #'0.5 <gis-
1 e'-
4>4 |
% m. 2
70 d4\rest <b e>-
> d4\rest^\rit <b e>4-
> |
% m. 3
75 \override TupletNumber
#'stencil
= ##f
76 \override TupletBracket
#'bracket-visibility
= ##f
79 e'4^\benmarcato e8. d16-
4
80 d4-
4 \times 2/3{\sfou \FO #'-
0.3 #'0.6 <c-
2>4 b8} |
% end of m. 6
83 <a-
3>4 \times 2/3{c4 b8} a4 e'8. e16 |
% m. 7
86 <g-
4>4 \times 2/3{\sfol \FO #'0.3 #'0.0 <f-
1>4 e8} e4 % beg of m. 8
87 \times 2/3{\sfou <d-
4>4 c8} |
% end of m. 8
89 b4 \times 2/3{d4-
4 c8} \sfou \FO #'-
1.7 #'-
1.5 <b-
0>4 e |
% end of m. 9
91 e4 e8. d16-
4 d4 \times 2/3{c4 b8} |
% m. 10
93 \times 2/3{a4 a8 b4 c8} % beg of m. 11
94 \sfou \FO #'-
0.3 #'0.3
95 <d-
4>4^\< \times 2/3{e4 <d f>8\!} |
% end of m. 11
102 \override Fingering
#'staff-padding
= #'()
104 e,8\fp[ e'] e,[ e'] e,[ \sfol <c''-
1> <a'-
2> c,] |
% m. 1
106 e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-
0.2 <b''-
1> % beg m. 2
107 \sfol \FO #'0.3 #'0.0 <e-
2> b] |
% end m. 2
109 e,,8 e' gis e e, e' gis_\dim e |
% m. 3
113 %% new section starts here in A minor
114 \override TupletNumber
#'stencil
= ##f
115 \override TupletBracket
#'bracket-visibility
= ##f
116 \set tupletSpannerDuration
= #(ly
:make-moment
1 4)
117 \once \override TextScript
#'staff-padding
= #1.7
118 \times 2/3{a8\p[^\andantino e' a c a e ] a,[ e' a c a e ]} |
% m. 5
120 \once \override DynamicText
#'extra-offset
= #'( -
2.1 . 0.0 ) % beg m. 6
121 \once \override TextScript
#'staff-padding
= #'()
122 \once \override TextScript
#'extra-offset
= #'( 0.0 . 2.0 )
123 \times 2/3{a,8[\p_\markup {\italic { "dol." } } e' a c a e]}
124 \times 2/3{e,8[ \sfou <e'-
3> <gis-
1> c gis e]} |
% end m. 6
126 \times 2/3{a,8[ <e'-
2> a c e, b'] a,[ e' a c a e]} |
% m. 7
128 \times 2/3{f,8[ f' a \sfol \FO #'0.3 #'-
0.5 <d-
4> a f] fis,[ d' a' d a d,]} |
% m. 8
130 \times 2/3{<g,-
3>8[ d' g d' g, d] % beg m. 9
131 \sfod \FO #'0.0 #'-
2.0 <gis,-
4>[ \sfou <e'-
2> <gis-
1> b gis e]} |
% end m. 9
133 \times 2/3{a,8[ e' a c a e] e,[ e' gis c gis e]} |
% m. 10
135 \times 2/3{a,8[ e' a b a e] f,[ f' a d a f]} |
% m. 11
140 \context Staff
= "guitar" <<
141 \context Voice
= "upper" { \melody }
142 \context Voice
= "lower" { \bass }