-% INSPIRATIONAL HEADER FOR LILYPOND DOCUMENTATION fretted-strings %
-% Passage from Johann Kaspar Mertz "Opern Revue, Op. 8, no. 17" %
-% on melodies from Bellini's "Norma" %
-%*****************************************************************%
-
-\version "2.11.61"
-
-#(set-global-staff-size 15)
-\paper{
- ragged-end=##t
- 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
- }
-}
-
-%%%% 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)
-
-% define fingering offset
-FO = #(define-music-function (parser location offsetX offsetY) (number? number?)
- #{
- \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" }}}
-
-%%% THE MUSIC %%%
-
-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 <e'-4>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 <gis-1 e'-4>4 | % m. 2
-
- d4\rest <b e>-> d4\rest^\rit <b e>4-> | % m. 3
- <gis b e>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 <c-2>4 b8} | % end of m. 6
-
- \FO #'-0.3 #'0.3
- <a-3>4 \times 2/3{c4 b8} a4 e'8. e16 | % m. 7
-
- \FO #'-0.3 #'0.3
- <g-4>4 \times 2/3{\sfol \FO #'0.3 #'0.0 <f-1>4 e8} e4 % beg of m. 8
- \times 2/3{\sfou <d-4>4 c8} | % end of m. 8
-
- b4 \times 2/3{d4-4 c8} \sfou \FO #'-1.7 #'-1.5 <b-0>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
- <d-4>4^\< \times 2/3{e4 <d f>8\!} | % end of m. 11
-}
-
-bass = \relative c {
- \key d \major
- \time 4/4
- \voiceTwo
- \override Fingering #'staff-padding = #'()
-
- e,8\fp[ e'] e,[ e'] e,[ \sfol <c''-1> <a'-2> c,] | % m. 1
-
- e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-0.2 <b''-1> % beg m. 2
- \sfol \FO #'0.3 #'0.0 <e-2> 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)
- \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 <e'-3> <gis-1> c gis e]} | % end m. 6
-
- \times 2/3{a,8[ <e'-2> 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 <d-4> a f] fis,[ d' a' d a d,]} | % m. 8
-
- \times 2/3{<g,-3>8[ d' g d' g, d] % beg m. 9
- \sfod \FO #'0.0 #'-2.0 <gis,-4>[ \sfou <e'-2> <gis-1> 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 {
- \context {
- \Score
- }
- }
-}
-
-
-
+% INSPIRATIONAL HEADER FOR LILYPOND DOCUMENTATION fretted-strings %\r
+% Passage from Johann Kaspar Mertz "Opern Revue, Op. 8, no. 17" %\r
+% on melodies from Bellini's "Norma" %\r
+%*****************************************************************%\r
+\r
+\version "2.11.51"\r
+\r
+#(set-global-staff-size 15)\r
+\paper{\r
+ ragged-end=##t\r
+ line-width=17\cm\r
+ indent=0\cm\r
+}\r
+\r
+\layout {\r
+ \context { \Score\r
+ \remove "Bar_number_engraver"\r
+ \override PaperColumn #'keep-inside-line = ##t\r
+ \override NonMusicalPaperColumn #'keep-inside-line = ##t\r
+ }\r
+}\r
+\r
+%%%% shortcuts\r
+% fingering orientations\r
+ sfol = \set fingeringOrientations = #'(left)\r
+ sfor = \set fingeringOrientations = #'(right)\r
+ sfod = \set fingeringOrientations = #'(down)\r
+ sfou = \set fingeringOrientations = #'(up)\r
+\r
+% string number orientations\r
+ ssnol = \set stringNumberOrientations = #'(left) %(down right up)\r
+ ssnou = \set stringNumberOrientations = #'(up)\r
+ ssnod = \set stringNumberOrientations = #'(down)\r
+ ssnor = \set stringNumberOrientations = #'(right)\r
+\r
+% define fingering offset\r
+FO = #(define-music-function (parser location offsetX offsetY) (number? number?)\r
+ #{\r
+ \once \override Voice.Fingering #'extra-offset = #(cons $offsetX $offsetY )\r
+ #})\r
+\r
+% markups\r
+ rit = \markup \center-align { \bold { \italic { " rit." } } }\r
+ dim = \markup \center-align { \italic { " dim." }}\r
+ andantino = \markup \left-align { \italic { \bold { \fontsize #+2.5 { "Andantino" }}}}\r
+ benmarcato = \markup { \italic { \bold { "il canto ben marcato" }}}\r
+\r
+%%% THE MUSIC %%%\r
+\r
+melody = \relative c {\r
+ \clef "treble_8"\r
+ \key d \major\r
+ \time 4/4\r
+% \override Staff.TimeSignature #'transparent = ##t\r
+ \voiceOne\r
+ \override Fingering #'staff-padding = #'()\r
+ \sfol\r
+ e,32 a' c e \r
+ e, a c e \r
+ e,, a' c e \r
+ e, a c e \r
+ f4\rest <e'-4>4-> | % m. 1\r
+\r
+ e,,,32 gis' b e \r
+ e, gis b e \r
+ e,, gis' b e \r
+ e, gis b e \r
+ f4\rest \FO #'0.4 #'0.5 <gis-1 e'-4>4 | % m. 2\r
+\r
+ d4\rest <b e>-> d4\rest^\rit <b e>4-> | % m. 3\r
+ <gis b e>1 | % m. 4\r
+\r
+ \bar "||"\r
+ \key a \minor\r
+ \override TupletNumber #'stencil = ##f\r
+ \override TupletBracket #'bracket-visibility = ##f\r
+ R1 % m. 5\r
+\r
+ e'4^\benmarcato e8. d16-4 \r
+ d4-4 \times 2/3{\sfou \FO #'-0.3 #'0.6 <c-2>4 b8} | % end of m. 6\r
+\r
+ \FO #'-0.3 #'0.3 \r
+ <a-3>4 \times 2/3{c4 b8} a4 e'8. e16 | % m. 7\r
+\r
+ \FO #'-0.3 #'0.3 \r
+ <g-4>4 \times 2/3{\sfol \FO #'0.3 #'0.0 <f-1>4 e8} e4 % beg of m. 8\r
+ \times 2/3{\sfou <d-4>4 c8} | % end of m. 8\r
+\r
+ b4 \times 2/3{d4-4 c8} \sfou \FO #'-1.7 #'-1.5 <b-0>4 e | % end of m. 9\r
+\r
+ e4 e8. d16-4 d4 \times 2/3{c4 b8} | % m. 10\r
+\r
+ \times 2/3{a4 a8 b4 c8} % beg of m. 11\r
+ \sfou \FO #'-0.3 #'0.3 \r
+ <d-4>4^\< \times 2/3{e4 <d f>8\!} | % end of m. 11\r
+}\r
+\r
+bass = \relative c {\r
+ \key d \major\r
+ \time 4/4\r
+ \voiceTwo\r
+ \override Fingering #'staff-padding = #'()\r
+ \r
+ e,8\fp[ e'] e,[ e'] e,[ \sfol <c''-1> <a'-2> c,] | % m. 1\r
+\r
+ e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-0.2 <b''-1> % beg m. 2\r
+ \sfol \FO #'0.3 #'0.0 <e-1> b] | % end m. 2\r
+\r
+ e,,8 e' gis e e, e' gis_\dim e | % m. 3\r
+\r
+ e,1 | % m. 4\r
+\r
+%% new section starts here in A minor\r
+ \override TupletNumber #'stencil = ##f\r
+ \override TupletBracket #'bracket-visibility = ##f\r
+ \set tupletSpannerDuration = #(ly:make-moment 1 4)\r
+ \once \override TextScript #'staff-padding = #1.7\r
+ \times 2/3{a8\p[^\andantino e' a c a e ] a,[ e' a c a e ]} | % m. 5 \r
+\r
+ \once \override DynamicText #'extra-offset = #'( -2.1 . 0.0 ) % beg m. 6\r
+ \once \override TextScript #'staff-padding = #'()\r
+ \once \override TextScript #'extra-offset = #'( 0.0 . 2.0 )\r
+ \times 2/3{a,8[\p_\markup {\italic { "dol." } } e' a c a e]} \r
+ \times 2/3{e,8[ \sfou <e'-3> <gis-1> c gis e]} | % end m. 6\r
+\r
+ \times 2/3{a,8[ <e'-2> a c e, b'] a,[ e' a c a e]} | % m. 7\r
+\r
+ \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\r
+\r
+ \times 2/3{<g,-3>8[ d' g d' g, d] % beg m. 9\r
+ \sfod \FO #'0.0 #'-2.0 <gis,-4>[ \sfou <e'-2> <gis-1> b gis e]} | % end m. 9\r
+\r
+ \times 2/3{a,8[ e' a c a e] e,[ e' gis c gis e]} | % m. 10\r
+\r
+ \times 2/3{a,8[ e' a b a e] f,[ f' a d a f]} | % m. 11\r
+}\r
+\r
+\r
+\score {\r
+ \context Staff = "guitar" << \r
+ \context Voice = "upper" { \melody }\r
+ \context Voice = "lower" { \bass }\r
+ >>\r
+ \layout { }\r
+ \r
+ \midi {\r
+ \context {\r
+ \Score\r
+ }\r
+ }\r
+}\r
+\r
+\r
+\r
projects / lilypond.git / commitdiff