Documentation/snippets/fretted-headword.ly

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