]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/manual/fretted-headword.ly
Merge master into nested-bookparts
[lilypond.git] / input / manual / fretted-headword.ly
index 85877d9785dcd082aaffa0f8d307ad0b6e7a635a..faefb12c8b5114889c0c108e49885b7ba0183c8d 100644 (file)
 % on melodies from Bellini's "Norma"                              %
 %*****************************************************************%
 
-\version "2.11.57"
+\version "2.11.51"
 
 #(set-global-staff-size 15)
-\paper{
- ragged-end=##t
- line-width=17\cm
- indent=0\cm
+\paper {
+  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
- }
+  \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)
+% 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 )
-  #})
+#{
+  \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" }}}
+% 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" } } }
+pdolce = #(make-dynamic-script (markup #:line (#:dynamic "p" #:normal-text #:italic "dol.")))
 
 %%% THE MUSIC %%%
 
-melody =  \relative c {
+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
-
+  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
-
+  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
-
+  <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
+  <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 {
+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)
+  
+  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-1> 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
+  #(revert-auto-beam-setting '(end 1 12 4 4) 1 4)
+  #(revert-auto-beam-setting '(end 1 12 4 4) 3 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
+  \times 2/3 { a8\p^\andantino e' a c a e a, e' a c a e } | % m. 5
+  
+  \times 2/3 { a,8\pdolce e' a c a e } % beg m. 6
+  \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 {
+  \new Staff = "guitar" <<
+    \context Voice = "upper" { \melody }
+    \context Voice = "lower" { \bass }
+  >>
+  \layout {
     \context {
       \Score
+      \override Fingering #'staff-padding = #'()
+      \override TupletNumber #'stencil = ##f
+      \override TupletBracket #'bracket-visibility = ##f
     }
   }
+  \midi { }
 }
-
-
-