cofon ={\cadenzaOff \bar "|"\cadenzaOn}
cofn ={\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) }
gt = \override Glissando #'breakable = ##T
gl = \glissando
gT = \override Glissando #'thickness = #2
ignore = \override NoteColumn #'ignore-collision = ##t
\version "2.12.2"
\paper{
#(set-paper-size "a4")
bottom-margin = 1.2\cm
top-margin = 0.4\cm
ragged-last-bottom = ##f
ragged-bottom = ##f
between-system-space =  5\cm
%{between-system-padding = #5%}
}

\layout {
indent = 0.5\cm
}

#(set-global-staff-size 18)

#(define (calc-custom-stroke-text grob)
   (let ((text (ly:event-property (event-cause grob) 'text)))
     (if (string? text)
         (markup #:center-column (#:lower 2.5 "^" text))
         (stroke-finger::calc-text grob))))

#(define (make-stroke-finger location finger)
   (apply make-music
          (append
           (list
            'StrokeFingerEvent
            'origin location)
           (if  (string? finger)
                (list 'text finger)
                (list 'digit finger)))))

da = #(define-music-function (parser location) ()
        (make-stroke-finger location "a"))
dm = #(define-music-function (parser location) ()
        (make-stroke-finger location "m"))
di = #(define-music-function (parser location) ()
        (make-stroke-finger location "i"))
dp = #(define-music-function (parser location) ()
        (make-stroke-finger location "p"))
dan = #(define-music-function (parser location) ()
         (make-stroke-finger location 4))
dmn = #(define-music-function (parser location) ()
         (make-stroke-finger location 3))
din = #(define-music-function (parser location) ()
         (make-stroke-finger location 2))
dpn = #(define-music-function (parser location) ()
         (make-stroke-finger location 1))
% varI=<<
\new Staff <<
  \new Voice
\relative c, {
  \clef "G_8"
  \key e \minor
  \time 3/4
 \set strokeFingerOrientations = #'(up)
  \override StrokeFinger #'avoid-slur = #'inside
  \override StrokeFinger #'add-stem-support = ##t
  \override StrokeFinger #'font-size = #0
  \override StrokeFinger #'text = #calc-custom-stroke-text
%{  \once \override Staff.TimeSignature #'stencil = ##f%}
  \override StringNumber #'staff-padding = #'()
  \fol \snd
  \voiceOne
  \override Slur #'height-limit = #4
  % \set Score.defaultBarType = #"empty" 
  %1 rigo
  \stemUp s2 \partial 4*1 b''4|
                  e 8 [ < g e > 16\glissando\glissando < fis dis > ] < g e > 8 [ < b g> 16 < ais fis > ] < b g > 8 [ < g e > ]   |
                 < fis dis > 8 [ < fis dis > 16 < eis cis > ] < fis dis > 8 [ < a fis > 16 < gis eis > ] < a fis > 8 [ < fis dis > ]   |\break \noPageBreak
                 < g e > 8 [ < g e > 16 < fis dis > ] < g e > 8 [ < b g > 16 < ais fis > ] < b g > 8 [ < g e > ]   |
%% 5
                < a fis > 8 [ < a fis > 16 < gis eis > ] < a fis > 8 [ < fis d > ] < g eis > [ < a fis > ]   |
                 < g b > 8 [ <b g> 16 \once \override NoteColumn #'force-hshift = #1 <ais fis> ] <b g> 8 [ <d b> 16 <cis ais> ] <d b> 8 [ <b g> ]   |\break \noPageBreak
                 <a fis> 8 [ <a fis> 16 <gis eis> ] <a fis> 8 [ <a c> 16 <b gis> ] <a c> 8 [ <a fis> ]   |
                 <e g> 8 [ <g e> 16 <fis dis> ] <g e> 8 [ <b e> ] <a fis> [ <g e> ]   |
                 <fis dis> 8 r r4 r8  b  | \noPageBreak
%% 10
                 <g e> 8 [ <g e> 16 <fis dis> ] <g e> 8 [ <b g> 16 <ais fis> ] <b g> 8 [ <g e> ]   |
                 <fis dis> 8 [ <fis dis> 16 <eis cis> ] <fis dis> 8 [ <a fis> 16 <gis eis> ] <a fis> 8 [ <fis dis> ]   |
                 <g e> 8 [ <g e> 16 <fis dis> ] <g e> 8 [ <b g> 16 <ais fis> ] <b g> 8 [ < g e> ]   |\break \noPageBreak
                 < fis a > 8 [ < a fis > 16 < gis eis > ] < a fis> 8 [ <fis d> ] < g e> [ < fis a> ]   |
                 < b g > 8 [ < b g > 16 < ais fis > ] < b g > 8 [ < d b > 16 < cis ais > ] < d b > 8 [ < b g > ]   |\break \noPageBreak
%% 15
                 < a fis > 8 [ < a fis > 16 < gis eis > ] < fis a > 8 [ < a c > ] < b gis > [ < a fis > ]   |
                b8\rest  < g e b > r < fis c a > r < dis a fis >   |
                 < e g > 4 s s   |\pageBreak
                \bar "|."
}
\new Voice

%{\relative c,%} {
  \clef "G_8"
  \key e \minor
  \time 3/4
  \voiceTwo 
\set strokeFingerOrientations = #'(down)
  \override StrokeFinger #'avoid-slur = #'inside
  \override StrokeFinger #'add-stem-support = ##t
  \override StrokeFinger #'font-size = #0
  \override StrokeFinger #'text = #calc-custom-stroke-text
  \fol 
  %note
  %1 rigo
s2 \partial 4*1 \stemDown b, 4   |
                \stemDown e, 8 r r4 r8 e,   |
                \stemDown b, 8 r r4 r8 b,   |
                \stemDown e, 8 r r4 r8 e   |
%% 5
                \stemDown d 8 r r \once \override NoteColumn #'force-hshift = #1.8 c' [ b a ]   |
                \stemDown g 8 r r4 r8 g   |
                \stemDown d 8 r r4 r8 dis   |
                \stemDown e 8 r r g [ a ais ]   |
                \stemDown b 8 [  b 16 ais ] b 8 [ b' ] \stemDown b, r   |
%% 10
                \stemDown e, 8 r r4 r8 e,   |
                \stemDown b, 8 r r4 r8 b,   |
                \stemDown e, 8 r r4 r8 e   |
                \stemDown d 8 r r \once \override NoteColumn #'force-hshift = #1.8 c' [ b a ]   |
                \stemDown g 8 r r4 r8 g   |
%% 15
                \stemDown d 8 r r4 r8 dis   |
                \stemDown e 8 r a, r b, r   |
                r8 \stemDown e e, 4 r   |
                \bar "|."
 }
\new Voice

\relative c, {
  \clef "G_8"
  \key e \minor
  \time 3/4
  \voiceThree 
\set strokeFingerOrientations = #'(up)
  \override StrokeFinger #'avoid-slur = #'inside
  \override StrokeFinger #'add-stem-support = ##t
  \override StrokeFinger #'font-size = #0
  \override StrokeFinger #'text = #calc-custom-stroke-text
 
}
>>