Documentation/snippets/fretted-headword.ly

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