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

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

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

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

triplets = {
  \stringUp \fingerDown
  \override TupletNumber.transparent = ##t
  \override TupletBracket.transparent = ##t
}

intro = {
  \key e \major

  %% measure 1
  \relative c {
    \set Score.measureLength = #1/4
    <e-2>32 \(
    \fretboard #"x;x;2-2;1-1;o;o;"
    <gs-1> <b-0> <e-0> \) e [ \( b gs e \) ]
    \set Score.measureLength = #2/4
  }

  | %% measure 2
  \relative c {
    \barre "IV" "5" <ds-3> \startTextSpan \(
    \fretboard #"x;6-3;4-1;4-1;7-4;x;"
    fs b <fs'-4> \) fs [ \( b, fs ds \) ] \stopTextSpan

    \pOff e _\markup \small { \italic "simile" }
    \fretboard #"x;x;2-2;1-1;o;o;"
    gs b e e [ b gs e ]
  }
  \break

  | %% measure 3
  \relative c {
    \barre "IV" "5" <b-4> \startTextSpan
    \fretboard #"7-4;6-3;4-1;4-1;x;x;"
    <ds-3> fs b b [ fs ds b ] \stopTextSpan

    \fretboard #"x;x;2-2;1-1;o;o;"
    \pOff e32 gs b e e [ b gs e ]
  }

  | %% measure 4
  \relative c {
    \barre "IV" "5" ds \startTextSpan
    \fretboard #"x;6-3;4-1;4-1;7-4;x;"
    fs b fs' fs [ b, fs ds ] \stopTextSpan

    \fretboard #"x;x;2-2;1-1;o;o;"
    \pOff e gs b e e [ b gs e ]
  }
  \break

  | %% measure 5
  \relative c {
    \barre "IV" "4" fs \startTextSpan
    \fretboard #"x;x;4-1;4-1;4-1;7-4;"
    b ds <b'-4> b [ ds, b fs ]

    \fretboard #"x;x;6-3;4-1;5-2;4-1;"
    <gs-3>32 b <e-2> gs gs [ e b gs ] \stopTextSpan
  }

  | %% measure 6
  \relative c {
    \barre "V" "2" a' \startTextSpan
    \fretboard #"x;x;7-3;6-2;5-1;5-1;"
    cs e a \stopTextSpan cs16 ^. [ e ^. ]

    \barre "VI" "3" as,,32 \startTextSpan
    \fretboard #"x;x;8-3;6-1;7-2;6-1;"
    cs fs as as [ fs cs as ] \stopTextSpan
  }
  \break

  | %% measure 7
  \relative c {
    \barre "VII" "2" b' \startTextSpan
    \fretboard #"x;x;9-3;8-2;7-1;7-1;"
    ds fs b \stopTextSpan ds16 ^. [ fs ^. ]

    \stringDown
    \barre "IV" "5" <ds,,-3\5>32 \startTextSpan
    \fretboard #"x;6-3;4-1;4-1;4-1;x;"
    fs b ds ds [ b fs ds ]
  }

  | %% measure 8
  \relative c {
    \stringDown <e-4\5>
    \fretboard #"x;7-4;6-3;4-1;5-2;x;"
    <gs-3> b <e-2> e [ b gs e ] \stopTextSpan

    \barre "VII" "4" <fs-3> \startTextSpan
    \fretboard #"x;x;4-2;4-3;4-4;2-1;"
    <b-4> <ds-2> fs fs [ ds b fs ] \stopTextSpan
  }

  | %% measure 9
  \relative c {
    \barre "IX" "4" <gs'-3> \startTextSpan
    \fretboard #"x;x;6-3;4-1;5-2;4-1;x;"
    b e gs gs [ e b gs ] \stopTextSpan

    \barre "IV" "2" <a-3>32 \startTextSpan
    \fretboard #"x;x;7-3;6-2;5-1;5-1;x;"
    <cs-2> e a a [ e cs a ] \stopTextSpan
  }

  | %% measure 10
  \relative c {
    \pVIII <as'-3> \fretboard #"x;x;8-1;9-3;8-2;9-4;"
    <e'-1> <g-4> <cs-2> cs [ g e as, ]

    \pXI cs \fretboard #"x;x;11-1;12-3;11-2;12-4;"
    g' as e' e [ as, g cs, ]
  }

  | %% measure 11
  \relative c {
    \pVIII as'32 \fretboard #"x;x;8-1;9-3;8-2;9-4;"
    e' g cs cs [ g e as, ]

    \pV <g-2\5>
    \fretboard #"x;x;5-1;6-3;5-2;6-4;"
    <cs-3> <e-1> <as-4> as [ e cs g ]
  }

  | %% measure 12
  \relative c {
    \pVI e32
    \fretboard #"x;7-2;8-3;6-1;8-4;x;"
    as cs g' g [ cs, as e ]

    \pIII cs
    \fretboard #"x;4-2;5-3;3-1;5-4;x;"
    g' as e' e [ as, g cs, ]
  }

  | %% measure 13
  \relative c {
    \barre "IV" "5" <b-4\6>32 \startTextSpan
    \fretboard #"7-4;6-3;4-1;4-1;x;x;"
    <ds-3> fs b <ds>16 ^. [ <fs-4> ^. ]

    <a,,-2>32
    \fretboard #"5-2;6-3;4-1;4-1;x;x;"
    <ds-3> fs b b [ fs ds a ] \stopTextSpan
  }

  | %% measure 14
  \relative c {
    \barre "IV" "" gs32 \startTextSpan
    \fretboard #"4-1;7-4;6-3;4-1;x;x;"
    <e'-4> <gs-3> b \stopTextSpan
    \stringDown
    \harmonicByFret #12 <b\2>16 ^\markup \hFret "XII"
    [ \harmonicByFret #12 <e,\1> ] ^\markup \hFret "XII"

    \barre "VII" "4" a,,32 \startTextSpan
    \fretboard #"x;x;7-1;8-2;7-1;7-1;"
    <ds-2> fs b b [ fs ds a ] \stopTextSpan
  }
  \break

  | %% measure 15
  \relative c {
    \pIV \barre "IV" "3" <gs'-3>32 \startTextSpan
    \fretboard #"x;x;6-3;4-1;5-2;4-1;"
    b <e-2> gs \stopTextSpan
    \stringDown
    \harmonicByFret #5 <b,\2>16 ^\markup \hFret "V"
    [ \harmonicByFret #5 <e,,\1> ^\markup \hFret "V" ]

    \barre "V" "" a,,,,16 \startTextSpan ^.
    \( [
      \fretboard #"5-1;7-3;7-4;6-2;5-1;5-1;"
      <a' cs e a> ^. ] \) \stopTextSpan

    \barre "VII" "" b, \startTextSpan ^.
    [ \(
      \fretboard #"7-1;7-1;9-3;9-2;9-1;7-1;"
      <b' e gs b> ^. \) ] \stopTextSpan
  }

  | %% measure 16
  \relative c {
    \barre "IX" "" cs \startTextSpan ^.
    [ \(
      \fretboard #"9-1;12-4;11-3;9-1;10-2;9-1;"
      <cs' e a cs> ^. \) ] \stopTextSpan

    \barre "VIII" "" c, \startTextSpan ^.
    [ \(
      \fretboard #"8-1;10-3;8-1;9-2;8-1;8-1;"
      <as' e' g c> ^. \) ] \stopTextSpan

    \barre "VII" "" b, \startTextSpan ^.
    [ \(
      \fretboard #"7-1;7-1;9-3;9-2;9-1;7-1;"
      <b' e gs b> ^. \) ]

    b, ^.
    [ \(
      \fretboard #"7-1;9-3;7-1;8-2;7-1;7-1;"
      <b'' fs ds b> ^. \) ] \stopTextSpan
  }
}

eMinor = {
  | %% measure 17
  \relative c {
    \key e \major
    \fingerRight \barre "IX" "4"
    e,8\6 \startTextSpan [ \(
      \fretboard #"o;11-3;9-1;9-1;9-1;12-4;"
      <gs'-3 b e gs e'-4> ^. \) ] \stopTextSpan

    \key e \minor
    \pOff <e-2>32
    \fretboard #"x;x;2-1;o;o;o;"
    <g-0> <b-0> <e-0> e [ b g e ]
  }

  | %% measure 18
  \relative c {
    \barre "IV" "5" <ds-3>32 \startTextSpan
    \fretboard #"x;6-3;4-1;4-1;7-4;x;"
    <fs-1> <b-1> <fs'-4> fs [ b, fs ds ] \stopTextSpan

    \pOff e
    \fretboard #"x;x;2-1;o;o;o;"
    g b e e [ b g e ]
  }
  \break

  | %% measure 19
  \relative c {
    \barre "IV" "" <b-4> \startTextSpan
    \fretboard #"7-4;6-3;4-1;4-1;x;x;"
    <ds-3> fs b b [ fs ds b ] \stopTextSpan

    \pOff e
    \fretboard #"x;x;2-1;o;o;o;"
    g b e e [ b g e ]
  }

  | %% measure 20
  \relative c {
    \barre "IV" "5" ds32 \startTextSpan
    \fretboard #"x;6-3;4-1;4-1;7-4;x;"
    fs b fs' fs [ b, fs ds ] \stopTextSpan

    \pOff \fretboard #"x;x;2-1;o;o;o;"
    e g b e e [ b g e ]
  }
  \break

  | %% measure 21
  \relative c {
    \barre "VII" "4"
    b'32 \startTextSpan
    \fretboard #"x;x;7-3;6-2;5-1;5-1;"
    ds fs b b [ fs ds b ]

    b
    \fretboard #"x;x;7-3;5-1;5-1;5-1;"
    d fs b b [ fs d b ]
  }

  | %% measure 22
  \relative c {
    a'32
    \fretboard #"x;x;7-1;7-1;7-1;8-2;"
    d fs <c'-2> c [ fs, d a ] \stopTextSpan

    \pV <a-2\4>
    \fretboard #"x;x;7-2;7-3;7-4;5-1;"
    <d-3> <fs-4> <a-1> a [ fs d a ]
  }
  \break

  | %% measure 23
  \relative c {
    \barre "III" ""
    g32 \startTextSpan
    \fretboard #"3-1;5-3;5-4;4-2;x;x;"
    d' g b b [ g d g, ]

    d'
    \fretboard #"x;5-3;5-4;4-2;3-1;x;"
    g b d d [ b g d ]
  }

  | %% measure 24
  \relative c {
    g'
    \fretboard #"x;x;5-4;4-2;3-1;3-1;"
    b d g g [ d b g ] \stopTextSpan

    b ^\markup \barnum #"VII" #"3"
    \fretboard #"x;x;9-3;7-1;8-2;7-1;"
    d g b b [ g d b ]
  }
  \break

  | %% measure 25
  \relative c {
    \fingerRight
    \barre "VIII" "2"
    c'32 \startTextSpan [
      \fretboard #"x;x;10-3;9-2;8-1;8-1;"
      e g c ] \stopTextSpan

    \fingerDown
    <cs,-2>16 \(
      \fretboard #"x;x;11-2;12-3;10-1;12-4;"
      \fingerRight
      <g'-3 a-\tweak extra-offset #'(0 . 0.6)-1 e'-4> \)

    \barre "X" "2"
    d32 \startTextSpan [
      \fretboard #"x;x;12-3;11-2;10-1;10-1;"
      fs a d ] \stopTextSpan

    \fingerDown
    <ds,-2>16 \(
      \fingerRight
      \fretboard #"x;x;13-2;14-3;12-1;14-4;"
      <a'-3 b-\tweak extra-offset #'(0 . 0.6)-1 fs'-4> \)
  }

  | %% measure 26
  \relative c {
    \pOff <e-2>32 [
      \fretboard #"x;x;2-1;o;o;o;"
      <g-0> <b-0> <e-0> ]

    \barre "II" "3"
    fs,16 \startTextSpan \(
      \fretboard #"x;x;4-3;2-1;3-2;2-1;"
      <a d fs> \) \stopTextSpan

    \barre "III" "2"
    g \startTextSpan [ \(
      \fretboard #"x;x;5-3;4-2;3-1;3-1;"
      <b d g> \) ] \stopTextSpan

    \pV <a-2\4> \(
      \fretboard #"x;x;7-2;7-3;7-4;5-1;"
      <d-3 fs-4 a-1> \)
  }

  | %% measure 27
  \relative c {
    \break
    \barre "VII" "3"
    <b'-3>16 \startTextSpan \(
      \fretboard #"x;x;9-3;7-1;8-2;7-1;"
      <d g-2 b> \) \stopTextSpan

    \barre "VIII" "2"
    <c-3> \startTextSpan \(
      \fretboard #"x;x;10-3;9-2;8-1;8-1;"
      <e-2 g c> \) \stopTextSpan

    \pXI <cs-2\4>32 [
      \fretboard #"x;x;11-1;12-3;11-2;12-4;"
      <g'-1> <as-3> <e'-4> ]
    <g-4>16 <cs,,-1\4>
  }
}

firstRun = \relative c {
  \tuplet 3/2 { <g''-2 b-1>\2\1 [ <fs-3\3 a-2\2> <e-3 g-2>\3\2 ] }
  \tuplet 3/2 { \arpeggioBracket <d-1 fs-1>\3\2 \arpeggio
               [ <c-3\4 e-2\3> <b-3 d-1>\4\3 ] }
  \tuplet 3/2 { <a-3 c-1>\4\3 [ <g-0 b-0>\3\2 <fs-3\4 a-1\3> ] }
}

firstFullRun = \relative c {
  \tuplet 3/2 { <g'-0 b-0>16\3\2 [ <b'-3\2 d-1\1> <a-3 c-1> ] }
  \firstRun
}

stops = {
  \key e \minor
  | %% measure 28
  \relative c {
    \triplets
    \tuplet 3/2 { <d'-2\4>16 [ <b'-3\2 d-1\1> <a-3 c-1>\2\1 ] }
    \firstRun
  }
  \break

  | %% measure 29
  \relative c {
    \fingerRight \barre "III" "2"
    g'32 \startTextSpan
    \fretboard  #"x;x;5-3;4-2;3-1;3-1;"
    b d g g [ d b g ] \stopTextSpan
    \pII <g-3>
    \fretboard #"x;x;5-3;5-4;4-2;2-1;"
    <c-4> <ef-2> <fs-1> fs [ ef c g ]
  }

  | %% measure 30
  \relative c {
    \triplets
    \firstFullRun
  }
  \break

  | %% measure 31
  \relative c {
    \barre "III" "2"
    g'32 \startTextSpan b d g g [ d b g ] \stopTextSpan
    g c ef fs fs [ ef c g ]
  }

  | %% measure 32
  \relative c {
    \triplets
    \firstFullRun
  }
  \break

  \relative c {
    | %% measure 33
    \barre "III" "3"
    g'32 \startTextSpan
    \fretboard #"x;x;5-4;4-3;3-1;3-1;"
    b d g g [ d b g ]
    g
    \fretboard #"x;x;5-4;3-1;3-1;3-1;"
    bf d g g [ d bf g ] \stopTextSpan
  }

  \relative c {
    | %% measure 34
    \triplets \pVIII
    \tuplet 3/2 { \arpeggioBracket <bf'-1 ds-1>16 \arpeggio
                 [ \pOff <bf'-4\2 df-2\1> <af-3 c-2> ] }
    \tuplet 3/2 { <g-3 bf-1> [ <g-3 bf-1> <f-3 af-1> ] }
    \tuplet 3/2 { <ef-2 g-1> [ <df-4\3 f-4\2> <c-2 ef-1> ] }
    \tuplet 3/2 { <bf-2 df-1>\3\2 [ <af-3\4 c-2\3> <g-3 bf-1> ] }
  }

  \relative c {
    | %% measure 35
    \barre "IV" "3"
    af'32 \startTextSpan c ef af af [ ef c af ]
    af b ef af af [ ef b af ] \stopTextSpan
  }

  \relative c {
    | %% measure 36
    \triplets \pIX
    \tuplet 3/2 { \arpeggioBracket <b'-1 e-1>16 \arpeggio
                 [ \pOff <b'-4\2 d-2\1> <a-3 cs-2> ] }
    \tuplet 3/2 { <gs-3 b-1> [ <gs-3 b-1> <fs-3 a-1> ] }
    \tuplet 3/2 { <e-2 gs-1> [ <d-4\3 fs-4\2> <cs-2 e-1>\3\2 ] }
    \tuplet 3/2 { <b-2 d-1>\3\2 [ <a-3\4 cs-2\3> <gs-3 b-1>\4\3 ] }
  }

  \relative c {
    | %% measure 37
    \barre "V" "3"
    a'32 \startTextSpan cs e a a [ e cs a ]
    a c e a a [ e c a ] \stopTextSpan
  }

  \relative c {
    | %% measure 38
    \triplets \pX
    \tuplet 3/2 { \arpeggioBracket <c'-1 f-1>16 \arpeggio
                 [ \pOff <c'-4\2 ef-2\1> <bf-3 d-2> ] }
    \tuplet 3/2 { <a-3 c-1> [ <a-3 c-1> <g-3 bf-1> ] }
    \tuplet 3/2 { <f-2 a-1> [ <ef-4\3 g-4\2> <d-2 f-1>\3\2 ] }
    \tuplet 3/2 { <c-2 ef-1>\3\2 [ <bf-3\4 d-2\3> <a-3 c-1>\4\3 ] }
  }
}

ascent = {
  \relative c {
    | %% measure 39
    \barre "VI" "3"
    bf'32 \startTextSpan
    \fretboard #"x;x;8-4;7-1;6-1;6-1;"
    d f bf bf [ f d bf ]

    bf
    \fretboard #"x;x;8-4;6-1;6-1;6-1;"
    df f bf bf [ f df bf ]

    | %% measure 40
    bf \fingerRight
    \fretboard #"x;x;8-4;6-1;7-2;6-1;"
    df gf bf bf [ gf df bf ] \stopTextSpan

    <as-2>
    \fretboard #"x;x;8-2;9-3;7-1;9-4;"
    <e'-3> <fs-1> <cs'-4> cs [ fs, e as, ]
  }

  \relative c {
    | %% measure 41
    \barre "VII" "3"
    b'32 \startTextSpan
    \fretboard #"x;x;9-4;8-1;7-1;7-1;"
    ds fs b b [ fs ds b ]

    b
    \fretboard #"x;x;9-4;7-1;7-1;7-1;"
    d fs b b [ fs d b ]

    | %% measure 42
    b
    \fretboard #"x;x;9-4;7-1;8-2;7-1;"
    d g b b [ g d b ] \stopTextSpan

    <b-2>
    \fretboard #"x;x;9-2;10-3;8-1;10-4;"
    <f'-3> <g-1> <d'-4> d [ g, f b, ]
  }

  \relative c {
    | %% measure 43
    \barre "VIII" "3"
    c'32 \startTextSpan
    \fretboard #"x;x;10-4;9-1;8-1;8-1;"
    e g c c [ g e c ]

    c
    \fretboard #"x;x;10-4;8-1;8-1;8-1;"
    ef g c c [ g ef c ]

    | %% measure 44
    c
    \fretboard #"x;x;10-4;8-1;9-2;8-1;"
    ef af c c [ af ef c ] \stopTextSpan

    <c-2>
    \fretboard #"x;x;10-2;11-3;9-1;11-4;"
    <gf'-3> <af-1> <ef'-4> ef [ af, gf c, ]
  }
}

lowTheme = {
  \key e \minor
  | %% measure 45
  \relative c {
    r4
    \pIII <df-2>32
    \fretboard #"x;4-2;3-1;5-4;5-4;x;"
    <f-1> <df'-4> <f-4> f [ df f, df ]
  }

  | %% measure 46
  \relative c {
    <c-1>
    \fretboard #"x;3-1;6-2;5-2;7-4;x;"
    <af'-3> <c-2> <gf'-4> gf [ c, af c, ]

    <df-2>
    \fretboard #"x;4-2;3-1;5-4;5-4;x;"
    <f-1> <df'-4> <f-4> f [ df f, df ]
  }
  \break

  | %% measure 47
  \relative c {
    \barre "IV" "2"
    <af'-3> \startTextSpan
    \fretboard #"x;x;6-3;5-2;4-1;4-1;"
    <c-2> ef af af [ ef c af ] \stopTextSpan

    <cs,-1>
    \fretboard #"x;4-1;6-3;6-4;5-2;x;"
    <gs'-3> <cs-4> <e-2> e [ cs gs cs, ]
  }

  | %% measure 48
  \relative c {
    <bs-1\5>
    \fretboard #"x;3-1;6-2;5-2;7-4;x;"
    <gs'-3> <bs-2> <fs'-4> fs [ bs, gs bs, ]

    cs
    \fretboard #"x;4-1;6-3;6-4;5-2;x;"
    gs' cs e e [ cs gs cs, ]
  }
  \break

  | %% measure 49
  \relative c {
    \barre "IV" "2"
    <gs'-3> \startTextSpan
    \fretboard #"x;x;6-3;5-2;4-1;4-1;"
    <bs-2> ds gs gs [ ds bs gs ] \stopTextSpan

    \barre "IX" "3"
    <cs-3> \startTextSpan
    \fretboard #"x;x;11-3;9-1;9-1;12-4;"
    e gs <e'-4> e [ gs, e cs ]
  }

  | %% measure 50
  \relative c {
    b'
    \fretboard #"x;x;9-1;9-1;9-1;10-2;"
    e gs <d'-2> d [ gs, e b ] \stopTextSpan

    \barre "V" "2"
    <a-3> \startTextSpan
    \fretboard #"x;x;7-3;6-2;5-1;5-1;"
    <cs-2> e a a [ e cs a ] \stopTextSpan
  }
  \break

  | %% measure 51
  \relative c {
    \pVIII <as'-1>
    \fretboard #"x;x;8-1;9-3;8-2;9-4;"
    <e'-3> <g-2> <cs-4> cs [ g e as, ]

    <b-2>16 ^. \( [
      \fretboard #"x;x;9-2;9-3;9-4;7-1;"
      <e-3 gs-4 b-1> ] ^. \)

    \barre "V" "2"
    a,16 ^. \startTextSpan \( [
      \fretboard #"x;x;7-3;6-2;5-1;5-1;"
      <cs e a> ] ^. \) \stopTextSpan
  }

  | %% measure 52
  \relative c {
    \barre "IV" "3"
    gs' ^. \startTextSpan \( [
      \fretboard #"x;x;6-3;4-1;5-2;4-1;"
      <b e gs> ] ^. \) \stopTextSpan

    \barre "V" "2"
    a ^. \startTextSpan \( [
      \fretboard #"x;x;7-3;6-2;5-1;5-1;"
      <cs e a> ] ^. \) \stopTextSpan

    b ^. \( [
      \fretboard #"x;x;9-2;9-3;9-4;7-1;"
      <e gs b> ] ^. \)

    \barre "VII" "2"
    b ^. \startTextSpan \( [
      \fretboard #"x;x;9-3;8-2;7-1;7-1;"
      <ds fs b> ] ^. \) \stopTextSpan
  }
  \break

  | %% measure 53-a
  \relative c {
    \key e \major
    \barre "XII" "2"
    e,8\6 \startTextSpan \( [
      \fretboard #"o;x;14-3;13-2;12-1;12-1;"
      <e''-3 gs-2 b e> ] \) \stopTextSpan
  }
  %% no bar check here
}

highE = {
  \fingerRight \barre "XII" "2"
  <e'-3>32 \startTextSpan
  \fretboard #"x;x;14-3;13-2;12-1;12-1;"
  <gs-2> b e <gs-4> [
    \fretboard #"x;x;14-3;13-2;12-1;16-4;"
    b, gs e ] \stopTextSpan
}

highA = {
  \fingerRight <e-3>32
  \fretboard #"x;x;14-3;14-4;13-2;12-1;"
  <a-4> <c-2> <e-1> \pXIV <a-4> [
    \fretboard #"x;x;14-1;17-4;17-4;17-4;"
    <e-4> <c-4> <e,-1> ]
}

lowE = {
  \stemDown
  \pOff <e-2\4>32
  \fretboard #"x;x;2-2;1-1;o;o;"
  <gs-1> <b-0> <e-0> <gs-4> [
    \fretboard #"x;x;2-2;1-1;o;4-4;"
    <b,-0> <gs-1> <e-2> ]
}

lowA = {
  \stemDown
  <e-2>
  \fretboard #"x;x;2-2;2-3;1-1;o;"
  <a-3> <c-1> <e-0>
  \pII <a-4> [
    \fretboard #"x;x;2-1;5-4;5-4;5-4;"
    <e-4> <c-4> <e,-1> ]
}

moreStops = {
  %% measure 53-b
  \relative c {
    \pOff <e-2\4>32
    \fretboard #"x;x;2-2;1-1;o;o;"
    <gs-1> <b-0> <e-0> e [ b gs e ]
  }

  | %% measure 54
  \relative c {
    <e-2>32
    \fretboard #"x;x;2-2;2-3;1-1;o;"
    <a-3> <c-1> <e-0> e [ c a e ]

    <e-2>
    \fretboard #"x;x;2-2;3-4;2-3;o;"
    <as-4> <cs-3> <e-0> e [ cs as e ]
  }
  \break

  | %% measure 55
  \relative c {
    <e-1>32 [
      \fretboard #"x;x;2-2;1-1;o;o;"
      <gs-2> <b-0> <e-0> ]
    \triplets \pIX
    \tuplet 3/2 { <gs-3\3 b-2\2>16
                 [ <fs-3 a-2>
                   \barre "IX" "3" <e-1 gs-1> \startTextSpan ] }
    \tuplet 3/2 { <a-2\2 cs-1\1> \stopTextSpan [ <gs-3\3 b-2\2> <fs-3 a-2> ] }
    \tuplet 3/2 { \arpeggioBracket <e-1 gs-1> \arpeggio
                 [ <ds-3\4 fs-1\3> <cs-3 e-1> ] }
  }

  | %% measure 56
  \relative c {
    \pVII <b'-2>32
    \fretboard #"x;x;9-2;9-3;9-4;7-1;"
    <e-3> <gs-4> <b-1> b [ gs e b ]

    \barre "VII" "2"
    <b-3> \startTextSpan
    \fretboard #"x;x;9-3;8-2;7-1;7-1;"
    <ds-2> fs b b [ fs ds b ] \stopTextSpan
  }

  | %% measure 57
  \relative c {
    \barre "XII" "2"
    <e'-3>32 \startTextSpan [
      \fretboard #"o;x;14-3;13-2;12-1;12-1;"
      <gs-2> b e ] \stopTextSpan <gs-4>16 <e-1>16

    \pXII <e,-3\4>32
    \fretboard #"x;x;14-3;13-2;12-1;o;"
    <gs-2> <b-1> <e,-0>\1 e\1 [ b' gs e ]
  }

  | %% measure 58
  \relative c {
    <e'-3\4>32
    \fretboard #"x;x;14-3;14-4;13-2;o;"
    <a-4> <c-2> <e,-0>\1 e\1 [ c' a e ]

    \pXI <e-3>
    \fretboard #"x;x;14-3;12-2;11-1;o;"
    <g-2> <as-1> <e-0>\1 e\1 [ as g e ]
  }

  | %% measure 59
  \relative c {
    \pXII <e'-3>32
    \fretboard #"x;x;14-3;13-2;12-1;o;"
    <gs-2> <b-1> <e,-0>\1
    \triplets \pVI
    \tuplet 3/2 { <e,-2\5 gs-1\4>16 [ <fs-3 a-1> <gs-3 b-1> ] }
    \tuplet 3/2 { <a-2\4 cs-1\3>16 [ <b-2 ds-1> <cs-3 e-1> ] }
    \pVII \tuplet 3/2 { <ds-2\3 fs-1\2>16 [ <e-3 gs-4> <fs-3 a-2> ] }
  }

  | %% measure 60
  \relative c {
    \barre "IX" "4" b'32 \startTextSpan
    \fretboard #"x;x;9-1;9-1;9-1;12-4;"
    e gs <e'-4> e [ gs, e b ]

    b
    \fretboard #"x;x;9-1;11-3;10-2;11-4;"
    <fs'-3> <a-2> <ds-4> ds [ a fs b, ] \stopTextSpan
  }

  | %% measure 61
  \relative c {
    \highE
    \highA
  }

  | %% measure 62
  \relative c {
    \highE
    \highA
  }

  | %% measure 63
  \relative c {
    \highE

    \pXI <cs-1> [
      \fretboard #"x;x;11-1;12-3;11-2;12-4;"
      <g'-3> <as-2> <e'-4> ]
    \pVIII <cs,-4>16 as-1
  }

  | %% measure 64
  \relative c {
    \triplets
    \tuplet 3/2 { <b'-2\4> \pV <gs'-3\2 b-1\1> <fs-3 a-1>}
    \tuplet 3/2 { <e-3\3 gs-4\2> <ds-2 fs-1> <cs-2 e-1>}
    \tuplet 3/2 { <b-3\4 ds-2\3> <a-3 cs-2> \pIV <gs-3 b-1>}
    \tuplet 3/2 { <fs-4\5 a-2\4> <e-3 gs-2> <ds-3 fs-1>}
  }

  | %% measure 65
  \relative c {
    \lowE
    \lowA
  }

  | %% measure 66
  \relative c {
    \lowE
    \lowA
  }

  | %% measure 67
  \relative c {
    \lowE

    \barre "III" "3"
    <cs-2>32 \startTextSpan [
      \fretboard #"x;4-2;5-3;3-1;5-4;3-1;"
      <g'-3> <as-1> <e'-4> ]

    g16 e \stopTextSpan
  }

  | %% measure 68
  \relative c {
    \triplets \pOff
    \tuplet 3/2 { <b-2\5> [ <b'-0 e-0> <gs-1 b-0> ] } \pVI
    \tuplet 3/2 { <b'-4> [ <b,,-2\6 ds-1\5> <cs-3 e-1> ] }
    \tuplet 3/2 { <ds-3 fs-1> [ <e-2\5 gs-1\4> <fs-3 a-1> ] }
    \tuplet 3/2 { <gs-3 b-1> [ <a-2\4 cs-1\3> <b-2 ds-1> ] }
  }
}

finale = {
  | %% measure 69
  \relative c {
    \pXII <e'-3\4>32
    \fretboard #"x;x;14-3;13-2;12-1;o;"
    <gs-2> <b-1> <e,-0>\1 e\1 [ b' gs e ]

    <e-3\4>32
    \fretboard #"x;x;14-3;14-4;13-2;o;"
    <a-4> <c-2> <e,-0>\1 e\1 [ c' a e ]
  }

  | %% measure 70
  \relative c {
    \fingerRight <e'-3\4>32
    \fretboard #"x;x;14-3;13-2;12-1;o;"
    <gs-2> <b-1> <e,-0>\1 <e>\1 [ b' gs e ]

    \pXI <ds-3>
    \fretboard #"x;x;13-3;11-1;12-2;o;"
    <fs-1> <b-2> <e,-0>\1 <e>\1 [ b' fs ds ]
  }

  | %% measure 71
  \relative c {
    \fingerRight \pIX <cs'-3>
    \fretboard #"x;x;11-3;9-1;10-2;o;"
    <e-1> <a-2> <e-0>\1 <e>\1 [ a e cs ]

    \pVIII <b-3>
    \fretboard #"x;x;9-3;8-2;9-4;o;"
    <ds-2> <gs-4> <e-0>\1 <e>\1 [ gs ds b ]
  }

  | %% measure 72
  \relative c {
    \fingerRight \pVI <a'-3>
    \fretboard #"x;x;7-3;6-2;7-4;o;"
    <cs-2> <fs-4> <e-0>\1 <e>\1 [ fs cs a ]

    \pII <fs-3>
    \fretboard #"x;x;4-3;2-1;4-4;o;"
    <a-1> <ds-4> <e-0>\1 <e>\1 [ ds a fs ]
  }

  | %% measure 73
  \relative c {
    \fingerRight \pOff <e-2>
    \fretboard #"x;x;2-2;1-1;o;o;"
    <gs-1> <b-0> <e-0> e [ b gs e ]

    <f-2>
    \fretboard #"x;x;3-2;2-1;4-4;o;"
    <a-1> <ds-4> <e-0> e [ ds a f ]
  }

  | %% measure 74
  \relative c {
    e
    \fretboard #"x;x;2-2;1-1;o;o;"
    gs b e e [ b gs e ]

    f
    \fretboard #"x;x;3-2;2-1;4-4;o;"
    a ds e e [ ds a f ]
  }

  | %% measure 75
  \relative c {
    <e-2>16
    \fretboard #"x;x;2-2;1-1;o;o;"
    <gs-1 b-0 e-0> r8

    \barre "IV" "5"
    <e-4\5>16 \startTextSpan
    \fretboard #"x;7-4;6-3;4-1;5-2;4-1;"
    <gs-3 b e-2 gs> \stopTextSpan r8
  }

  | %% measure 76
  \override TupletNumber.transparent = ##f
  \override TupletBracket.transparent = ##f
  \relative c {
    \tuplet 5/4 {
      \barre "IV" "3"
      <e-4>32 \startTextSpan
      \fretboard #"x;7-4;6-3;4-1;5-2;x;"
      <gs-3> b <e-2> gs
    }
    \tuplet 5/4 {
      gs [ e b gs e ]
    }

    \tuplet 5/4 {
      e
      \fretboard #"x;7-4;6-3;4-1;5-2;x;"
      gs b e gs
    }
    \tuplet 5/4 {
      gs [ e b gs e ] \stopTextSpan
    }
  }

  <<
    | %% measure 77
    \relative c {
      \stemUp \fingerRight \pIV
      \moveFingering #'(-1.5 . 1.2) <e'-0>4\1
    }
    \\ \relative c {
      \stemDown
      \fingerRight <e,-0 e'-4 gs-3 b-2 e-1>4\6\5\4\3\2 \arpeggio
      a'4\rest ^\fermata
    }
    \\ {
      s16
      \fretboard #"o;7-4;6-3;4-1;5-2;o;"
    }
  >>
}

music = {
  \time 2/4
  \tempo "Andante."
  \fingerRight
  \intro
  \eMinor
  \stops
  \ascent
  \lowTheme
  \moreStops
  \finale
  \bar "|."
}

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

\paper {
   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
   max-systems-per-page = #5
}