%{
    Caprice #13 (Paganini)
    Arranged for guitar by Steve Yegge

  compile-command:
  /Applications/LilyPond.app/Contents/Resources/bin/lilypond \
       [-d fret-diagrams] --png caprice-13.ly \
    && /Users/stevey/bin/refresh-lilypond \
    && /Users/stevey/bin/midi caprice-13.midi
%}

\version "2.26.0"  % for upgrading to future LilyPond versions

\include "english.ly"
\include "../common.ly"

thirds = {
  <<
    \relative c {
      |
      \pVI <d' f>8 \( \glissando <bf'-3\3 d-4\2> \)
      \pXII <a-3 cs-4> --
      \( <a-3 c-2> -- <gs-3 b-2> -- \pIX <g bf> --

      |
      <fs a> -- <f af> -- \pVI <e g> --
      \pIV <ef gf> -- <d f> -- <c ef> -- \)
    }
  >>
}

horns = {
  <<
    \relative c {
      \pIII \arpeggioBracket <bf'-1 d-1>8 \arpeggio
      r8 <f-1\4 c'-4\3> \noBeam <d-0 bf'-1>\4\3 r8
    }
  >>
}

loudHorns = {
  <<
    \relative c {
      \horns
      \pOff <c-3 f-4 a-2>8 \f
    }
  >>
}

intro = {
  <<
    \relative c {
      \fingerRight
      %% measure 1
      \time 6/8 \pVI
      \set Score.measureLength = #2/8
      <d'-2\3 f-1\2>8 ^\markup { \halign #0 { \null \raise #1 { \large Allegro. }}}
      _\markup \italic "dolce"
      \( <ef-3 g-4> \)
      \set Score.measureLength = #6/8

      %% measure 2
      %% measure 3
      \thirds

      | %% measure 4
      \horns
      <f,-1 c'-4>

      | %% measure 5
      \arpeggioBracket <bf-1 d-1>4. -> \arpeggio
      \( <d,-0 bf'-1>8\4\3 \)
      \pVI <d'-2\3 f-1\2>8 \( [ <ef-3 g-4> ] \)

      %% measure 6
      %% measure 7
      \fingersOff \thirds

      | %% measure 8
      \loudHorns \fingersOn

      | %% measure 9
      <bf,-1 d-0 bf'-4>4. r8
    }
  >>
}

highI = {
  <<
    \relative c {
      \pVIII <bf''-3\2 d-2\1> -> \( [ <a-3 c-1> ] \)
    }
  >>
}

highII = {
  <<
    \relative c {
      \pV <g''-3 bf-1> -> \( [ <f-2 a-1> ] \)
    }
  >>
}

low = {
  <<
    \relative c {
      \pII <f a> -. \( <g bf> -.<f a> -. \)
    }
  >>
}

devel = {
  <<
    \relative c {
      %% measure 10
      \set Score.measureLength = #2/8
      \pII <f-2\4 a-1\3>8 -. \p
      \( <g-3 bf-1> -.
      \set Score.measureLength = #6/8

      | %% measure 11
      <f a> -. \)
      \highI
      \low

      | %% measure 12
      \highII \fingersOff
      \low

      %% measure 13
      %% measure 14
      \highI
      \low
      \highII

      %% measure 15
      \low \fingersOn
      <a'-1 f'-4> ->
      \pVI <d,-2\3 f-1\2> -. \( [ <ef-3 g-4> -. ] \)

      %% measure 16
      %% measure 17
      \thirds

      %% measure 18
      \loudHorns

      | %% measure 19
      <bf,-1 d-0 bf'-4>4. r8 _\markup \italic "Fine."
    }
  >>
}

mainA = {
  <<
    \relative c {
      \pV <g'-3>16 ^> ( [ <fs-2> <g-3> )
      <g,-1>\6 -. <d''-4\3> <d,-0>\4 ]
    }
  >>
}

main = {
  <<
    \relative c {
      |
      \mainA \fingersOff
      \mainA \fingersOn
      |
    }
  >>
}

octaveStart = {
  <<
    \relative c {
      |
      \pV <g'-3>16 ^> ( [ <fs-2> <g-3> )
      <g,-1>\6 -. <g''-4\3> -. <g,-1\5> -. ]
    }
  >>
}

octaves = {
  <<
    \relative c {
      \octaveStart
      <fs'-4>\3 [ <fs,-1>\5
      <f'>\3 <f,>\5
      <e'>\3 <e,>\5 ]
      |
      <ef'>\3 [ <ef,>\5
      <d'>\3 <d,>\5
      <cs'>\3 <cs,>\5 ]

      <c'>\3 [ <c,>\5
      <bf'>\3 <bf,>\5
      <a'-2>\3 <a,-0>\5 ]
      |
    }
  >>
}

fast = {
  <<
    \relative c {
      %% measure 20
      \set Score.measureLength = #2/8
      \pOff <d-0>8 \f d
      \set Score.measureLength = #6/8

      %% measure 21
      \main

      %% measure 22
      %% measure 23
      \octaves

      %% measure 24
      \phrasingSlurUp <g,-1\6 g'-4\4>4. \( <d'-2\5 fs-1\4>8 \)
      \phrasingSlurNeutral <d-0>\4 -- \( d\4 -- \)

      \fingersOff \main
      \octaves \fingersOn
      <g, g'>4.\6\4 r8
    }
  >>
}

