\version "2.17.30"
\include "example-header.ily"

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This is a brief passage from Enrique Granados %
% Goyescas, "Coloquio en la Reja."              %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(set-global-staff-size 17)

\paper {
  ragged-right = ##f
  #(set-paper-size "letter" 'landscape)
  system-count = 1
}


csh = \change Staff = "high"
csm = \change Staff = "middle"
csl = \change Staff = "low"

crmolto = \markup { \italic \large "cresc. molto" }
appassmolto = \markup { \italic \large "appassionato molto" }

#(ly:set-option 'point-and-click #f)

global = {
  \time 3/4
  \set fontSize = #1
  \override Beam.thickness = #0.5
  \override NoteColumn.ignore-collision = ##t
}

upperVoiceOne = \relative c'' {
  \voiceOne
  \hide TupletBracket
  <aes f'>8\([ \tuplet 5/4{g'32( aes g f g]) }
    <es aes>8[ \tuplet 5/4{<d bes'>32( c' bes aes bes]) }
    <es, aes es'>8 <d fis b d>\) | % end m. 1
  %--------------------------------------------------%
  <c g' c>4\( \voiceTwo <bes es bes'\arpeggio>\)
    \slurUp <aes aes'>16( <bes bes'> <g g'>8) % end m. 2
  %--------------------------------------------------%
  \noBreak
  \voiceOne
  <f aes d f>8\([ \tuplet 5/4{<g g'>32( aes' g f g]) }
  \set subdivideBeams = ##t
  \set baseMoment = #(ly:make-moment 1/8)
  \set beatStructure = #'(2 2 2)
  <aes, aes'>16 <c f> \tuplet 5/4{ bes'32( c bes aes bes]) }
  \set subdivideBeams = ##f
  \ottava #1 <es es'>16 <f f'> <d d'> \appoggiatura f8 <es es'>16\)
}

upperVoiceTwo = \relative c'' {
  \voiceTwo
  s8 c8\< <bes, f'>[ <bes aes'> c' <bes, d fis>\!]
  s32 s32_\appassmolto s8. \voiceOne r8 <bes'' es bes'>-> s4
  \override Stem.cross-staff = ##t
  \override Stem.length = #28
  \override Flag.style = #'no-flag
  s8 \voiceTwo g,8 aes4 s4
}

middleVoiceOne = \relative c' {
  \override Stem.cross-staff = ##t
  \override Stem.length = #32
  \override Flag.style = #'no-flag
  d!8\noBeam s8 s8 s8_\crmolto s4  % 1
  s4 <g bes\arpeggio>8[ <es' g>] \voiceOne e,8( dis16 e) | % 2
  \revert Stem.length
  \revert Stem.cross-staff
  \showStaffSwitch
  \csh \stemUp f4 s2
  %s2.  % beginning m. 3
}

middleVoiceTwo = \relative c' {
  s2. | % 1
  \override Stem.cross-staff = ##t
  \override Stem.length = #24
  \override Flag.style = #'no-flag
  s2 \voiceTwo e!4 | % 2
  s4 \voiceTwo <bes c es f>8 <f' aes es'>16 d' <bes, f' aes c>8 <bes' fis'> | % 3
}

lowerVoiceOne = \relative c, {
  \override Staff.NoteCollision.merge-differently-headed = ##t
  \override Staff.NoteCollision.merge-differently-dotted = ##t
  bes8 \csm \stemDown <bes'' c es>8 s2
  \csl \stemUp
  \set subdivideBeams = ##t
  \set baseMoment = #(ly:make-moment 1/16)
  \set beatStructure = #'(4 4 4)
  s8 \hideNotes \slurUp \stemDown
    es,,64( bes'' s64 \unHideNotes \stemUp g64[ bes c d c]) s2
  \set subdivideBeams = ##f
  bes,,8 \csm \stemDown <bes'' c es>8 s2
}

lowerVoiceTwo = \relative c, {
  \voiceTwo
  bes2.
  \csh
  \once \override Beam.damping = #+inf.0
  <bes'' es g>8 \csl \slurUp
  %\once\override Slur.extra-offset = #'(0 . 4)
  es,,64 bes' es g s32.
    c64
    s4 <bes des>
  bes,,2.
}


\score {
  \new PianoStaff <<
    \set PianoStaff.connectArpeggios = ##t
%    \override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
    \new Staff = "high" <<
      \global
      \context Voice = "upperVoiceOne" { \upperVoiceOne }
      \context Voice = "upperVoiceTwo" { \upperVoiceTwo }
    >>
    \new Staff = "middle" <<
      \global
      \context Voice = "middleVoiceOne" { \middleVoiceOne }
      \context Voice = "middleVoiceTwo" { \middleVoiceTwo }
    >>
    \new Staff = "low" <<
      \clef bass
      \global
      \context Voice = "lowerVoiceOne" { \lowerVoiceOne }
      \context Voice = "lowerVoiceTwo" { \lowerVoiceTwo }
    >>
  >>
  \layout {
    \context {
      \Score
      \omit TimeSignature
      \remove "Bar_number_engraver"
    }
  }
  %{\midi {
    \tempo 4 = 120
  }%}
}
