\version "2.16.2"

\pointAndClickOff %IMPORTANT!!! Comment this out before final PDF

\header {
 %dedication = \markup { \sans \italic \fontsize #0.5 " " }
  title = \markup { \sans \italic \fontsize #6 "Komorebi" }
  subtitle = \markup { \sans \italic \fontsize #1 "for piano" }
   composer = \markup { \sans "ADAM SCOTT NEAL" }
  copyright = \markup { \fill-line { " " \sans \fontsize #-2 "Copyright © 2015 Adam Scott Neal (BMI)" " " } }
  tagline = \markup { \fill-line { " " \sans \fontsize #-2 "ASN-S15-02"  } }
}

  #(set-default-paper-size "letter")
\paper {
  #(set-paper-size "letter")
  raggedright = ##t
  indent = 20\mm
  paper-width = 8.5\in
  left-margin = 0.75\in
  right-margin = 0.75\in
  line-width = 7\in
  top-margin = 0.75\in
  bottom-margin = 0.75\in
  ragged-last-bottom = ##f
  %first-page-number = 2
%markup-system-spacing #'basic-distance = #18
	%top-markup-spacing #'basic-distance = #6
 top-system-spacing #'minimum-distance = #10 
top-system-spacing #'basic-distance = #10 
%last-bottom-spacing  #'minimum-distance = #10
%last-bottom-spacing  #'basic-distance = #10
  %system-system-spacing = 

  oddHeaderMarkup = \markup \sans \fill-line {
    " "
    \on-the-fly #not-first-page "NEAL | Komorebi"
    \on-the-fly #not-first-page \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
  }
  evenHeaderMarkup = \markup \sans \fill-line {
    \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
    \on-the-fly #not-first-page "NEAL | Komorebi"
    " "
  }
 
 oddFooterMarkup = \markup \pad-around #2 \sans \fill-line {
     \on-the-fly #part-first-page \fromproperty #'header:copyright
   \on-the-fly #not-first-page \fromproperty #'header:tagline
   
  }
  evenFooterMarkup = \markup \pad-around #2 \sans \fill-line { 
    \on-the-fly #not-first-page \fontsize #'-2 "ASN-S15-02"
    " "
  }
  
   myStaffSize = #19
  #(define fonts
    (make-pango-font-tree "Times New Roman"
                          "TeX Gyre Adventor"
                          "Courier"
                           (/ myStaffSize 19) ))
  
}

myTimeSig =
#(define-music-function (parser location num denom)
  (string? string?)
  #{
    \override Staff.TimeSignature #'text = 
    \markup { \sans
      \abs-fontsize #15 \bold \override #'(baseline-skip . 2)
      \center-column {
        \line { #num }
        \line { #denom } 
      } 
    }
  #})


%SLUR THICKNESS
#(define (variable-slur-thickness min-l max-l min-t max-t) (lambda (grob)
  (let* ((cpf (if (grob::has-interface grob 'tie-interface)
                  ly:tie::calc-control-points
                  ly:slur::calc-control-points))
         (cpt (cpf grob))
         (cp0 (car cpt)) (cp3 (cadddr cpt))
         (dx (- (car cp3) (car cp0)))
         (dy (- (cdr cp3) (cdr cp0)))
         (len (magnitude (make-rectangular dx dy)))
         (thickness
           (cond ((< len min-l) min-t)
                 ((> len max-l) max-t)
                 (else (+ min-t (* (- len min-l)
                         (/ (- max-t min-t) (- max-l min-l))))))))
         thickness)))

#(define ((alter-curve offsets) grob)
   ;; get default control-points
   (let ((coords (ly:slur::calc-control-points grob)))
     ;; add offsets to default coordinates
     (define (add-offsets coords offsets)
       (if (null? coords)
       '()
       (cons
         (cons (+ (caar coords) (car offsets))
               (+ (cdar coords) (cadr offsets)))
         (add-offsets (cdr coords) (cddr offsets)))))

     (if (null? offsets)
         coords
         (add-offsets coords offsets))))

%SLUR SHAPE
#(define ((shape-slur offsets) grob)
   (let* (
          ;; have we been split?
          (orig (ly:grob-original grob))
          ;; if yes, get the split pieces (our siblings)
          (siblings (if (ly:grob? orig)
                        (ly:spanner-broken-into orig) '() ))
          (total-found (length siblings)))
     (if (>= total-found 2)
         ;; shape BROKEN
         ;; walk through siblings, find index in list
         ;; and apply offsets from list of offsets:
         (let loop ((n 0))
                   (if (eq? (list-ref siblings n) grob)
                       ;; return altered:
                       ((alter-curve (list-ref offsets n)) grob)
                       (if (< n total-found)
                           (loop (1+ n))
                           ;; end of list -- none found?!
                           ;; return defaults:
                           ((alter-curve '()) grob))))
         ;;
         ;; shape UNBROKEN
         ((alter-curve offsets) grob))))

shapeSlur =
#(define-music-function (parser location offsets)
                        (list?)
  #{
    \once \override Slur #'control-points = #(shape-slur offsets)
  #})
%\shapeSlur #'(0 0.5 0 1 0 1.5 0 0)


global = {
  \key ees \major
  \numericTimeSignature
  \myTimeSig "4" "4" \time 4/4
  \set Score.markFormatter = #format-mark-box-alphabet
  %Komorebi
   \set Staff.pedalSustainStyle = #'bracket
}

right = \relative c'' {
  \global
  % Music follows here.
  \override Hairpin #'to-barline = ##f
  \override Staff.BarLine #'hair-thickness = #0.75
   \override Staff.TimeSignature #'stencil = #ly:text-interface::print
   
  %
  
  \tempo
        \markup { \sans \bold
            "Placid ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 56)" }
        
  s2\pp\< \times 2/3 { r8 d, g } b16^\markup { \sans "LH" } d ees e \times 2/3 { g16^\markup { \sans "RH" } aes bes~\mp } bes8~ bes2.\fermata
  s2\p\< \times 2/3 { r8 e,, aes}  d16^\markup { \sans "LH" } ees g aes bes32^\markup { \sans "RH" } b d ees g8~\mf g2.\fermata
  
 % \mark #1
  \tempo
        \markup { \sans \bold
            "Playful rustling ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 72)" }
        
  r1\f r1\ppp \break
  \stemNeutral ees,,16-.\mp e-. g8-. r16 e-. g-. aes-. \times 2/3 {r8 bes-. r } g16( aes8) g16 d'( b bes8) r2.
  r1\f <g' bes>8-.\pp r <e aes>-. r r16 <ees b'>8.--~ <ees b'>8 bes'16-. g-. r1
  \times 4/7 { ees,16-.\mp e-. g-. aes-. bes-. aes-. g-. } \times 2/3 { r4 <e! bes'>8-. } r8 <ees g>-. r8 e32( aes g16) r4 ees'16( d b8) r2
  r1\f \times 4/6 { bes16-.\mp b-. d-. b-. bes-. g-. } r8 <g b>-. r <e bes'>-. r16 <d b'>8.--~ <d b'>8 <ees! bes'>-. r4 r4 r16 <d b'>8.--~ <d b'>8 <ees! bes'>-. r4 r2 
  r1
  \pageBreak
  %\mark #2
  \tempo
        \markup { \sans \bold
            "Delicate flickering ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 62)" }
  \stemUp ees'8\p\cresc g ees16 g bes b \times 4/5 { \stemDown g,16 aes bes b d } \times 2/3 { b8 d ees }
  \times 4/7 { \stemUp e16 g aes bes e, g aes } \times 4/6 { ees g aes ees g aes } \times 4/5 { ees16[ g aes] \stemDown b, d } ees8 e
  \times 4/7 { ees,16[ aes b d] \stemUp ees aes bes } \times 2/3 { \stemDown d8 ees b } \times 4/7 { g,16[ bes d e] \stemUp g bes d } \times 4/6 { ees16 e b d bes b }
  \stemDown ees,16 g bes ees, \times 4/5 { e16 g aes bes b } \times 4/6 { \stemDown bes \stemUp ees[ g] \stemDown ees, \stemUp bes'[ ees] }  \times 4/7 { g,,16[ bes] \stemUp ees[ g] \stemDown b,[ d] \stemUp aes' }
  ees,16\f g' b, ees' \times 2/3 { \stemDown aes,,8 d aes'} \stemUp b8 bes, \times 4/5 { \tupletDown ees'16[ aes, b] \stemDown aes, ees'}
  \tupletNeutral \times 4/6 { \stemUp aes16 b ees, b' d, aes' } \times 4/5 { \stemDown d,,16[ b' aes] \stemUp aes' g } aes16 e, bes'' g, \times 4/6 { b'16[ ees aes,] \stemDown b, e, aes }
  \times 2/3 { ees8 bes'' g, } \times 4/5 { \stemUp g'16 b ees, b g' } e,8 ees' \times 4/6 { \stemDown ees,16[ aes b] \stemUp ees[ aes b] }
  d,,16\> b'' g, d' \times 2/3 { b8 r g' } \autoBeamOff \stemDown d,8 \stemUp <b' aes'> \stemDown \autoBeamOn \times 2/3 { d,8 aes' b }
  \stemUp e'16 b aes b \times 4/5 { e16 g e b g } e'16 b d b \times 4/5 { \tupletDown \stemDown ees,,16[ b'] \stemUp ees' g, b, }
  \ottava #1 \tupletNeutral \times 2/3 { g''8\p r ees } r8 d16 bes' r8 ees, \times 4/5 { bes'8. ees,16 g }
  ees8 r <d bes'>8. g16 \times 4/5 { bes8 ees,16 g8 } \times 4/5 { ees8. bes16 g }
  \ottava #0 \stemDown ees,16[\cresc b'] \stemUp ees g \stemDown b,,8 d \times 2/3 { \stemUp aes'8[ d] \stemDown b, } bes16[ g'] \stemUp d' g
  \times 2/3 { \tupletUp \stemDown g,,8[ ees'] \stemUp b' } \tupletNeutral ees16 g ees b e g b, e \times 2/3 { \stemDown aes,8 \stemUp b[ e] }
  \autoBeamOff <ees g>8 \stemDown bes, \times 4/4 { ees16 \stemUp <b' g'> \autoBeamOn \stemDown g ees } \times 4/4 { \stemUp <d' b'> \stemDown b[ g d] } \times 2/3 { \stemUp ees''8 g, bes, }
  \stemDown g,8\mf d' ees16[ g] \stemUp <bes e>8 <d g> \stemDown bes,16[ ees] \autoBeamOff aes8 \stemUp b \autoBeamOn
  \stemDown g, b \times 2/3 { d8 \stemUp <aes' e'>4 } \autoBeamOff g'8 \stemDown ees, \autoBeamOn \times 2/3 { \tupletUp g,8[ bes] \stemUp e' } 
  \tupletNeutral \times 2/3 { g8\> d aes } \times 2/3 { \stemDown bes,8 ees aes } bes4 \times 2/3 { ees,8 e g } 
  \stemUp d'8 \stemDown bes,[ ees g] \stemUp aes b d ees s16 s8.\mp ees,8 g bes2\fermata
  r1\mf\fermata 
  \pageBreak
  %\mark #3
  \tempo
        \markup { \sans \bold
            "Playful rustling ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 72)" }
  ees,16-.\mp e-. g8-. r16 e-. g-. aes-. \times 2/3 {r8 bes-. r } g16( aes8) g16 d'( b bes8) r2.
  \times 4/6 { bes16-. b-. d-. b-. bes-. g-. } r8 <g b>-. r <e bes'>-. r16 <d b'>8.--~ <d b'>8 <ees! bes'>-. r4 r4 r16 <d b'>8.--~ <d b'>8 <ees! bes'>-. r4 r2 
  
  %\mark #4
  
  \tempo
        \markup { \sans \bold
            "Mysterious ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 62)" }
        
  r2 \ottava #1 <e' b' ees!>2\arpeggio\pp <b' e bes'!>4.\arpeggio <aes d g>8~\arpeggio <aes d g>2~ <aes d g>2 <b e bes'>4.\arpeggio <aes d g>8~\arpeggio <aes d g>1~ 
  <aes d g>2 <e bes' d>2\arpeggio <aes e' g>4.\arpeggio <g b ees>8~\arpeggio <g b ees>2~ <g b ees>2 <aes e' g>4.\arpeggio <g b ees>8~ 
  <g b ees>2 <aes, ees' g>2\arpeggio <e' g ees'>4.\arpeggio <b d bes'>8~\arpeggio <b d bes'>2~ 
  <b d bes'>2 <e g ees'>4.\arpeggio <b d bes'>8~\arpeggio <b d bes'>1
  <e g ees'>4.\arpeggio <b d bes'>8~\arpeggio <b d bes'>2~ <b d bes'>1
  
  r2 <ees g bes ees>2\arpeggio\p <c' ees g bes>4.\arpeggio <a c ees g>8~ <a c ees g>2~ <a c ees g>2 <f g bes d>2\arpeggio <a c ees g>4.\arpeggio <g bes c ees>8~\arpeggio <g bes c ees>2~ 
  <g bes c ees>2 \ottava #0 <c, d f a>\arpeggio\< <f a bes d>4.\arpeggio <d ees g bes>8~\arpeggio <d ees g bes>2~ <d ees g bes>1
  <a bes d f>2\arpeggio <bes c ees g>\arpeggio <g bes ees>1\arpeggio\mf\fermata
  \bar "||"
  \pageBreak
  %\mark #4
  
 %\override  #'padding = #18

 \tempo
        \markup { \sans \bold
            "Delicate flickering ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN 
            \note #"4" #0.9
            \sans "= 66)" }
  \key bes \major      
  \times 2/3 { g8\mp \change Staff = "left" bes, \change Staff = "right" a'^\markup { \natural} } \change Staff = "left" ees,8 \change Staff = "right" f' \times 2/3 { \change Staff = "left" g,8 \change Staff = "right" c'^\markup { " " } \change Staff = "left" bes, } \times 2/3 { \change Staff = "right" d'8 \change Staff = "left" c, \change Staff = "right" a' }
  ees'16 g, \change Staff = "left" bes, \change Staff = "right" a' \times 2/3 { \change Staff = "left" g,8 f' \change Staff = "right" bes } d8 \change Staff = "left" c, \change Staff = "right" bes'16 \change Staff = "left" a, \change Staff = "right" g' \change Staff = "left" f,
  ees c' \change Staff = "right" bes' d \times 2/3 { \change Staff = "left" g,,8 \change Staff = "right" ees'' a } <bes,, g''>8 c d16 f' \stemDown bes,,[ ees]
  <ees' c'>16 \change Staff = "left" bes, ees, f \times 2/3 { g8 \change Staff = "right" a' bes' } \times 2/3 { \change Staff = "left" bes,,8 \change Staff = "right" c' ees' } ees,,16 \stemUp bes'[ f'] \stemDown d,
  f16 g \stemUp ees'[ bes] \times 4/5 { \stemDown a16 \stemUp d[ g] \stemDown \autoBeamOff bes, \stemUp ees } \times 2/3 {\stemDown g,8 \stemUp \autoBeamOn f'[ <c a'>] } \times 4/5 { \stemDown bes16[ ees] \autoBeamOff \stemUp c' \stemDown g, \stemUp bes' }
  g8\< \stemDown ees, \autoBeamOn \stemUp \times 2/3 { ees''8 a, d, } \stemDown g,16[ a] \stemUp <ees' g> c \times 4/5 { d16 \stemDown f,[ bes] \stemUp ees a } 
  \stemDown g,8\mf ees' \stemUp bes'16[ ees] \stemDown c, f \times 4/6 { \stemUp bes16[ f'] \stemDown g,,[ bes] \stemUp c'[ g'] } \stemDown <ees,, c'>16 \stemUp d''[ f] \stemDown <g,, ees'> 
  \ottava #1 \times 4/5 { \stemUp ees''16\> g \stemDown d,[ f bes] } \times 2/3 { \stemUp c8 \stemDown d,[ g] } \times 4/6 { ees16[ g bes] \stemUp d f bes } \stemDown f,8 a 
  \times 4/5 { \tupletDown bes16 \stemUp ees[ g c d,] } \tupletNeutral \stemDown a16[ c] \stemUp <ees g> ees' \times 4/6 { \stemDown g,,16 bes ees \stemUp <f a>[ ees'] \stemDown c, }  \autoBeamOff d8 \ottava #2 \stemUp g'~
  \autoBeamOn \times 4/7 { g16\p \stemDown ees,[ g bes] \stemUp d f a } \times 4/5 { \stemDown d,,16[ <g bes>] \stemUp ees' a bes } \stemDown <a, c>16[ d] \stemUp ees g \times 4/6 { c16 \stemDown bes,[ ees] \stemUp g <ees bes'> a }
  r8 ees16 bes' \times 4/6 { r8 f16 a r8 } ees8 g \times 4/6 { r8 f16 a8 g16 }
  \times 4/5 { bes16\< c ees, a d, } \stemDown \autoBeamOff bes8 \stemUp <ees bes'> \autoBeamOn \times 4/6 { g,16 d' f a, ees' g } \times 2/3 { f,8 ees' <g, bes> } 
  \ottava #1 \times 4/5 { \stemDown c,16[\mp\cresc d] \stemUp bes' ees, a } \times 4/5 { g16 \stemDown bes,[ c] \stemUp f d } ees16 \stemDown g,[ a c] \times 4/5 { <d, bes'>16 \stemUp ees'[ a, c d] }
  \ottava #0 \times 2/3 { \stemDown <ees, c'>8 \stemUp bes'[ f] } \times 4/5 { d16 bes' ees, g a } \stemDown \autoBeamOff c,8 \stemUp <ees bes'> \times 2/3 { \stemDown d8 \stemUp a'8 \stemDown bes, }
  \times 4/5 { \stemUp g'16 \stemDown a, \stemUp ees' \stemDown g, \stemUp d' } \stemDown \times 4/4 { ees,16 \stemUp g' \stemDown bes, \stemUp a' } \times 4/5 { ees16 \stemDown f, \stemUp d' \stemDown c, \stemUp bes' } \times 4/5 { \stemDown d,16 \stemUp c' \stemDown ees, \stemUp f' \stemDown g, }
  \times 4/4 { \stemUp bes'16 \stemDown ees,, \stemUp d' bes } \times 2/3 { a'8[ ees] \stemDown g, } \stemUp g'16 \stemDown bes,, \stemUp ees'[ g,] d'8 \stemDown g,,
  \autoBeamOn \times 4/5 { ees'16 \stemUp d'[ a bes c] } \times 4/5 { \stemDown d,16 \stemUp ees'[ g, d' bes] } \stemDown bes,16 \stemUp bes'[ g ees] \times 4/5 { d'16[ bes g ees] \stemDown bes }
  \stemUp ees'16 bes g ees \times 2/3 { d'8 f, \change Staff = "left" g, } \change Staff = "right" g'16 ees d bes ees8 \change Staff = "left" g,
  \times 2/3 { ees8\f \change Staff = "right" bes'' d, } \times 4/5 { \change Staff = "left" ees,16 bes' \change Staff = "right" d' g, ees } \change Staff = "left" bes8 \change Staff = "right" ees' \times 2/3 { g,8 d' ees, }
  \change Staff = "left" ees,16 \change Staff = "right" g' d bes' \times 2/3 { \change Staff = "left" bes,8 \change Staff = "right" ees g } \times 4/5 { \change Staff = "left" ees,16 bes' \change Staff = "right" ees g d' } \change Staff = "left" ees,,8 \change Staff = "right" ees''
  \times 2/3 { ees,8 bes' g } \change Staff = "left" bes,16 \change Staff = "right" g' ees d \times 4/5 { \change Staff = "left" ees,16 \change Staff = "right" g' bes, ees \change Staff = "left" g, } \times 2/3 { ees8 \change Staff = "right" g' ees }
  \change Staff = "left" bes16\> \change Staff = "right" bes' g ees \times 2/3 { \change Staff = "left" g,8 \change Staff = "right" d' bes } \change Staff = "left" ees,8 \change Staff = "right" ees'~ ees4
  
  r1\mf
  \pageBreak
  %\mark #5
  \tempo
        \markup { \sans \bold
            "Playful rustling ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 72)" }
  \stemNeutral
  ees16-.\mp f-. g8-. r16 f-. g-. a-. \times 2/3 {r8 bes-. r } g16( a8) g16 d'( c bes8) r2.
  R1 <g' bes>8-. r <f a>-. r r16 <ees c'>8.--~ <ees c'>8 bes'16-. g-. R1
  \times 4/7 { ees,16-. f-. g-. a-. bes-. a-. g-. } \times 2/3 { r4 <f bes>8-- } r8 <ees g>-- r8 f32( a g16) r4 ees'16( d c8) r2
  R1 \times 4/6 { bes16-. c-. d-. c-. bes-. g-. } r8 <g c>-. r <f bes>-. r16 <d c'>8.--~ <d c'>8 <ees bes'>-. r4 r4 r16 <d c'>8.--~ <d c'>8 <ees bes'>-. r4 r2 
  R1 \break 
  %\mark #6
  \tempo
        \markup { \sans \bold
            "Calming ("
            \override #'(font-name . default)
            \fontsize #-2
            \general-align #Y #DOWN \note #"4" #0.9
            \sans "= 56)" }
  s8 s4.\p\< \times 2/3 { r8 ees g } \stemDown bes16 c ees f \times 2/3 { \stemUp g16 a bes~\mf } bes8~ bes2.
  s8 s4.\pp\< \times 2/3 { r8 d,, g} \stemDown bes16 d ees f \stemUp g32 bes d ees g8~\mp g2.
  
  \bar "|."
}

left = \relative c {
  \global
  \override Hairpin #'to-barline = ##f
  \override Staff.BarLine #'hair-thickness = #0.75
   \override Staff.TimeSignature #'stencil = #ly:text-interface::print
   
  % Music follows here.
  \times 2/3 { ees,4\sustainOn e'! aes } s2 s1
  \times 2/3 { ees,4\sustainOff\sustainOn e'! bes' } s2 s1
  ees,,1\sustainOff\sustainOn <ees' g bes>1\laissezVibrer^\markup { \sans "hold until m.18" }
  s1\sustainOff s1 ees,\sustainOn^\markup { \sans "RH" } s1\sustainOff s1 s1 s1 ees\sustainOn s1\sustainOff s1 
  r2. \dynamicUp ees4~\f\sustainOn ees1^\markup { \sans "release LH" }
  \dynamicNeutral s1 s1\sustainOff 
  s4\sustainOn s\sustainOff s\sustainOn s\sustainOff 
  s4\sustainOn s\sustainOff s s\sustainOn 
  s\sustainOff s s s\sustainOn 
  s2\sustainOff s4 s\sustainOn 
  s2\sustainOff s4 s\sustainOn
  s4\sustainOff\sustainOn s4 s2
  s4 s\sustainOn s s\sustainOff
  s1 s1
  s4\sustainOn s\sustainOff s s\sustainOn
  s1\sustainOff
  s1
  s4\sustainOn s\sustainOff s2
  s4.\sustainOn s8\sustainOff s2
  s1
  s4 s2.\sustainOn
  ees'8\sustainOff\sustainOn bes' s2. <ees, bes'>1\sustainOff\fermata\laissezVibrer^\markup { \sans "hold until m.44" }
  
  s1*5
  s2^\markup { \sans "release LH" } s2\sustainOn
  s1 s1 s1 s2 s2\sustainOff\sustainOn
  s1 s1 s2 s2\sustainOff\sustainOn
  s1 s1 s1 s1 s1 s2 s2\sustainOff\sustainOn
  s1 s2 s2\sustainOff\sustainOn
  s1 s2 s2\sustainOff\sustainOn
  s1 s1
  s1\sustainOff\sustainOn
  s1\sustainOff\sustainOn \bar "||"
  \key bes \major
  s8\sustainOff s_\markup { \sans "ped. ad lib., very blurry" } s2.
  s1*21
  
  <ees bes'>1\laissezVibrer^\markup { \sans "hold until m.100" }
  s1_\markup { \sans "no ped." }
  s1*10
  R1^\markup { \sans "release LH" }
  \times 2/3 { ees,4\sustainOn ees' bes' } s2 s1
  \times 2/3 { ees,,4\sustainOff\sustainOn ees' bes' } s2 s1
}

\score {
  \new PianoStaff \with {
    %instrumentName = "Piano"
     fontSize = #-1
    \override StaffSymbol #'staff-space = #(magstep -1)
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { \clef bass \left }
  >>
  \layout { 
   \context {
  \Score
        \remove Time_signature_engraver
         %\remove "Bar_number_engraver"
         \override BarNumber #'font-name = #"TeX Gyre Adventor" 
         
         \override TupletNumber #'font-name = #"TeX Gyre Adventor Italic"
           \override TupletNumber #'padding = #3
           
  \override MetronomeMark #'outside-staff-padding = #1
 
 \override RehearsalMark #'font-name = #"TeX Gyre Adventor Bold"
  \override RehearsalMark #'extra-spacing-width = #'(-0.5 . 0.5) 
  \override RehearsalMark #'Y-offset = #0 
  \override RehearsalMark #'outside-staff-padding = #3
  
  \override Slur #'thickness = #(variable-slur-thickness 3 10 1.4 2.7)
     \override Tie #'thickness = #(variable-slur-thickness 3 10 1.4 2.7)
  }
  }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 100 4)
    }
  }
}