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

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

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

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

longstem = {
  \once \override Voice.Stem.length-fraction = #1.4
}

longstems = {
  \override Voice.Stem.length-fraction = #1.4
}

shortStems = {
  \override Voice.Stem.length-fraction = #0.7
}

normalStems = {
  \revert Voice.Stem.length-fraction
}

gtrill = \relative c {
  \appoggiatura { <g d' g bf d g>32 [ a'' ] }
}

gtail = \relative c {
  bf''8
  a16 -. \( g -. f -. ef -.
  d -. c -. bf -. a -. g -. fs -. \)
  g8 -. g,16 -. \( a -. bf -. c -. \)
  d \trill \( cs d \) c -. \( bf -. a -. \)
}

theme = \relative c {
  | %% measure 2
  \pII \gtail

  | %% measure 3
  | %% measure 4
  \gtrill
  \gtail

  | %% measure 5
  \slurUp \acciaccatura g8 g'16 \trill \( fs g \)
  f -. \( ef -. d -. \)
  \pVII \acciaccatura c8 c'16 \trill \( b c \)
  bf -. \( a -. g -. \)

  | %% measure 6
  \acciaccatura f8 f'16 \trill \( e f \)
  ef -. \( d -. c -. \)
  \acciaccatura bf8 \pIX bf'16 \trill \( a bf \)
  a -. \( af -. g -.

  | %% measure 7
  fs \) [ fs, ]
  \pVII f' f,
  e' [ e, ]
  \pV ef' ef,
  d' [ d, ]
  \pIV cs' -. \( cs, -. \)
}

intro = \relative c {
  %% measure 1
  \appoggiatura {
    <g d' g bf d g>32 \f
    ^\markup { \halign #0 { \null \raise #1 { \large Vivace. }}}
    [ a'' _\markup \italic \left-align "   martellato" ] }
  \theme

  | %% measure 8
  \pIV d,,16 \trill \( cs d \)
  fs -. \( a -. d -.
  d, -. ef -. d -. c -. bf -. a -. \)

  \pOff \gtrill
  \theme

  | %% measure 16
  \pII c'16 [ c, ]
  b' b,
  \pOff bf' [ bf, ]
  a' [ a, ]
  \flatBeams
  \kneeBeams
  \pVIII <ef'''\1> -. \( <c> -. <a-3\2> -. \) \pV <ef,-2\5> -.
  \ankleBeams
  \revertBeams

  | %% measure 17
  d8 \trill \noBeam \( ef16 \) <c''-4> -. \( <a-1> -. <ef,-2> -. \)
  d8 \trill \noBeam \( ef16 \) c'' -. \( a -. ef, -. \)

  | %% measure 18
  \fingerRight
  d8 \trill \noBeam \( <f-3>16 \) <af'\2> -. \( g\2 -. \pVI <ef,-1\5> -. \)
  e8 \trill \noBeam \( g16 \) <bf'\2> -. \( a -. \pVI <f,\5> -. \)

  | %% measure 19
  fs8\5 \trill \noBeam \( a16\5 \) <c'\2> -. \( bf\2 -. \pX <g,\5> -. \)
  a8 \trill \noBeam \( c16\5 \) \pXV <ef'\2> -. \( d -. <bf,-2\5> -. \)

  | %% measure 20
  <e,\6> [ <bf''\3> ]
  \pXV g, \longstem df''
  <bf,\5> [ \longstem <e'\2> ]
  \pXI <df,\4> <g'\1>
  \pXIV <e,> [ <bf''> ]
  <g,,\6> <df''\3>  %% *** lowered

  | %% measure 21
  \pVII <f,,-1>8 \trill \( <f'-2>16 \)
  <d,-3> -. \( <ef-4> -. <c-1> -. \)
  \pV <bf-2> \trill \( a bf \)
  \pIX <bf''-3\2> -. \p \( a -. af -. \)

  | %% measure 22
  <g-2\3> \trill \( fs g \)
  \pXI <ef-3\4> -. \( <d> -. <df> -. \)
  \pIX <c-2> \trill \( <b> <c> \)
  \pV <af'-3\2> -. \( g -. gf -. \)

  | %% measure 23
  <f-2> \trill \( e f \)
  \pV <d-3\3> -. \( cs -. c -. \)
  <bf-2\4> \trill \( a bf \)
  <a-4> -. \( af -. fs\4 -. \)

  | %% measure 24
  \pIII g -. bf' -. \( g -.
  _\markup \italic "cresc."
  e -. df -. bf -. \)
  f [ f' ]
  \longstem \pI ef,! [ \longstem ef' ]
  \pIII c, c'

  | %% measure 25
  \kneeBeams \flatBeams
  bf, \trill \f \( a bf \)
  gf'' -. \( f -. <a,,-0>\5 -. \)
  \shortStems
  bf \trill \( a bf \)
  \normalStems
  gf''' -. \( f -. <a,,,-0>\5 -. \)

  | %% measure 26
  bf \trill \( a bf \)
  gf'' -. \( f -. <a,,-0>\5 -. \)

  bf \trill \( a bf \)
  gf'\5 -. \( f\5 -. <a,-0>\5 -. \)

  | %% measure 27
  bf \trill \( a bf8 \) r8 r4 r8
  \ankleBeams \revertBeams
}

main = \relative c {
  | %% measure 28
  \pVIII af''16 \trill \f \( g af \)
  \pX f' -. \( d -. af -.
  f -. d -. bf -. af -. f -. d -. \)

  | %% measure 29
  g' \trill \( fs g \)
  g' -. \( ef -. bf -.
  g -. ef -. bf -. g -. ef -. bf\6 -. \)

  | %% measure 30
  \pV f'' \trill _\markup \italic "restez"
  \( e f \) \pVII d' \( b -. f -.
  d -. b -. g -. f -. d -. b -. \)

  | %% measure 31
  <ef'!-2> \trill _\markup \italic "restez"
  \( d ef \)
  \barre "VIII" "3" ef' -. \startTextSpan \( c -. g -.
  \fingerDown
  ef -. \stopTextSpan <c-4> -. <g-3\5> -.
  \glissando <ef-3\5> -. <c\5> -. g\6 -. \) \fingerRight

  | %% measure 32
  \pIII <af-2> \trill \p \( g af \)
  \longstems
  <ef''-1> -. \( <c-2> -. <af'-1> -. \)
  \normalStems
  \pV <bf,,-2> \trill \( a bf \)
  <df'-1> -. \( <bf-2> -. <df'-4> -. \)

  | %% measure 33
  \kneeBeams
  \pIII g,,, -. bf'' -. \( g -. ef -. df -. bf -. \)
  \pV <g-2> \( \glissando <af-2> <c'-4> \) bf, -. \( af -. g\5 -. \)
  \ankleBeams

  | %% measure 34
  \pVII f \trill \( e f \) c'' -. \( af -. f' -. \)
  g,, \trill \( fs g \) df'' -. \( bf -. g' -. \)

  | %% measure 35
  e,, -. g' -. \( e -. df -. bf -. g -. \)
  <e-1> \( \glissando <f-1> <af'-4> \)
  <gf,-2> -. \( <f-1> -. <ef-4> -. \)

  | %% measure 36
  \fingerRight
  \barre "IX" ""
  \acciaccatura b\6 \startTextSpan <df'-3 f-2 af-1 f'-4>8\4\3\2\1 \f \stopTextSpan
  ef'16 -. \( df -. c -. bf -. af! -.
  \pVI gf, -. ef -. df -. c -. bf -. \)

  | %% measure 37
  \pV <a'! ef' gf c>8
  <a'!-1>16 -. \( <gf!-2> -. <f-1> -. <ef-3> -. _\markup \italic "restez" <df-1> -.
  f, -. ef -. df -. c -. bf -. \)

  | %% measure 38
  \pIX <gf' df' gf bf>8
  \pVI <af'-4\2>16 -. \( <gf-2> -. <f-2> -. <ef-3> -. \)
  \pVII <f,-2 d' af'-4 cf>8 ^\markup \barnum #"VII" #"3"
  \pVI bf'16 -. \( af -. gf! -. f -. \)

  | %% measure 39
  <ef,! bf' ef gf>8
  \pIV <f'-4\2>16 -. \( <ef-2> -. <df-4\3> -. <cf-2> -. \)
  \pII <cs,-3 as'-2 cs-1 gs'-4>8
  fs'16 -. \( e -. ds -. cs! -. \)

  | %% measure 40
  \bar "||"
  \key b \major
  \barre "VII" ""
  \acciaccatura <b,-1>\6 \startTextSpan
  <b'-3 ds-2 fs-1 ds'-4>8\4\3\2\1 \stopTextSpan
  cs'16 -. \( b -. as -. gs -.
  fs -. e -. ds -. cs\3 -. b -. as -. \)

  | %% measure 41
  \pVI <gs ds' gs b>8
  as'16 -. \( gs -. fs -. e -.
  ds -. cs -. b -. a -. gs -. fs -. \)

  | %% measure 42
  \bar "||"
  \key e \major
  e16 \trill \p \( ds e \) b'' -. \( gs -. e' -. \)
  fs,, \trill \( es fs \) a' -. \( fs -. ds' -. \)

  | %% measure 43
  ds,, -. a'' -. \( fs -. ds -. a -. fs -. \)
  ds \( e gs' \) fs, -. \( e -. ds -. \)

  | %% measure 44
  \pVIII cs \trill \( bs cs \) gs'' -. \( e -. cs' -. \)
  \pX ds,, \trill \( css ds \) a'' -. \( fs -. ds' -. \)

  | %% measure 45
  \pV bs,, -. ds' -. \( bs -. a -. fs -. ds -. \)
  bs \( cs e' \) d,\6 -. \( cs -. b -. \)

  | %% measure 46
  \bar "||"
  \key a \major
  \acciaccatura <a-0>\5 \pV <a' cs e cs'>8\4\3\2\1 \f
   b'16 -. \( a -. gs -. fs -. e -.
   d -. b -. a -. gs -. fs -. \)

  | %% measure 47
  \pVII <es-1 es'-3 gs-2 d'-4>8\5\3\2\1
  cs''16 -. \( b -. a -. gs -. fs -.
  \pIV cs -. b -. a -. gs -. fs -. \)

  | %% measure 48
  \bar "||"
  \key d \major
  \pOff <d-0 a' d fs>8 e'16 -. \( d -. cs -. b -. \)
  <cs, as' e' g>8 ^\markup \barnum #"III" #""
  \pII fs'16 -. \( e -. d -. cs -. \)

  | %% measure 49
  <b, fs' b d>8 c'16 -. \( b -. a -. g\3 -. \)
  \pOff <a,-0 fs'-3 a-1 e'-4>8\5\4\3\2
  \pIII d'16 -. \( c -. b -. a -. \)

  | %% measure 50
  \bar "||"
  \key g \major
  \pIV g \trill \p \( fs g \) d' -. \( b -. g -. \)
  \pII f \trill \( e f \) d' -. \( b -. f -. \)

  | %% measure 51
  \pOff e \trill \( d e \) c' -. \( g -. e -. \)
  ef \trill \( d ef \) cs' -. \( g -. ef -. \)

  | %% measure 52
  \pIV <d-2> \trill \( cs d \) d' -. \( a -. <d,-0>\4 -. \)
  \pIII <cs!-2> \trill \( bs cs \) <e'-4\2> -. \( <g,-3\4> -. <cs,-2> -. \)

  | %% measure 53
  \pII <c!-2> -. <fs'!-1> -. \( ef -. c, -. <a-0>\5 -. <a''-4> -.
  <fs-1> -. \pIII <ef,-4> -. <c-1> -. \pV <c''-4> -. <a-1> -. \pVI <fs,-4> -. \)

  | %% measure 54
  <ef-1> -. \pVIII <ef''-4> -. _\markup \italic "cresc."
  \( <c-1> -. a -. fs -. ef -.
  c -. a -. fs -. ef! -. c -. <a-0>\5 -. \)
}

finale = \relative c {
  | %% measure 55
  \bar "||"
  \key bf \major
  \pOff
  \appoggiatura { <g d' g bf d g>32 \f [ a'' ] }
  \theme

  | %% measure 62
  c,!16\3 [ c,!\5 ]
  b'\3 b,\5
  bf'\3 [ bf,\5 ]
  a'\3 [ a,\5 ]
  \flatBeams
  \kneeBeams
  \pVIII ef''' -. _\markup \italic "restez" \( c -. a -. \) fs -.
  \ankleBeams
  \revertBeams

  | %% measure 63
  g8 \trill \( a16 \) ef' -. \( d -. fs, -. \)
  g8 \trill \( a16 \) ef' -. \( d -. f, -. \)

  | %% measure 64
  ef8 \trill \( f16 \) \pV c' -. \( bf -. d, -. \)
  c8 \trill \( d16 \) a' -. \( g -. \pIV bf,, -. \)

  | %% measure 65
  af8 \trill \( c16\5 \) ef -. \glissando \( \pVIII af -. c -.
  ef -. af -. c -. ef -. c -. af -. \)

  | %% measure 66
  \pIII g,,8 \trill \( bf16 \) cs -. \( \pV e -. g -.
  bf -. cs -. \pVII e -. g -. bf -. cs, -. \)

  | %% measure 67
  <d,-0>16\4 <d''-4> -. \( <cs-3> -. <c-2> -. <b-1> -. \pV <bf-2> -.
  <a-1> -. <g-4> -. <fs-3> -. <d-3> -. <c-1> -. <a-3> -. \)

  | %% measure 68
  \pIV <g-2> \trill \p \( <fs-1> <g-2> \)
  <fs-1> -. \( <f-4\5> -. <e-3> -. \)
  <ef-2> \trill \( <d-1> <ef-2> \) <d-1> -. \( <c-4\6> -. <bf-2> -. \)

  | %% measure 69
  \pIII <a-3> \trill \( g a \) <bf-4> -. \( <c-1\5> -. <cs-2> -. \)
  <d-2> \trill \( cs d \) cs -. \( c -. <a-0>\5 -. \)

  | %% measure 70
  \acciaccatura <d-0 g-0>8\4\3
  \pVII <g'-2\2>16 \trill _\markup \italic "cresc."
  \( fs g \) fs -. \( <f-4\3> -. <e-3> -. \)
  <ef-2> \trill \( <d-1> <ef-2> \) d -. \( <c-4\4> -. <bf> -. \)

  | %% measure 71
  \pV <a-3> \trill \( <gs-1> <a-3> \) <bf-4> -. \( <c-1\3> -. <cs-2> -. \)
  <d-2> \trill \( <cs-1> d \) <cs-2> -. \( <c-1> -. <a-3\4> -. \)

  | %% measure 72
  \pIII <g, d' g bf d g> \f \trill \( <fs''-4\2> <g-1> \)
  \stringUp
  <d,-0 d'\3 bf'\1>\4 -. \( <d c' a'>\4\3\1 -. <d a' fs'>\4\3\1 -. \)
  \pOff <g-0> \trill \( <fs-3> <g-0> \) <d\5> -. \( c -. <a-0> -. \)

  | %% measure 73
  \pIII <g d' g bf d g> \trill \( fs'' g \)
  <d, d' bf'>\4\3\1 -. \( <d c' a'>\4\3\1 -. <d a' fs'>\4\3\1 -. \)
  \pOff g \trill \( fs g \) d\5 -. \( c -. a -. \)

  | %% measure 74
  \pIII <g d' g bf d g> \trill \( fs'' g \)
  <d, d' bf'>\4\3\1 -. \( <d c' a'>\4\3\1 -. <d a' fs'>\4\3\1 -. \)
  <g, d' g bf d g> \trill \( fs'' g \)
  <d, d' bf'>\4\3\1 -. \( <d c' a'>\4\3\1 -. <d a' fs'>\4\3\1 -. \)

  | %% measure 75
  <g, d' g bf d g>4. r4 r8
}

music = {
  \key g \minor
  \time 6/8
  \repeat volta 2 { \intro } \break
  \main
  \finale
  \bar "|."
}

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

setMargins = {
  \override Staff.TimeSignature.space-alist.first-note = #'(extra-space . 4)
  \override Staff.KeySignature.space-alist.first-note = #'(extra-space . 2)
}

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

\score {
  \unfoldRepeats
  \music
  \midi {
    \context {
      \Score
      midiInstrument = #"acoustic guitar (steel)"
      tempoWholesPerMinute = #110/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))
   max-systems-per-page = 5
   min-systems-per-page = 5
   page-count = 7
   ragged-last-bottom = ##f
}