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

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

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

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

intro = \relative c {
  \pVI \partial 8 <bf'\4 bf'\2>8 \f
  ^\markup { \null \raise #1 { \large Posato. }}

  | %% measure 1
  <ef\3 ef'\1>4
  <bf,\6>16 ( c32 d \glissando <ef-4>4\6 )
  <bf' bf'>8

  | %% measure 2
  <ef ef'>4
  <bf,\6>16 ( c32 d \glissando <ef-4>4\6 )
  <bf' bf'>8

  | %% measure 3
  <ef ef'>4 -- \( <f f'>8 -. \)
  <g g'>16 \( <af af'>32 <g g'> <f f'>8 <ef ef'> -. \)

  | %% measure 4
  \pOff \acciaccatura <f f'>8 \glissando <bf, bf'>4. r4
}

moreIntro = \relative c {
  <bf' bf'>16 \( <bf' bf'>\3\1 \)

  | %% measure 5
  \tupletsOff
  <bf bf'>8 [
  \tuplet 10/8 { <bf bf'>32
  \( <a a'> <af af'> <g g'> <gf gf'> <f f'>
  <e e'> <ef ef'> <d d'> <df df'> ] } <c c'>8 \noBeam \)
  <c, c'>\6\4 <bf bf'>\6\4 \tupletsOn

  | %% measure 6
  <af af'>8\6\4 \noBeam <af'' af'>16 \( [ <g g'> ] \)
  \tuplet 3/2 { <g g'> ( <f f'> <e e'> ) }
  <f f'>8 -. [ <f, f'>\5\3 -. ]
  <f' f'>16 -. \( <af af'> \)

  | %% measure 7
  \tupletsOff
  <af af'>8 [
  \tuplet 10/8 { <af af'>32
  \( <g g'> <gf gf'> <f f'> <e e'> <ef ef'>
     <d d'> <df df'> <c c'> <cf cf'> ] }
  <bf bf'>8 \) \tupletsOn
  <bf, bf'>\6\4 [ <af af'>\6\4 ]

  | %% measure 8
  <g g'>8\6\4 <g'' g'>16 [ \( <f f'> \) ]
  \tuplet 3/2 { <f f'> ( <ef ef'> <d d'> ) }
  <ef ef'>8 -. [ <ef, ef'> -. ]
  <ef' ef'>16 \( <gf gf'> \)

  | %% measure 9
  \tupletsOff
  <gf gf'>8 -. [
  \tuplet 6/8 { <f f'>32 \( <e e'> <ef ef'>
  <d d'> <df df'> <c c'> ] }
  <cf cf'>8\5\3 [ \) <cf, cf'> ]
  <ef' ef'>16 \( <gf gf'> \)

  | %% measure 10
  <gf gf'>8 -. [
  \tuplet 7/8 { <f f'>32 \( <e e'> <ef ef'>
  <d d'> <df df'> <c c'> <cf cf'> ] }
  <bf bf'>8 [ \) <bf, bf'> ]
  <ef' ef'>16 \( <gf gf'> \)

  | %% measure 11
  <gf gf'>8 -. [
  <f f'>32 \( <e e'> <ef ef'>
  <d d'> <df df'> <c c'> <cf cf'> <bf bf'> ]
  <a a'>8 [ \) <a, a'>\6\4 ]
  <gf'' gf'>16 \( <ef ef'> \)

  | %% measure 12
  \pV <d d'> -. <bf, bf'> <d d'> -.
  \pVII <f f'> -. <bf bf'> -. <d d'> -.
  <f f'> -. [ <bf bf'> -. ] <bf,, bf'>8\6\4 \noBeam
  <bf' bf'>8 \f \pOff

  | %% measure 13
  <ef ef'>4
  <bf,\6>16 ( c32\6 d\6 \glissando <ef-4>4\6 )
  <bf' bf'>8

  | %% measure 14
  <g' g'>4
  \pVI \tuplet 5/4 { bf,,32 \( [ c d ef f ] } g4 \)
  <bf' bf'>16 r16

  | %% measure 15
  \fingerRight
  \pIII <g,,-1 bf'-2>4 \( <af-1 af'-4>8 \)
  <<
    {
      \fingerRight <g'-2>4 \( <f-1>8 \trill \)
    } \\ {
      \fingerRight <bf,-3>4.
    }
  >>

  | %% measure 16
  \pOff <g-2 bf ef bf'-3 ef-4>4. ^\markup \barnum #"I" #""
  _\markup \italic "Fine." r4
}

minore = \relative c {
  \pOff
  <g'-2\4>8 \f ^\markup { \null \raise #1 { \large Minore. }}

  | %% measure 17
  \fingerRight
  <g,-1 ef'-4 g-3 c-2>16\6\5\4\3 -. [
  \pI g'64 _\upStrum \( f _\downStrum ef _\upStrum d _\upStrum ] c16 _\downStrum \) [
  <g c g' c ef> -. ] ^\markup \barnum #"III" #""
  g'16 g64 \( f ef d c16 \)
  <g c g' c ef g> -.
  \fingerNeutral
  \pIII <g'-3>32 [ \( <fs-2> <af-4> <g-3> <f-1> <ef-4> <d-3> <c-1> \) ]

  | %% measure 18
  \pOff <d-0 g-0 b-0>16 -. [ \pII d64 \( c b a ] g16 \) [
  \pOff <d' g b g'> -. ]
  d \pII d64 \( c b a g16 \)
  \pOff <d' g b d'>\4\3\2\1 -.
  \pVII <b-1\6>32 \( \glissando <c-1> <d-2> <ef-3>
                     <f-1\5> <af!-3> \) <g-2> -. <f-1> -.

  | %% measure 19
  \kneeBeams \flatBeams
  <ef-3> \( <d-2> <c-1> \) <ef''-4> -.
  ef,, \( d c \) ef'' -.
  \pII <d,,-3> \( <b-1> <g-2> \)
  \harmonicsOn <d'''-4>\4 -. \harmonicsOff
  \pVIII ef,, \( d c \) ef'' -.
  ef,, \( d c \) ef'' -.
  \pII d,, \( b g \)
  \harmonicsOn <d'''-4>\4 -. \harmonicsOff
  \pOff

  | %% measure 20
  ef,, \( d c \) ef'' -.
  \pIV <c,,-3>\6 \( ( <bf-1>\6 ) \glissando <af-1>\6 \) c'' -.
  \revertBeams \ankleBeams
  <c,,-3>\6 \( ( <bf-1>\6 ) \glissando <af-1>\6 \) <fs''\2> -.
  \pOff <g,, d' g b g'>8 r8

}

body = \relative c {
  <g''-3\2>8 \noBeam

  | %% measure 21
  <g, c e c'>16 ^\markup \barnum #"V" #""
  \pVII g64 [ \( f e d ] c16 \noBeam \)
  <bf' e g e'>\4\3\2\1 ^\markup \barnum #"VIII" #""
  g64 [ \( f e d ] c16 \)
  <af' c f c' f> ^\markup \barnum #"X" #""
  \pVI c64 [ \( bf af g \) ] f16
  \pIII <af'-2>32 [ \( <g-1> <f-4\2> ef d <c-3\3> \) ]

  | %% measure 22
  <bf f d' bf'>16 ^\markup \barnum #"III" #""
  \pV <f-4\5>64 [ \( ef d <c-4\6> ] bf16 \) \noBeam
  <af' d f d'>\4\3\2\1 ^\markup \barnum #"VI" #""
  f64 [ \( ef d c ] bf16 \) \noBeam
  <g' bf ef bf' ef> ^\markup \barnum #"VIII" #""
  bf64 [ \( af g f ] ef16 \)
  \pI <g'-3>32 [ \( <f-1> <ef-4> <d-3> <c-1> <bf-4> \) ]

  | %% measure 23
  <<
    {
      \once \override PhrasingSlur.positions = #'(-4 . -3)
      \phrasingSlurDown
      \barre "I" ""
      af32 \startTextSpan \( ef af ef \stopTextSpan \pOff <bf-1 ef-2 g-0>16 \)
      \stemDown \phrasingSlurNeutral
      \pI g''32 [ \( f ef d c bf ] \)
      \stemNeutral \phrasingSlurDown
      \once \override PhrasingSlur.positions = #'(-4 . -3)
      \barre "I" ""
      af32 \startTextSpan \( ef af ef \stopTextSpan \pOff <bf ef g>16 \)
      \stemDown \phrasingSlurNeutral
      g''32 [ \( f ef d c bf ] \) \stemNeutral
    } \\ {
      <c, ef>8 s16
      s8.
      <c ef>8 s16
      s8.
    }
  >>

  | %% measure 24
  <<
    \relative c {
      \fingerRight
      \barre "I" ""
      af'32 \startTextSpan \( ef af ef \stopTextSpan
      \pOff <g-0> ef g ef
      \pIV <gf-2> <ef-4> gf ef
      <bf d>16 -. \)
      \stemDown
      \pIII f''64 [ \( ef d c ] bf16 \)
      \pX f''64 [ \( ef d c ] bf16 \)
      \pIV \stemNeutral <af,,-2 d-3>16 -. \noBeam
    } \\ \relative c {
      \fingerRight
      <c ef>8 <bf-1 ef-2>8 <a-3 ef'-4>8\6\5 s4.
    }
  >>

  | %% measure 25
  \stringDown
  \pIII <g-1 ef'-4>16 -.
  \pV <bf'-4\4>64 _\markup \italic "decresc." [
  \( <af-2> <g-1> <f-4> ] <ef-2>16 \)
  <ef'-3\3>64 [ \( <d-2> <c-1> <bf-3> ] <a-2>16 \) \noBeam
  <c,-4\6 ef-1\5> \noBeam <bf-2 d-1>
  \pVII <f''-4\3>64 [ \( ef d c ] bf16 \)
  \pX f''64 [ \( ef d c ] bf16 \) \noBeam
  \pIII <af,,-2 d-3>16

  | %% measure 26
  <g-1 ef'-4>
  \pV bf'64 [ \( af g f ] ef16 \noBeam \)
  <ef'-3>64 [ \( <d-2> <c-1> <bf-3> ] <a-2>16 \noBeam \)
  <c,-4 ef-1> \noBeam <bf d> \noBeam
  \pVII f''64 [ \( ef d c ] bf16 \)
  \pX f''64 [ \( ef d c ] bf16 \) \noBeam
  \pVII f64 [ \( ef d c ]

  | %% measure 27
  bf16 \) _\markup \italic "cresc."
  \pV f64 [ \( ef d c ] bf16 \)
  \pVII f''64 [ \( ef d c ] bf16 \)
  \pV f64 [ \( ef d c ] b16 \)
  \pX f'''64 [ \( ef d c ] b16 \)
  \pVII f64 [ \( ef d c ] b16 \)
  \pVI g64 [ \( f ef d ]

  | %% measure 28
  c16 \)
  \pXI g'''64 [ \( f ef d ] c16 \)
  \pVIII g64 [ \( f ef d ] c16 \)
  \pIV <g-1\4>64 \upbow [ \( <ef-2\5> \upbow <c-4\6> \upbow <bf!-2> ] <af-1>16 \)
  <c''-4>64 [ \( ( <af-1> ) <fs-4\2> ( <ef-1> ) ] <c-2\3>16 \)
  <fs-4>64 [ \( ( <ef-1> ) <c-2\3> \upbow <af-4\4> \upbow ] <fs-1>16 \downbow \)
  \pI <fs-4>64 [ \( ( <ef-1> ) <c-2> \upbow <af-3> \upbow ] \)

  | %% measure 29
  <g\1>16 \downbow
  g''64 [ \( ( a fs a ] g16 )
  b64 [ c ( a c ] b16 \) )
  \pII <b,,-1>64 [ \( ( <d-4> <b-1> ) <af-3> ] ( <g-2>16 ) \)
  b''!64 [ \( ( c a! c ] b16 )
  d64 [ ( ef c ef ] d16 ) \)
  \pV <d,,-1>64 ( [ <f!-4> <d-1> <c-3> ]

  | %% measure 30
  <b-2>16 )
  d''64 \( ( [ ef c ef ] d16 )
  f64 ( [ g e g ] f16 ) \)
  \pVI d64 _> \( [ c b af ]
  g _> [ f ef d ]
  \pVII <b'!-4\2> _> [ ( <af-2> <g-1> ) f ]
  ef _> [ d c b ] \)
  \pV <af'-4> \( <g-3> <f-1> <ef-4>
  <d-3> <c-1> <b-4> <af-2>
  <g-1> <f-4> <ef-2> <d-1> \)

  | %% measure 31
  \pV <e g c e c'>16 ^\markup \barnum #"V" #""
  \pVII g64 [ \( f ef d ] c16 \)
  <bf' e g e'>16\4\3\2\1 ^\markup \barnum #"VIII" #""
  g64 [ \( f ef d ] c16 \)
  <af' c f c' f>\5\4\3\2\1 ^\markup \barnum #"X" #""  
  \pVI c64 [ \( bf af g ] f16 \)
  \pIII <af'\1>32 [ \( g bf af g f \) ]

  | %% measure 32
  <ef,-3\5> -. [ <g'-1\1> \( <ef-2\2> <c-3\3> \) ]
  <af-4\4> -. [ <af'-1\1> \( <f-3\2> <d-4\3> \) ]
  <g,,-1> -. [ <f''-4\2> \( <d-1>\2 <b-0>\2 \) ]
  \kneeBeams \flatBeams
  \pVIII ef, \( d c \) ef'' -.
  ef,, \( d c \) ef'' -.
  \pII d,, \( b g \)
  \harmonicsOn <d'''-4>\4 -. \harmonicsOff

  | %% measure 33
  \pVIII ef,, \( d c \) ef'' -.
  ef,, \( d c \) ef'' -.
  \pII d,, \( b g \)
  \harmonicsOn <d'''-4>\4 -. \harmonicsOff
  \pVII ef,, \( d c \) ef'' -.
  \pX f,, \( ef d \) f'' -.
  \pXI g,, \( f ef \) g'' -.
  \revertBeams \ankleBeams

  | %% measure 34
  \pXIII af,, \( g f \) af'' -.
  r8 \pOff
  <g,,, d' g b g'>16 _\markup \italic "D.C. al Fine."
  r16 c4
}

music = {
  \key ef \major
  \time 6/8
  \repeat volta 2 {
    \intro
  }
  \repeat volta 2 {
    \moreIntro
  }
  \repeat volta 2 {
    \minore
  }
  \repeat volta 2 {
    \body
  }
  \bar "|."
}

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

\paper {
   indent = 8\mm
   ragged-last-bottom = ##f
   min-systems-per-page = 5
}