fastII = {
  <<
    \relative c {
      \fingerUp \stringDown
      \set Score.measureLength = #2/8
      <d''-1>8 d
      \set Score.measureLength = #6/8

      | %% measure xx
      \pX <g-4>16 ( [ <fs-3> <g> )
      <g,-2> <b-3 d-1> -> <g> ]
      \pVIII <c-4\2> ( [ <b-3> <c> )
      \barre "VIII" "3"
      <c,-2> \startTextSpan <ef g> -> <c> ] \stopTextSpan

      | %% measure xx
      <f'-4> ( [ <e-3> <f>\2 )
      <f,-2> <a-3 c-1> -> <f> ]
      <bf-4> ( [ <a-3> <bf> )
      \pVI <bf,-3\4> <d-2 f-1> -> <bf> ]

      | %% measure xx
      <ef'-4> ( [ <d-3> <ef> )
      <ef,-2> <g-3 bf-1> -> <ef > ]
      <a-4\2> ( [ <gs-3> <a> )
      \barre "VII" "4"
      <a,-1> \startTextSpan <fs' d'-4> <d> ] \stopTextSpan

      | %% measure xx
      \pV <g-4 bf-2> [ <g,-1>\4
      <g'-4 bf-2> <ef,-1>\5
      <g'-4 bf-2> <cs,,-1> ]
      <d-0>8\4 \( [ <fs'-1 d'-4> ] \) \noBeam <d,-0>\4
    }
  >>
  <<
    \relative c {
      \fingersOff \main
      \octaveStart \fingersOn
      <f'!>16\3 [ <f,>\5 <ef'>\3 <ef,>\5 <a'>\3 -> <a,>\5 ]
      <g'>\3 [ <g,>\5 <fs'>\3 <fs,>\5 <bf'>\3 -> <bf,>\5 ]
      <a'>\3 [ <a,>\5 <g'>\3 <g,>\5 <c'-4\2> -> <c,-1\4> ]
      <bf'>\2 [ <bf,>\4 <a'>\2 <a,>\4 <ef''>\2 -> <ef,>\4 ]
      <cs'>\2 [ <cs,>\4 <d'>\2 <d,>\4 <ef'>\2 -> <ef,>\4 ]
      <cs'>\2 [ <cs,>\4 <d'>\2 <d,>\4 <ef'>\2 -> <ef,>\4 ]
      <cs'>\2 [ <cs,>\4 <d'>\2 <d,>\4 <c'>\2 <c,>\4 ]
      <bf'>\2 [ <bf,>\4 <a'>\2 <a,>\4 <g'>\2 <g,>\4 ]
    }
  >>
  <<
    \relative c {
      \stringUp \fingerDown
      \pIV <af'-3\4>16 ^> ( [ <g-2> <af-3> ) <af,-1> <ef''-4\3> <ef,-2\5> ]
      |
      <af-3> ^> ( [ <g-2> <af-3> ) <af,-1> <ef''-4>\3 <ef,-2>\5 ]
      <af-3> ^> ( [ <g-2> <af-3> ) <af,-1> <c'-3> <af,-1> ]
      |
      \kneeBeamsOnce \flatBeamsOnce
      <ef''^2> [ <af,,> <af''^3> <af,,> <c''^1> <af,,> ]

      <fs'-3\4> \( ( [ <e-1>\4 ) \glissando
      \moveString #'(0 . -5.2) <fs-1\4>
      \moveString #'(0 . 0.2) <a'-3\1> -. \)
      \moveString #'(0 . -2.8) <g,-1\4> <bf'-3\1> ]
      |
      <a,>\4 [ <c'>\1 <bf,>\4 <d'>\1 <c,>\4 <ef'>\1 ] \fingerUp
      \pX <d,-2> [ ( <cs-1> <d-2> ) <g'-4>
      \moveFingering #'(0 . -4) <d,,-0>\4 <fs''-4> ] \fingerDown
      |
      \pXII <g-4> \( ( [ <fs-3> <g> ) <g,> -. \) <d'> <d,> ]
      \pX <g-3> ( [ <fs-2> <g> ) <g,> <d'> <d,> ]
      |
      \override Staff.Script.stencil = ##f
      \fingersOff \main \fingersOn
      \revert Staff.Script.stencil
      |
      <g>8 <g,>4\6 r8
      _\markup \right-align \italic "D.C. senza replica."
    }
  >>
}

music = {
  \key bf \major
  \repeat volta 2 { \intro }
  \repeat volta 2 { \devel } \break
  \midiTempoChange \tempo 4=120
  \repeat volta 2 { \fast }
  \repeat volta 2 { \fastII }
}

\header {
  title = "Caprice 13, Op. 1"
  composer = "Niccolò Paganini"
  arranger = "Arranged for guitar by Steve Yegge"
  copyright = "sites.google.com/site/steveysguitarsite"
  tagline = ##f
}

\score {
  <<
    \new Staff {
      \commonSetup
      \maybeFretDiagrams \music
    }
    \new TabStaff {
      \music
    }
  >>
}

\score {
  \unfoldRepeats
  \music
  \midi {
    \context {
      \Score
      midiInstrument = #"acoustic guitar (steel)"
      tempoWholesPerMinute = #130/4
    }
    \context {
      \Voice
      \remove "Dynamic_performer"
    }
  }
}

\paper {
   indent = 8\mm
   after-title-spacing =
   #'((basic-distance . 0) (padding . 1.5) (stretchability . 3) (minimum-distance . 0))
   bottom-system-spacing =
   #'((basic-distance . 0) (padding . 1.5) (stretchability . 3) (minimum-distance . 0))
   ragged-last-bottom = ##f
   page-count = 3
   min-systems-per-page = 5
}