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

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

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

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

intro = \relative c {
  \partial 16 a16
  | %% measure 1
  a1 \fermata

  | %% measure 2
  \appoggiatura { e'32 [ cs' ] } a'8
  r8 r4 r4 \fermata
  \bar "||"

  <e, cs'>8.\5\3
  ^\markup { \null \raise #1 { \large Amoroso. }}
  _\markup \italic "con espressione"
  \( <d b'>16\5\3 \)

  | %% measure 3
  <d b'>4\5\3 \( <cs a'>4.\5\3 \)
  <cs a'>8\5\3 \( <fs d'>\5\3 <e cs'>\5\3 \)

  | %% measure 4
  <cs as'>4\5\3 \( <d b'>2\5\3 \)
  \tuplet 3/2 { <e cs'>8\5\3 \( <d b'>\5\3 <cs a'>\5\3 \) }

  | %% measure 5
  <cs a'>4\5\3 \( <b gs'>4.\5\3 \)
  <fs' d'>8\5\3 \( <e cs'>\5\3 <d b'>\5\3 \)

  | %% measure 6
  <bs gs'>4\5\3 \( <cs a'>2\5\3 \)
  <e cs'>8.\5\3 \( <gs e'>16\5\3 \)

  | %% measure 7
  \phrasingSlurDown \slurDown
  <gs e'>4\5\3 \( ( <fs d'>8\5\3 [ ) r16 <fs d'>16\5\3 ] \)
  <fs d'>4\5\3 \( ( <e cs'>8\5\3 [ ) r16 <e cs'>16\5\3 ] \)
  \phrasingSlurNeutral \slurNeutral

  | %% measure 8
  <e cs'>8\5\3 -- <ds bs'>\5\3 -- <d b'>4.\5\3
  <b gs'>8\5\3 \( <e cs'>\5\3 <d b'>\5\3 \)

  | %% measure 9
  <cs a'>16\5\3 -- \( <d b'>\5\3 -- <e cs'>\5\3 -- <fs d'>\5\3 -- \)
  <gs e'>\5\3 -- \( <a fs'>\5\3 -- <b gs'>\5\3 -- \)
  <cs a'>\5\3 \( <e, gs>4 \)
  \afterGrace { <b fs'>4 \trill } { e16 [ fs ] }

  | %% measure 10
  \stemDown
  e,8 [
  %% From examining the manuscript I believe Paganini intended this
  %% 21-note run to last 3/8 == 24/64.  This makes it match the
  %% following chromatic run, which is 24 notes.
  \tupletsOff
  \tuplet 21/24 { fs64
                 \( gs <a-0>
                    \pVI b cs ds e fs gs a
                      <b-4> \glissando <cs-4>\4
                    \pVIII ds e fs gs a b cs ds e ] \) }
  \tupletsOn \stemNeutral \pOff
  \harmonicsOn e,,8\6 \harmonicsOff
  r8 <e' cs'>8.\3\1 [ \( <d b'>16\3\1 ] \)

  | %% measure 11
  <d b'>4\3\1 \( <cs a'>4.\3\1 \)
  <cs a'>8\3\1 \( <fs d'>\3\1 <e cs'>\3\1 \)

  | %% measure 12
  <cs as'>4\3\1 \( <d b'>2\3\1 \)
  \tuplet 3/2 { <e cs'>8\3\1 \( <d b'>\3\1 <cs a'>\3\1 \) }

  | %% measure 13
  <cs a'>4\3\1 \( <b gs'>4.\3\1 \)
  <fs' d'>8\3\1 \( <e cs'>\3\1 <d b'>\3\1 \)

  | %% measure 14
  <bs gs'>4\3\1 \( <cs a'>2\3\1 \)
  <e cs'>8.\3\1 \( [ <gs e'>16\3\1 ] \)

  | %% measure 15
  <gs e'>4\3\1 ( \( <fs d'>8\3\1 ) [ r16 <fs d'>16\3\1 ] \)
  <fs d'>4\3\1 ( \( <e cs'>8\3\1 ) [ r16 <e cs'>16\3\1 ] \)

  | %% measure 16
  <e cs'>8\3\1 -- <ds bs'>\3\1 -- <d b'>4.\3\1 ->\3\1
  <b gs'>8\3\1 \( <e cs'>\3\1 <d b'>\3\1 \)

  | %% measure 17
  <cs a'>16\3\1 -- \( <d b'>\3\1 -- <e cs'>\3\1 -- <fs d'>\3\1 -- \)
  <gs e'>\3\1 -- \( <a fs'>\3\1 -- <b gs'>\3\1 -- \)
  <cs a'>\3\1 \( <e, gs>4 \)
  \afterGrace { <b fs'> \trill \( } { e16 [ fs ] \) }

  | %% measure 18
  <e-0>8 [
  e'64 \( ds d cs
  \pX <c\2> b as a
  \pVI gs g fs f
  <e\3> ds d cs
  \pVII <c\4> b as a
  <gs\5> g fs f ]
  e8 \) \pOff
  r8 <e cs'>8.\5\3 \( <d b'>16\5\3 \)

  | %% measure 19
  <d b'>4\5\3 \( <cs as'>4.\5\3 \)
  <g' e'>16\5\3 \( [ <fs d'>\5\3 ]
  <fs d'>\5\3 [ <e cs'>\5\3 ]
  <e cs'>\5\3 [ <cs as'>\5\3 ] \)

  | %% measure 20
  \tuplet 3/2 { <cs as'>8\5\3 \( <e cs'>\5\3 <ds bs'>\5\3 \) }
  <d b'>4\5\3 ~ \(
  \tuplet 6/4 { <d b'>8\5\3 [ <fs d'>\5\3 \)
  <e cs'>\5\3 -- \( <ds bs'>\5\3 -- <d b'>\5\3 -- <cs a'>\5\3 -- ] \) }

  | %% measure 21
  <cs a'>4\5\3 <b gs'>4.\5\3
  \( <fs' d'>8\5\3 \) <e cs'>\5\3 <d b'>\5\3

  | %% measure 22
  \tuplet 3/2 { <d b'>8\5\3 \( <bs gs'>\5\3 <cs a'>\5\3 \) }
  <cs a'>2\5\3 <e cs'>8\5\3 \( <gs e'>\5\3 \)

  | %% measure 23
  <gs e'>8\5\3 \( <fs d'>16\5\3 \) r16
  <fs d'>8\5\3 \( <e cs'>16\5\3 \) r16
  <e cs'>8\5\3 \( <ds bs'>16\5\3 \) r16
  <ds bs'>8\5\3 \( <e cs'>16\5\3 \) r16

  | %% measure 24
  <e cs'>8\5\3 -- \( <ds bs'>\5\3 -- \) <d b'>4.\5\3 ->\5\3
  <bs gs'>8\5\3 \( <cs a'>\5\3 <cs es> \)

  | %% measure 25
  <d fs>16\5\4 -- \( <e gs>\5\4 -- <fs a>\5\4 -- <gs b>\5\4 --
  <a cs>\4\3 -- <b d>\4\3 -- <cs e>\4\3 -- \)
  <d fs>\4\3 \( <e, a>4 \)
  \afterGrace { <e gs>4 \( \trill } { fs16 [ \glissando gs\4 ] \) }

  | %% measure 26
  \stringDown
  \pV <a,\6>16 [ b64 \( cs <d\5> e
  fs <gs\4> a b
  \pVI <cs\3> d e <fs\2>
  gs a <b,-0>\2 \pXI <cs\4>
  d e <fs\3> gs
  a <b\2> cs d
  <e\1> <fs> <gs> <a> ] \)
   \stringNeutral \pOff
  a,,,8 r8 <e'' cs'>8.\3\1 \( <d b'>16\3\1 \)

  | %% measure 27
  <d b'>4\3\1 \( <cs as'>4.\3\1 \)
  <g' e'>16\3\1 \( [ <fs d'>\3\1 ]
  <fs d'>\3\1 [ <e cs'>\3\1 ]
  <e cs'>\3\1 [ <cs as'>\3\1 ] \)

  | %% measure 28
  \tuplet 3/2 { <cs as'>8\3\1 \( <e cs'>\3\1 <ds bs'>\3\1 \) }
  <d b'>4\3\1 ~ \(
  \tuplet 6/4 { <d b'>8\3\1 <fs d'>\3\1 \)
  <e cs'>\3\1 -- \( <ds bs'>\3\1 -- <d b'>\3\1 -- <cs a'>\3\1 -- \) }

  | %% measure 29
  <cs a'>4\3\1 <b gs'>4.\3\1 \( <fs' d'>8\3\1 \)
  <e cs'>\3\1 <d b'>\3\1

  | %% measure 30
  \tuplet 3/2 { <d b'>8\3\1 \( <bs gs'>\3\1 <cs a'>\3\1 \) }
  <cs a'>2\3\1 <e cs'>8\3\1 \( <gs e'>\3\1 \)

  | %% measure 31
  <gs e'>8\3\1 \( <fs d'>16\3\1 \) r16
  <fs d'>8\3\1 \( <e cs'>16\3\1 \) r16
  <e cs'>8\3\1 \( <ds bs'>16\3\1 \) r16
  <ds bs'>8\3\1 \( <e cs'>16\3\1 \) r16

  | %% measure 32
  <e cs'>8\3\1 -- \( <ds bs'>\3\1 -- \) <d b'>4.\3\1 ->\3\1
  <bs gs'>8\3\1 \( <cs a'>\3\1 \fingerDown <cs-3 es-2>\3\2 \)

  | %% measure 33
  \pOff
  \arpeggioBracket <d-1 fs-1>16\3\2 -- \arpeggio
  \( <e!-3 gs-4>\3\2 -- <fs-3 a-2>\3\2 -- <gs-3 b-2>\3\2 --
  <a-3 cs-4>\3\2 -- <b-2 d-1>\2\1 -- <cs-3 e-1>\2\1 -- \)
  <d-3 fs-2>\2\1 \( <e,-3 a-4>4 \)
  \afterGrace { <e gs> \trill \( } { fs16 [ gs ] \) }
}

