lessons/LilyPondGuitar: Agafoshin189.ly

\version "2.12.1"

% European system (A B H C D E F G)
\include "deutsch.ly"

global = {
  \key d \major
  \time 2/4
}

% Ajust size
% #(set-global-staff-size 30)

% Some magic here (for spanning string numbers)
stringNumberSpanner =
#(define-music-function (parser location StringNumber) (string?)
  #{
    \override TextSpanner #'style = #'dashed-line
    \override TextSpanner #'dash-period = #1
    \override TextSpanner #'font-size = #-5
    \override TextSpanner #'(bound-details left stencil-align-dir-y) = #CENTER
    \override TextSpanner #'(bound-details left text) = \markup { \circle \number $StringNumber }
  #})

One = \new Voice {\relative c'' {
  \voiceOne
  \override StringNumber #'add-stem-support = ##t
  \stringNumberSpanner "4"
  \textSpannerNeutral
  a16-2\startTextSpan h-4
  \stopTextSpan
  \stringNumberSpanner "3"
  cis-1\startTextSpan d-2 e-4
  \stopTextSpan
  \stringNumberSpanner "2"
  fis-1\startTextSpan g-2 a-4 \glissando
  \stopTextSpan
  \override StringNumber #'add-stem-support = ##t
  \override Fingering #'add-stem-support = ##t
  h8-4 <d,-3 fis-2 a-1>
  < d\4 fis\3 a\2 > r
  \bar "||"
  % Some stuff is duplicated here
  << {
    \stemDown
    \textSpannerUp
    \override TextSpanner #'dash-period = #2
    \override TextSpanner #'(bound-details left stencil-align-dir-y) = #CENTER
    \override TextSpanner #'(bound-details left text) = "VII "
    c'16-2\startTextSpan
    a-4 fis-1
    e-3 dis-2 fis-1 dis h-3
    \stemUp
    c-4\stopTextSpan a-1
    \override TextSpanner #'(bound-details left text) = "VI "
    fis-4\startTextSpan e-2 dis-1 fis-4 dis h-2\stopTextSpan
  } \\ {
    \stemDown
    \textSpannerDown
    % Fingering instruction must not override string number
    \set stringNumberOrientations = #'(down)
    <c'' \1>16
    \stringNumberSpanner "2"
    a\startTextSpan
    \override StringNumber #'add-stem-support = ##t
    fis
    \stopTextSpan
    \stringNumberSpanner "3"
    e\startTextSpan dis
    \stopTextSpan
    <fis\2> dis
    \stringNumberSpanner "4"
    h\startTextSpan
    \stemUp
    c a
    \stopTextSpan
    \stringNumberSpanner "5"
    fis\startTextSpan e dis fis dis
    \stopTextSpan
    <h\6>
  } >>
  \bar "|."
}}

Two = \new Voice {\relative c' {
  \voiceTwo
  a4 a
  d2.
}}

\score {
  \new Staff
  <<
    \global
    \One
    \\
    \Two
  >>
  \layout{}
  \midi{}
}