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

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

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

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

intro = {
  <<
    \relative c {
      %% measure 1
      \pIX <fs'\3>4.
      ^\markup { \halign #0 { \null \raise #1 { \large Allegretto. }}}
      \( g8 e fs

      | %% measure 2
      d4.\3 a8\3 \glissando a'\3 ( g ) \)

      | %% measure 3
      fs4. \( g8 e fs

      | %% measure 4
      d4.\3 a8\3 \glissando fs' ( g ) \)

      | %% measure 5
      \pXIII a4. \( b8 a gs

      | %% measure 6
      a4. \pXI fs8 a g \)

      | %% measure 7
      <fs\2>4 \( e8 \noBeam e fs e

      | %% measure 8
      e4. \pVIII a8 gs g \)
    } \\ \relative c {
      \fingerRightOnce <d-0>2.\4 _\markup \italic "dolce" d2.\4 d2.\4
      d2.\4 d2.\4 d2.\4
      |
      \pV \fingerRight <g-0>4.\3 \stringDown <gs-2\4>
      |
      <a-3\4> g4\rest g8\rest
    }
  >>
  <<
    \relative c {
      | %% measure 9
      \pIX <fs'\3>4. \( g8 e fs

      | %% measure 10
      d4.\3 a8\3 \glissando a'\3 ( g ) \)

      | %% measure 11
      fs4. \( g8 e fs

      | %% measure 12
      d4.\3 a8\3 \glissando fs' ( g ) \)

      | %% measure 13
      \pXIII a4. \( b8 a gs

      | %% measure 14
      a4 <fs\3>8 \noBeam \pV <fs\2>4 e8 \noBeam \)

      | %% measure 15
      \once \override Staff.PhrasingSlur.extra-offset = #'(0 . 1)
      \pII d4. \( cs8 d e\2

      | %% measure 16
      \pOff d2. \)
    } \\ \relative c {
      <d-0>2.\4 d2.\4
      d2.\4 d2.\4
      d2.\4
      d4.\4 g4.\3
      a4. a8 r8 r8
      d,2.
    }
  >>
  <<
    \relative c {
      | %% measure 17
      \fingerRight
      <a'' d-2 fs>4. ^\markup \barnum #"XIV" #"3"
      <b-2 d g>8 ^\markup \barnum #"XV" #"3"
      \( <a d-2 fs> ^\markup \barnum #"XIV" #"3"
         <gs d'-3 f> ^\markup \barnum #"XIII" #"3" \)

      | %% measure 18
      <a d-2 fs>4. ^\markup \barnum #"XIV" #"3"
      \barre "X" "3"
      <fs-2 a-1 d-1>8 \startTextSpan
      \( <g-3 a-\tweak extra-offset #'(0 . 0.5)-1 e'-4> \stopTextSpan
         <gs-1 d'-3 es-\tweak extra-offset #'(0 . 0.5)-1>
         ^\markup \barnum #"XIII" #"3" \)

      | %% measure 19
      <a d-2 fs>4. ^\markup \barnum #"XIV" #"3"
      <b d g>8 \( <a d fs> <gs d' f> \)

      | %% measure 20
      <a d fs>4. <fs a d>
    } \\ \relative c {
      d4.\4 \f d8\4 d\4 d\4
      d4.\4 d8\4 d\4 d\4
      d4.\4 d8\4 d\4 d\4
      d4.\4 d4.\4
    }
  >>
  <<
    \relative c {
      | %% measure 21
      \fingerRight \stringUp
      <fs'-3\3 a-2\2>4. \( <g-3 b-4>8\3\2 <fs-3 a-2>\3\2 <es gs>\3\2 \)

      | %% measure 22
      <fs-3 a-2>4.\3\2 <d-3 fs-4>8\3\2 \( <cs-3 e-2>\3\2 <b-3 d-2>\3\2 \)
    } \\ \relative c {
      d4.\4 d8\4 d\4 d\4
      d4.\4 d8\4 d\4 d\4
    }
  >>
  <<
    \relative c {
      | %% measure 23
      \pOff \fingerRight <a fs' a d>4.\5\4\3\2 <a e' g cs>8
      \( <a e' g d'> <a e' g e'>\5\4\3\2 \)

      | %% measure 24
      \barre "II" "" <d fs a d>8
      \startTextSpan q q q4 _\markup \italic "Fine." \stopTextSpan
      r8 \bar ".|:-||"
    }
  >>
}

partAShared = \relative c {
  | %% measure 25, 29
  \fingerLeft
  \pVI <b-1>16 \f \trill
  \( \glissando \fingerNeutral <as-1> ( <b-2> ) \)
  <cs-3> -. <d-4> -. <cs-3> -.
  b \trill \( \glissando as ( b ) \) cs -. d -. cs -.

  | %% measure 26, 30
  b \trill \( \glissando as ( b ) \) cs -. d -. e -.
  \pVIII fs \trill \( \glissando es ( fs ) \) gs -. as -. fs -.

  | %% measure 27, 31
  b \trill \( \glissando as ( b ) \) cs d e
  fs \trill \( \glissando es ( fs ) \)
}

partA = \relative c {
  \partAShared
  d''\2 cs\2 b\2

  | %% measure 28
  \pXIV <as-2\3>
  \( <cs-1> ^\markup \small \italic "(hinge)" <fs-1> \)
  <as-4> <cs,-1\2> <fs-4\2>
  \stringUp \fingerRight <fs,,-1\6 fs'-3\4>8 q q

  \override Score.Fingering.stencil = ##f
  \partAShared
  \revert Score.Fingering.stencil

  %% measure 31 (tail)
  e''16\1 cs\1 as\2

  | %% measure 32
  \pXI b \trill \( \glissando as ( b ) \) <d-2\2> <fs-1\1> <b-4>
  \stringUp \fingerRight \pXIV <b,,-1\5 b'-3\3>8 q q
}

partB = \relative c {
  | %% measure 33/1
  \pIV a''16 \trill \( \glissando gs ( a ) \) fs ds b
  a fs ds b fs' a

  | %% measure 34/2
  \fingerDown
  g \trill \( \glissando fs ( g ) \) <e-4\5> <g-2\4> <b-1\3>
  \pIX <e e'>8 -. q -. q -.

  | %% measure 35/3
  \pII g16 \trill \( \glissando fs ( g ) \) e cs a
  g e cs a e' g

  | %% measure 36/4
  fs \trill \( \glissando e ( <fs-3> ) \) <d-4\5> <fs-3\4> <a-1\3>
  \pVII <d d'>8 -. q -. q -.

  | %% measure 37/5
  \pX b'16 \trill \( \glissando as ( b ) \) g, -. g'' -. b, -.
  \pIX a \trill \( \glissando gs ( a ) \) fs, -. fs'' -. a, -.

  | %% measure 38/6
  \fingerRight
  \pVII g! \trill \( \glissando fs ( g ) \) e, e'' g,
  \pV fs \trill \( \glissando e ( <fs-3> ) \) d, d'' fs,
  \fingerNeutral

  | %% measure 39/7
  \pIII e \trill \( \glissando ds ( e ) \) g,, <g''-4\2> <fs-3>
  e \trill \( \glissando ds ( e ) \) gs,, <e''-2\2> <d\3>

  | %% measure 40/8
  \pIV cs16 \trill \( \glissando b ( <cs-3> ) \) <a,-0>\5 \pIX <cs\6> e
  \pXII <a' a'>8 -. \p \( q -. q -. \)

  | %% measure 41/9
  \pVI d,16 \f \trill \( \glissando cs ( <d-3> ) \) <bf,_2\6> <d\5> f\5
  \pXII <gs' gs'>8 -. \p \( q -. q -. \)

  | %% measure 42/10
  \pIV cs,16 \f \trill \( \glissando b ( cs ) \) a,\5 \pIX cs e
  \pXII <a' a'>8 -. \p \( q -. q -. \)

  | %% measure 43/11
  \pVI d,16 \f \trill \( \glissando cs ( d ) \) bf,\6 d\5 f\5
  \pXII <gs' gs'>8 -. \p \( q -. q -. \)

  | %% measure 44/12
  \pIX cs,16 \p \trill \( \glissando b ( cs ) \) \pVII a e cs
  \pVI a' \trill \( \glissando gs ( a ) \) \pVII e cs <a-0>\5

  | %% measure 45/13
  \pIX cs' \trill \( \glissando b ( cs ) \) \pVII a e cs
  \pVI a' _\markup \italic "cresc." \trill
  \( \glissando gs ( a ) \) \pVII e cs <a-0>\5

  | %% measure 46/14
  \pVI <bf\6 bf'\4>8 \f q q \pV <d\5 d'\3> q q

  | %% measure 47/15
  \fingerUp
  \pVIII <f f'> q q <bf\4 bf'\2>
  \pVII <f'-4\3>16 \p <d-1> <bf-3> <a-2>

  | %% measure 48/16
  \fingerNeutral
  <gs-1>16\4 ( b ) <d\3> -. \( f -. \)
  <a,-1\4> ( <cs-4>\4 ) <e-2\3> -. \( <a-3\2> -. \)
  <e-3\3> -. <c-4\4> -. <a-1> -. <g-4\5> -.

  | %% measure 49/17
  \barre "VII" "" <fs!-3> \startTextSpan
  \( a \) d -. \( fs -. \) \stopTextSpan
  <g,-4> \( <b-3> \) <d-1> -. \( <g-2> -. \)
  \pIII <d-4\3> -. <b-1> -. <g-3\4> -. <fs-2> -.

  | %% measure 50/18
  \fingerDown
  <es-1> \( <gs-4> \) <b-2> -. \( <d-1> -. \)
  \barre "II" "" fs, \startTextSpan
  \( as \) cs -. \( fs -. \)
  e, \( as \) cs -. \( fs -. \) \stopTextSpan

  | %% measure 51/19
  \pIII <d,-4> \( fs \) b -. \( <d-1> -. \)
  \pOff e, \( <g-0> \) <b-0> -. \( <e-0> -. \)
  <es,-3> \( <gs-1> \) <b-0> -. \( <d-4> -. \)

  | %% measure 52/20
  \fingerUp
  \pII <fs,-3> \( <b-4> \) <d-2> -- <fs-1> -- b8 -.
  \barre "II" "" <fs,>16 \startTextSpan
  \( as \) cs -- fs -- \stopTextSpan as8 -.

  | %% measure 53/21
  \pVI r4 r8
  b,,16 \f \trill \( \glissando as ( b ) \) cs -. d -. cs -.

  | %% measure 54/22
  b \trill \( \glissando as ( b ) \) cs -. d -. e -.
  \pVIII fs \trill \( \glissando es ( fs ) \) gs -. as -. fs -.

  | %% measure 55/23
  b \trill \( \glissando as ( b ) \) cs -. d -. e -.
  \pIX fs \trill \( \glissando es ( fs ) \) gs -. as -. fs -.

  | %% measure 56/24
  \pX b \trill \( \glissando as ( b ) \) cs \( d \) e
  <fs, fs'>8 q q

  | %% measure 57/25
  <b, b'>\4\2
  \pOff b,4\6 _\markup \italic "D. C. al Fine."
  r4 r8
}

music = {
  \key d \major
  \time 6/8
  \intro
  \pageBreak
  \repeat volta 2 { \partA }
  \break
  \repeat volta 2 { \partB }
}

\header {
  title = "Caprice 20, 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 = #116/4
    }
    \context {
      \Voice
      \remove "Dynamic_performer"
    }
  }
}

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