\version "2.22.1"
\include "lelijk.txt"
\header {
  tagline = ##f
}

startParenthesis = {
  \once \override ParenthesesItem.stencils = #(lambda (grob)
        (let ((par-list (parentheses-item::calc-parenthesis-stencils grob)))
          (list (car par-list) point-stencil )))
}

endParenthesis = {
  \once \override ParenthesesItem.stencils = #(lambda (grob)
        (let ((par-list (parentheses-item::calc-parenthesis-stencils grob)))
          (list point-stencil (cadr par-list))))
}

 
globalDOROTHY = {
  \key e \major
  \time 4/4
  %\partial 2
  \breatheSymbol
  \numericTimeSignature
}

voltaText = \markup { \text \small \italic { last time only } }
myVolta = \set Score.repeatCommands = #(list (list 'volta voltaText))
myClose = \set Score.repeatCommands = #(list (list 'volta #f))

rightOneDOROTHY = \relative c'' {
  \globalDOROTHY \once \override Score.RehearsalMark.self-alignment-X = #RIGHT
  \mark \markup \italic \bold \normalsize "Refrain" b4 b cis cis
  
  b4. a8 a gis4. 
  a4. a8 gis8 fis e4
  fis4 fis8 gis gis2 
  b4 b cis cis
  b4. a8 a gis4.
  a4. a8 gis8 fis e4 
  fis2 gis4. fis8 
  e1 \bar "||" \ov R1  \myVolta e1 \allowVoltaHook ".|:" \myClose
  \bar "||"
  \mark \markup \normalsize \italic \bold "Verse" \once \override Score.RehearsalMark.self-alignment-X = #LEFT
  \bar ".|:" b'4 b b b 
  b4. 8 a gis fis4
  gis4 4 4  \slurDashed 8( 8)
  gis8 fis4 e8 fis2
  e4 e fis e8( fis)
  gis4. 8 \slurSolid a( gis) fis4
  gis8 \noBeam b~ b4~ b2
  cis8 \noBeam b~ b4~ b2
  \bar ":|."
}

rightTwoDOROTHY = \relative c' {
  \globalDOROTHY
  
  gis'4 4 a a
  dis,2  e
  cis b
  dis e
  gis4 4 a a 
  dis,2 e
  cis b
  <cis e> <b dis>
  b1 s1 b1
  gis'4 4 cis,4 4
  dis2 cis
  e4 e cis2
  dis fis
  gis, a
  b cis
  e1
  <dis fis> 
  \bar "|."
}
 

leftTwoDOROTHY = \relative c {
  \globalDOROTHY
  
  e2 a,
  b cis
  a' e4 gis
  b b, e2
  e a, 
  b cis
  a'e4 gis, 
  a2 b
  <<\voiceOne {<e gis>1 s1 <gis e>1} 
    \new Voice {\voiceTwo \stemUp \ss 
                \override ParenthesesItem.font-size = #0
                \startParenthesis \parenthesize e,2 fis gis2 a2 \endParenthesis \parenthesize e1} >>
  \oneVoice e2 fis
  gis a
  e' <a fis> 
  <b gis> <cis a>
  e,, fis
  gis a
  e' gis
  b b,
  
}


\score {  
  
    
  \new PianoStaff  <<
    \set PianoStaff.connectArpeggios = ##t
  \override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
    \new Staff = "right" { << \rightOneDOROTHY \\ \rightTwoDOROTHY>>}
    \new Staff = "left" \with {\clef bass} { \leftTwoDOROTHY}
         >> 
}