presto = \relative c {
  | %% measure 34/1
  \kneeBeams \flatBeams \stringDown \fingerUp
  \pV <a\6>16 ^\markup { \null \raise #1 { \large Presto. }}
  [ \pVI <a''\2> \( -. gs -. fs -. ]
  \ankleBeams \revertBeams
  <e\3> -. d -. cs -.
  <b\4> -. a -. gs -.
  <fs\5> -. e -. d\5 -.
  <cs\6> -. b -. a\5 -. \)

  | %% measure 35/2
  \kneeBeams \flatBeams
  <cs-3\6> -. <cs''-4\1> -. \( <b-1> -. <a\2> -.
  \ankleBeams \revertBeams
  gs -. fs -. <e\3> -. d -.
  cs -. <b\4> -. a -. gs -.
  <fs\5> -. e -. d\5 -. <cs\6> -. \)

  | %% measure 36/3
  \kneeBeams \flatBeams
  <e\5> -. <e''-4> -. \( <d-2> -. <cs-1> -.
  \ankleBeams \revertBeams \stringDown
  <b-1> -. <a\2> -. gs -. fs -.
  <e\3> -. d -. cs -. <b\4> -.
  a -. gs -. <fs\5> -. e -. \)

  | %% measure 37/4
  \pOff
  <a\5>8 \pXIV a''16 -. _\markup \italic "restez" \( gs -.
  fs -. <e\2> -. d -. cs -.
  \pXII <b\3> -. a -. gs -. <fs\4> -.
  e -. d -. <cs\5> -. b -. \)

  | %% measure 38/5
  <a,-0>16\5 \( <cs-1\5> <e-4\5> \) \glissando <a-4>\5 -.
  \( \pIX cs -. e -. a -. cs -. \)
  \barre "IX" ""
  <gs,-3> \startTextSpan \( b e \) gs -. \stopTextSpan
  \( b -. \glissando e\2 -. gs -. b -. \) \pOff

  | %% measure 39/6
  <fs,,\6-2> \( <a\5-1> <ds\4-2> \) \glissando <fs-2>\4 -. \(
  <a-1\3> -. <ds-3\2> -. <fs-1> -. a -. \)
  \harmonicsOn <e,,>\6 \( \harmonicsOff
  \barre "IX" ""
  gs b \) e -. \(
  gs -. <b-3> -. \glissando <e-3>\2 -. <gs-2> -. \)

  | %% measure 40/7
  \kneeBeams \flatBeams
  <a,,,-0>\5 -.
  \barre "V" "" cs'' -. \startTextSpan \( a -. e -.
  \ankleBeams \revertBeams
  cs -. \stopTextSpan a -. e -. cs\5 -. \)
  <b-2> -. <b'-4> \( <gs-1> <e-3> \)
  \pIV <b-2> -. <a'-4> \( <fs-1> <ds-3> \)

  | %% measure 41/8
  e,\6 -. \pVII <e'\5> -. \( fs -. gs -.
  <a\4> -. b -. cs -. \pVIII <ds\3> -.
  e -. fs -. \pIX <gs\2> -. a -.
  b -. <cs\1> -. ds -. e -. \)

  | %% measure 42/9
  <e,-0>\1 \( \pV <cs'-4> <as-1> \) <g-3> -.
  <e-1> \( <g-4> <e-1> \) <cs-2> -.
  \pII <as-1> \( <cs-4>\3 <as-1> \) <g-3> -.
  <e-1> \( <g-4> <e-1> \) <cs-2> -.

  | %% measure 43/10
  <d-3>\5 -. \pIII b'' \( a -. g -.
  <fs\2> -. e -. d -. <cs\3> -.
  \pII b -. a -. <g\4> -. fs -.
  e -. <d\5> -. cs -. b -. \)

  | %% measure 44/11
  <d'-2> \( <b'-4> <gs-1> \) <f-4> -.
  <d-1> \( <f-4> <d-1> \) <b-2> -.
  \pI <gs-1> \( <b-4> <gs-1> \) <f-3> -.
  \pOff <d-0> \( <f-3> <d-0> \) <b-2> -.

  | %% measure 45/12
  <cs-3> -. a'' -. \( gs -. fs -.
  e -. d -. cs -. b -.
  a -. gs -. fs -. e -.
  d -. cs -. b -. a -. \)

  | %% measure 46/13
  \pII d \( fs a \) fs -.
  \barre "IV" ""
  ds \startTextSpan \( fs b \) fs -. \stopTextSpan
  e \( gs b \) gs -.
  \barre "VI" ""
  es \startTextSpan \( gs cs \) gs -. \stopTextSpan

  | %% measure 47/14
  \barre "VII" ""
  fs \startTextSpan \( a d \) a -. \stopTextSpan
  \barre "IX" ""
  gs \startTextSpan \( b e \) b -. \stopTextSpan
  <a-4> \( <cs-3> <e-1> \) <cs-3> -.
  <a-4> \( <c-2> <ds-1>\3 \) <fs-4> -.

  | %% measure 48/15
  \barre "IX" ""
  gs, \startTextSpan \( b e \) gs -. \stopTextSpan
  \pVI <g,-4> \( <bf-2> <cs-1> \) <e-4> -.
  \barre "VII" ""
  fs, \startTextSpan \( a d \) fs -. \stopTextSpan
  \pV <fs,-4> \( <a-2> <bs-1> \) <ds-4> -.

  | %% measure 49/16
  \barre "VI" ""
  es, \startTextSpan \( gs cs \) es -. \stopTextSpan
  \pIII <e,-4> \( <g-2> <as-1> \) <cs-4> -.
  \barre "IV" ""
  ds, \startTextSpan \( fs b \) ds -. \stopTextSpan
  \pIII <d,-3> \( <gs-4> <b-2> \) <d-1> -.

  | %% measure 50/17
  \barre "II" ""
  cs, \startTextSpan \( e a \) cs -. \stopTextSpan
  <d,-4> \( <fs-2> <b-3> \) <d-1> -.
  \pOff <e,-2> \( <a-3> <cs-4> \) <e-0> -.
  <e,-2> \( <gs-1> <b-0> \) <e-0> -.

  | %% measure 51/18
  \kneeBeams \flatBeams
  <a,,-0> -. \pVII <a''\2> -. \( gs -. fs -.
  \ankleBeams \revertBeams
  \pVI <e\3> -. d -. cs -.
  <b\4> -. a -. gs -.
  \pV <fs\5> -. e -. d -.
  <cs\6> -. b -. a -. \)

  | %% measure 52/19
  \kneeBeams \flatBeams
  <cs-3> -. \pVII <cs''-4> -. \( b -. <a\2> -.
  \ankleBeams \revertBeams
  gs -. fs -.
  \pVI <e\3> -. d -. cs -.
  <b\4> -. a -. gs -.
  \pV <fs\5> -. e -. d -.
  <cs\6> -. \)

  | %% measure 53/20
  \kneeBeams \flatBeams
  \pVII e -. e'' -. \( d -. <cs-1> -.
  \ankleBeams \revertBeams
  <b-1> -. <a\2> -. \pVI gs -. fs -.
  <e\3> -. d -. cs -. <b\4> -.
  a -. gs -. <fs\5> -. e -. \)

  | %% measure 54/21
  <a,-0>\5 -. \pVI <a'\4> -. \( b -. cs -.
  <d\3> -. e -. fs -. <gs\2> -. \) a -.
  <cs,\3> -. \( d -. e -.
  <fs\2> -. gs -. <a\1> -. b -. \)

  | %% measure 55/22
  cs -. \pIX <e,\3> -. \( fs -. <gs\2> -.
  a -. b -. <cs\1> -. d -.
  e8 \) r8 \pOff \fingerRight
  <e,,-2 gs-1 b-0 gs'-4>8\4\3\2\1 r8

  | %% measure 56/23
  <a, e' a cs a'>8\5\4\3\2\1 r8
  <a e' a cs a'>8\5\4\3\2\1 r8
  <a e' a cs a'>8\5\4\3\2\1 r8
  r4
}

music = {
  \key a \major
  \time 4/4
  \intro
  \bar "||"
  \midiTempoChange \tempo 4=130
  \presto
  \bar "|."
}

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

\paper {
   indent = 8\mm
   ragged-last-bottom = ##f
}