input/manual/fretted-headword.ly

   1 % INSPIRATIONAL HEADER FOR LILYPOND DOCUMENTATION fretted-strings %\r
   2 % Passage from Johann Kaspar Mertz "Opern Revue, Op. 8, no. 17"   %\r
   3 % on melodies from Bellini's "Norma"                              %\r
   4 %*****************************************************************%\r
   5 \r
   6 \version "2.11.51"\r
   7 \r
   8 #(set-global-staff-size 15)\r
   9 \paper{\r
  10  ragged-end=##t\r
  11  line-width=17\cm\r
  12  indent=0\cm\r
  13 }\r
  14 \r
  15 \layout {\r
  16  \context { \Score\r
  17    \remove "Bar_number_engraver"\r
  18    \override PaperColumn #'keep-inside-line = ##t\r
  19    \override NonMusicalPaperColumn #'keep-inside-line = ##t\r
  20  }\r
  21 }\r
  22 \r
  23 %%%% shortcuts\r
  24 %  fingering orientations\r
  25         sfol = \set fingeringOrientations = #'(left)\r
  26         sfor = \set fingeringOrientations = #'(right)\r
  27         sfod = \set fingeringOrientations = #'(down)\r
  28         sfou = \set fingeringOrientations = #'(up)\r
  29 \r
  30 %  string number orientations\r
  31         ssnol =  \set stringNumberOrientations = #'(left)  %(down right up)\r
  32         ssnou =  \set stringNumberOrientations = #'(up)\r
  33         ssnod =  \set stringNumberOrientations = #'(down)\r
  34         ssnor =  \set stringNumberOrientations = #'(right)\r
  35 \r
  36 % define fingering offset\r
  37 FO = #(define-music-function (parser location offsetX offsetY) (number? number?)\r
  38   #{\r
  39     \once \override Voice.Fingering #'extra-offset = #(cons $offsetX $offsetY )\r
  40   #})\r
  41 \r
  42 %  markups\r
  43         rit = \markup \center-align { \bold { \italic { " rit." } } }\r
  44         dim = \markup \center-align { \italic { " dim." }}\r
  45         andantino = \markup \left-align { \italic { \bold { \fontsize #+2.5 { "Andantino"  }}}}\r
  46         benmarcato = \markup { \italic { \bold { "il canto ben marcato" }}}\r
  47 \r
  48 %%% THE MUSIC %%%\r
  49 \r
  50 melody =  \relative c {\r
  51   \clef "treble_8"\r
  52   \key d \major\r
  53   \time 4/4\r
  54 %  \override Staff.TimeSignature #'transparent = ##t\r
  55   \voiceOne\r
  56   \override Fingering #'staff-padding = #'()\r
  57   \sfol\r
  58     e,32 a' c e \r
  59     e, a c e \r
  60     e,, a' c e \r
  61     e, a c e \r
  62     f4\rest <e'-4>4-> | % m. 1\r
  63 \r
  64     e,,,32 gis' b e \r
  65     e, gis b e \r
  66     e,, gis' b e \r
  67     e, gis b e \r
  68     f4\rest \FO #'0.4 #'0.5 <gis-1 e'-4>4 | % m. 2\r
  69 \r
  70     d4\rest <b e>-> d4\rest^\rit <b e>4->  | % m. 3\r
  71     <gis b e>1  | % m. 4\r
  72 \r
  73   \bar "||"\r
  74   \key a \minor\r
  75   \override TupletNumber #'stencil = ##f\r
  76   \override TupletBracket #'bracket-visibility = ##f\r
  77     R1  % m. 5\r
  78 \r
  79     e'4^\benmarcato e8. d16-4 \r
  80     d4-4 \times 2/3{\sfou \FO #'-0.3 #'0.6 <c-2>4 b8} | % end of m. 6\r
  81 \r
  82   \FO #'-0.3 #'0.3 \r
  83     <a-3>4 \times 2/3{c4 b8} a4 e'8. e16  | % m. 7\r
  84 \r
  85   \FO #'-0.3 #'0.3 \r
  86     <g-4>4 \times 2/3{\sfol \FO #'0.3 #'0.0 <f-1>4 e8} e4   % beg of m. 8\r
  87       \times 2/3{\sfou <d-4>4 c8}                         | % end of m. 8\r
  88 \r
  89     b4 \times 2/3{d4-4 c8} \sfou \FO #'-1.7 #'-1.5 <b-0>4 e | % end of m. 9\r
  90 \r
  91     e4 e8. d16-4 d4 \times 2/3{c4 b8}                     | % m. 10\r
  92 \r
  93     \times 2/3{a4 a8 b4 c8}                                 % beg of m. 11\r
  94   \sfou \FO #'-0.3 #'0.3                                    \r
  95     <d-4>4^\< \times 2/3{e4 <d f>8\!}                     | % end of m. 11\r
  96 }\r
  97 \r
  98 bass =  \relative c {\r
  99   \key d \major\r
 100   \time 4/4\r
 101   \voiceTwo\r
 102   \override Fingering #'staff-padding = #'()\r
 103     \r
 104     e,8\fp[ e'] e,[ e'] e,[ \sfol <c''-1> <a'-2> c,]  | % m. 1\r
 105 \r
 106     e,,8\fp[ e'] e,[ e'] e,[ \sfod \FO #'0.2 #'-0.2 <b''-1>  % beg m. 2\r
 107         \sfol \FO #'0.3 #'0.0 <e-1> b]  | % end m. 2\r
 108 \r
 109     e,,8 e' gis e e, e' gis_\dim e      | % m. 3\r
 110 \r
 111     e,1                                 | % m. 4\r
 112 \r
 113 %% new section starts here in A minor\r
 114   \override TupletNumber #'stencil = ##f\r
 115   \override TupletBracket #'bracket-visibility = ##f\r
 116   \set tupletSpannerDuration = #(ly:make-moment 1 4)\r
 117   \once \override TextScript #'staff-padding = #1.7\r
 118     \times 2/3{a8\p[^\andantino e' a c a e ] a,[ e' a c a e ]} | % m. 5   \r
 119 \r
 120   \once \override DynamicText #'extra-offset = #'( -2.1 . 0.0 ) % beg m. 6\r
 121   \once \override TextScript #'staff-padding = #'()\r
 122   \once \override TextScript #'extra-offset = #'( 0.0 . 2.0 )\r
 123     \times 2/3{a,8[\p_\markup {\italic { "dol." } } e' a c a e]}  \r
 124     \times 2/3{e,8[ \sfou <e'-3> <gis-1> c gis e]}      | % end m. 6\r
 125 \r
 126     \times 2/3{a,8[ <e'-2> a c e, b'] a,[ e' a c a e]}  | % m. 7\r
 127 \r
 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\r
 129 \r
 130     \times 2/3{<g,-3>8[ d' g d' g, d]                                     % beg m. 9\r
 131         \sfod \FO #'0.0 #'-2.0 <gis,-4>[ \sfou <e'-2> <gis-1> b gis e]} | % end m. 9\r
 132 \r
 133     \times 2/3{a,8[ e' a c a e] e,[ e' gis c gis e]}                    | % m. 10\r
 134 \r
 135     \times 2/3{a,8[ e' a b a e] f,[ f' a d a f]}                        | % m. 11\r
 136 }\r
 137 \r
 138 \r
 139 \score {\r
 140     \context Staff = "guitar" << \r
 141         \context Voice = "upper" { \melody }\r
 142         \context Voice = "lower"   { \bass }\r
 143     >>\r
 144     \layout { }\r
 145     \r
 146   \midi {\r
 147     \context {\r
 148       \Score\r
 149     }\r
 150   }\r
 151 }\r
 152 \r
 153 \r
 154 \r