\version "2.19.83"

% Requires openLilyLib/snippets and Bravura;
% see https://lilypondblog.org/2014/01/smufl-fonts-in-lilypond/
\include "custom-music-fonts/smufl/definitions.ily"

\header {
  title = "Absolution"
  composer = \markup { \bold "Makkon" }
  arranger = "arr. by Oliver Lacota"
  tagline = ##f
  
  % For 16:9 aspect ratio:
  %composer = \markup { \bold "Makkon" (arr. Oliver Lacota) }
  %arranger = ""
}

ottavaAlta = {
  \ottava #1
  \set Staff.ottavation = \markup { \smuflglyph #"ottavaAlta" }
}
ottavaBassa = {
  \ottava #-1
  \set Staff.ottavation = \markup { \smuflglyph #"ottavaBassaVb" }
}
ottavaBassaOnce = {
  \once\override Staff.OttavaBracket.style = #'none
  \ottavaBassa
}
quindicesimaAlta = {
  \ottava #2
  \set Staff.ottavation = \markup \smuflglyph #"quindicesimaAlta"
}
ottavaNeutral = {
  \ottava #0
  \unset Staff.ottavation
}

global = {
    \key c \minor
    \time 4/4
    \tempo 4=60
    \clef treble
}

cmotif = \relative c'' << {
  c16\( g c g d' g, es' g, d' g, c g\)
} \\ {
  c,2.->
} >>
asmotif = \relative c'' << {
  as16\( es as es bes' es, c' es, bes' es, as es\)
} \\ {
  as,2.->
} >>

right = \relative c''' {
  \global
  <g c es>2 <g c d> |
  <f bes d> <f bes c> |
  <es as bes> <es as c> |
  <bes es g>2. <bes es f>4 |
  <c f as>2 <c f g> |
  <des f g> <des f>4. f16 g |
  as2. as16. bes as16 |
  f2 <bes, d f>\arpeggio |
  \time 3/4
  << {
    \once \override Rest.extra-offset = #'(0.5 . -4.2)
    \stemDown d8\rest\( bes' bes[ bes] bes[ bes]\) \stemNeutral
  } \\ {
    <bes, d>2.
  } >> |
  \tempo 4=76 \bar "||"
  c'2.->~ | c2~ c8 c16\( d |
  \mark \markup { \musicglyph #"scripts.segno" }
  es8.^\markup { \italic \fontsize #-1 \halign #-1.15 "appassionato on repeat" } es es\) es16( d c) |
  c2~ c8 c16\( d |
  es8. es es\) es16( f es |
  c2~) c8 c16\( bes |
  g8. g g\) g16( f es |
  f2~) f8 f16\( g |
  as8. as as\) as16( bes as^\markup { \bold \halign #0.6 "to Coda" } |
  f2.) | R1*3/4 |
  <c f as>4. q8->( <c g'> <c f> |
  <as des f>2.) |
  <c f as>4. q8( <c g'> <c f> |
  <g c es>2.) |
  <es' as c>4.->\( q8 <es bes'> <es as> |
  <g c es>4.-> <g c>->\) |
  <des ges bes>2~ q8 <des ges as> |
  <es g bes>2.-> |
  \clef bass
  \ottavaBassa <es,,, es,>2~^\markup { \bold "D.S. al Coda" } q8 \quindicesimaAlta c''''16 d \ottavaNeutral |
  \clef treble \bar "||"
  \mark \markup { \musicglyph #"scripts.coda" } \break
  f,2. | r |
  <as as,>4.->\( q8-> <g g,>-> <f f,>-> |
  q2.->\) |
  <as as,>4.->\( q8-> <g g,>-> <f f,>-> |
  <es es,>2.->\) |
  <es, c'>4.\( q8 <es bes'> <es as> |
  <g es'>4. <es c'>4\) <g es'>8 |
  <as des f>4.\( q8 <as es'> <as des> |
  <c f as>4. <c f>\) |
  <es as c>4.\( q8 <es bes'> <es as> |
  <g c es>4. <g c>\) |
  bes2.~ |
  bes2~ bes8 as |
  bes2. |
  \clef bass \ottavaBassaOnce
  \once \override Staff.OttavaBracket.extra-offset = #'(0.2 . 0)
  <es,,,, es,> |
  \clef treble \tempo 4=60 \bar "||" \ottavaAlta
  es''''4. es8 d c |
  c2. |
  es4. es8 d c |
  bes2. |
  c2 bes8 as |
  es'4. c |
  \ottavaNeutral
  bes2~ bes8 as |
  <g bes>2.~ | q |
  \bar "|."
}
  
left = \relative c'' {
  \global
  g1 | f | es | es4 bes es d |
  c1 | des | <c f as>2 <as c f> | <d f bes>1~ |
  \time 3/4
  q2. |
  \repeat unfold 3 \cmotif |
  \asmotif | \cmotif | \asmotif |
  \clef bass
  << {
    es16\( bes es bes f' bes, g' bes, f' bes, es bes\) |
    des16\( as des as es' as, f' as, es' as, des as\) |
    f'16\( c f c g' c, as' c, g' c, f c\) |
    bes16\( f bes f c' f, d' f, c' f, bes f\) |
    \once \override Rest.extra-offset = #'(0 . 3.5)
    c16\rest\( f bes f c' f, d'4.\) |
  } \\ {
    es,2.-> |
	des-> |
	f-> |
	bes,-> |
	bes->
  } >>
  f''16\( c f c g' c, as' c, g' c, f c\) |
  des\( as des as es' as, f'4.\) |
  f16\( c f c g' c, as' c, g' c, f c\) |
  c\( g c g d' g, es'4.\) |
  \clef treble
  as16\( es as es bes' es, c' es, bes' es, as es\) |
  c'\( g c g c g es' g, c g c g\) |
  ges\( des ges des as' des, bes' des, as' des, ges des\) |
  es\( bes es bes f' bes, g' bes, f' bes, es bes\) |
  es,\( bes' es bes f' bes, g' bes, f' bes, es bes\) |
  << {
    bes'16\( f bes f c' f, d' f, c' f, bes f\) |
    bes\( f bes f c' f, d' f, c' f, bes f\) |
	\ottavaBassaOnce
    r \ottavaNeutral c\( f c f c as' c, f c f c\) |
    \clef bass
    r as\( des as es' as, f' as, es' as, des as\) |
    \clef treble
	\ottavaBassaOnce
    r \ottavaNeutral c\( f c g' c, as' c, g' c, f c\) |
    \clef bass
    r g\( c g d' g, es' g, d' g, c g\) |
    r es\( as es bes' es, c' es, bes' es, as es\) |
    r g\( c g d' g, es' g, c g c g\) |
    r as\( des as es' as, f' as, es' as, des as\) |
    \clef treble
	\ottavaBassaOnce
    r \ottavaNeutral c\( f c f c as' c, f c f c\) |
	\ottavaBassaOnce
    r \ottavaNeutral es\( as es bes' es, c' es, bes' es, as es\) |
	\ottavaBassaOnce
    r \ottavaNeutral g\( c g d' g, es' g, d' g, c g\) |
	\ottavaBassaOnce
    r \ottavaNeutral des\( ges des as' des, bes' des, as' des, ges des\) |
  } \\ {
    bes2.-> | bes-> |
    <f f,>-> |
    \clef bass
    <des des,>-> |
    \clef treble
    <f f,>-> |
    \clef bass
    <c c,>-> | <as as,>-> | <c c,>-> | <des des,>-> |
    \clef treble
    <f f,>-> |
    <as as,>-> |
    <c c,>-> |
	<ges ges,> |
  } >>

  ges16 des' ges des as' des, bes' des, as' des, ges des |
  <es es,> bes es bes f' bes, g' bes, f' bes, es bes |
  es, bes' es bes f' bes, g'4.\fermata |
  \tempo 4=60 \bar "||"
  <c g'>4. q |
  <as es'>2. |
  <c g'>4. q |
  <g d'>2. |
  <as es'> |
  <c g'> |
  <ges des'> |
  <es es'>~ | q |
  \bar "|."
}

dynamics = {
  \time 4/4 \tempo 4=60
  s1\ppp | s-"cresc." | s s s s
  s\p | s |
  \time 3/4
  s8 s\> s2 |
  \tempo 4=76 \bar "||"
  s2.\p | s s s s s s s s s s |
  s\pp | s s s s s s |
  s-"cresc." | s |
  s s s s s s |
  s-"cresc." | s s s |
  s\ff | s | s\mp | s s s |
  s\p | s s s s s s s s |
  \bar "|."
}

#(set! paper-alist (cons '("16:9" . (cons (* 344 mm) (* 193.5 mm))) paper-alist))

\book {
  \paper {
    paper-size = "a4"
    ragged-last-bottom = ##f
    
    % For 16:9 aspect ratio:
    %#(layout-set-staff-size 20)
    %#(set-paper-size "16:9")
    %top-margin = 8\mm
    %bottom-margin = 8\mm
    %left-margin = 4\mm
    %right-margin = 2\mm
    %indent = 0
    %short-indent = 0
    %print-page-number = ##f
  }
  \score {
    \new PianoStaff \with {
      instrumentName = "Piano"

      % For 16:9 aspect ratio:
      %instrumentName = ""
    } <<
      \new Staff = "right" \right
	  \new Dynamics \dynamics
      \new Staff = "left" \left
    >>
    \layout { }
    \midi { }
  }  
}