app = {\override StrokeFinger #'text = #(lambda (grob) (markup #:center-column (#:lower 2.5 "^" (stroke-finger::calc-text grob))))}
napp = {\override StrokeFinger #'text = #(lambda (grob) (markup #:center-column (#:lower 2.5 "" (stroke-finger::calc-text grob))))}
cofon ={\cadenzaOff \bar "|"\cadenzaOn}
snu = { \set stringNumberOrientations = #'(up) }
snd = { \set stringNumberOrientations = #'(down) }
snl = { \set stringNumberOrientations = #'(left) }
snr = { \set stringNumberOrientations = #'(right)}
fou = { \set fingeringOrientations = #'(up) }
fod = { \set fingeringOrientations = #'(down) }
fol = { \set fingeringOrientations = #'(left) }
for = { \set fingeringOrientations = #'(right) }
\version "2.12.1"
\header {
meter =  \markup {\override #'(font-name . "URW Palladio L italic"){"(Potenza, 7 sep. 1973)"}}
poet =  \markup {\override #'(font-name . "URW Palladio L italic"){"Trascrizione e diteggiatura di Mario Moles"}} 
title =  \markup {\override #'(font-name .  "URW Palladio L bold italic"){\fontsize #2 "FANTASIA" }}
subsubtitle =  \markup {\override #'(font-name . "URW Palladio L italic"){"trascrizione per chitarra"}}
composer =   \markup {\override #'(font-name .  "URW Palladio L italic"){ "Sylvius Leopold Weiss" }}
arranger = \markup {\override #'(font-name . "URW Palladio L italic"){ "(Grottkau, 12 oct. 1686 - Dresde, 16 oct. 1750)"}}
tagline = \markup {\override #'(font-name . "URW Palladio L"){ "Created using LilyPond"}}
}
\layout {
indent = 0.5\cm
}

#(set-global-staff-size 20)

#(define RH rightHandFinger)
\new Staff <<
  \new Voice
\relative c, {
  \clef "G_8"
  \key e \minor
  \cadenzaOn
\set strokeFingerOrientations = #'(up)
  \override StrokeFinger #'avoid-slur = #'inside
  \override StrokeFinger #'add-stem-support = ##t
  \override StrokeFinger #'font-size = #0
  \override StringNumber #'extra-offset = #'(0 . 3.2)
  \fol \snd
  \voiceOne
  \once \override Slur #'height-limit = #4
  e16\f( <g'-\RH #2 > <b-\RH #3 > <g-\RH #2 >
  <e'-\RH #3 > <b-\RH #2 > <g'-\RH #4 -1 > <e-\RH #3 -3\2>
  <b'-\RH #4 -1 > <g-\RH #3 -2\2> <c-\RH #4 -3 > <e,-\RH #3 -0 >)
  #(set-octavation 1)  \set Staff.ottavation = \markup { \upright {\tiny "III 1/2" } }
  \override Staff.OttavaBracket #'dash-period = #0.2  
  <fis,-1>([ <fis'-\RH #2 -3> <a-\RH #3 > <fis-\RH #2 >] <d'-\RH #3 -2> 
  [<a-\RH #2 >#(set-octavation 0) <fis-\RH #4 > <d-\RH #3 >] <a'-\RH #4 -1>
  [ <fis-\RH #3 -3\2> < b-\RH #4 -4> < d,-\RH #2 -3\3> ]) g,, [(<g'-\RH #2 > <b-\RH #3 > <g-\RH #2 >]
  <e'-\RH #3 > [<b-\RH #2 > <g'-\RH #4 > <e-\RH #3 >]\app <b'-\RH #4 >_\( [\napp <a-1>\)
  <b-\RH #3 > <d,-\RH #2 >])\cofon 
  a, c' b c fis,, d'' c d g,, b' a b g g' b, fis' c [e b e] a,, [c'' e, g]
  d, [fis' c d] b [c fis b,] cis, [a' g' fis] dis, [fis' b, a]
  e [fis' g, fis']\cofon \break
  cis e b e fis,, e'' ais, fis g, d'' b g e, [cis'' b g] fis, [ais' fis' e]
}
\new Voice

\relative c, {
  \clef "G_8"
  \key e \minor
  \cadenzaOn
  \voiceTwo 
    \set strokeFingerOrientations = #'(down)
  \override StrokeFinger #'avoid-slur = #'inside
  \override StrokeFinger #'add-stem-support = ##t
  \override StrokeFinger #'font-size = #0
  <e-\RH #1 > 2. <fis'-\RH #1 > <g,-\RH #1 > \cofon
   <a-\RH #1 >4 <fis-\RH #1 > <g-\RH #1 > <g'-\RH #1 >8 [b] 
   c [b] a,4 d2 cis4 dis e8 [g]\cofon \break
}
>>