User:Tsester/Hama-chidori (Hirota, Ryūtarō)

%version 0.4
\version "2.16.2"

\header {
  title = "浜千鳥 Hama-chidori"
  subtitle = "(Beach Plover)"
  composer = "鹿島 鳴秋 Kashima Meishû lyrics"
  arranger = "Hirota Ryūtarō music"
  copyright = "YKOYAMA Shin-Itsiro‘s Sheet Music Library   http://shin-itchiro.seesaa.net"
  tagline = "Creative Commons License Attribution 3.0 Unported"
}

\paper {
  #(set-paper-size "a4")
}

global = {
  \key c \minor
  \numericTimeSignature
  \time 3/4
%  \tempo "non troppo rapido"
}

chordNames = \chordmode {
  \global
  % Chords follow here.
  
}

melody = \relative c' {
  \global
  % Music follows here.
  \repeat unfold 2{
  \tempo 4 = 98
  r2.\mf|
  r2.|
  ees2 f4|
  g2^\< bes4|
  c2 ees4\!^\>|
  <<{bes2.} {s4 s4 s4\!}>>|
  c2 bes4|
  g4( f)^\> ees4|
  f2.(|
  \break
  <<{f2) r4} {s4 s4\! s4}>>|
  ees2^\< f4|
  g2 bes4 |
  c2\! ees4^\>|
  <<bes2. {s4 s4 s8 s8\!} >>|
  \break
  g4( f) ees|
  f2 bes4|
  g2.(^\>|
  <<{g2) r4} {s4 s4\! s4}>>
  bes2\mf bes4|
  \break
  c2 bes4|
  ees2 c4|
  bes2.|
  ees2 ees4|
  ees4( c) bes|
  \break
  ees2.(^\>|
  <<{ees2) r4} {s4 s4\! s4}>>|
  \tempo 4 = 98
  ees,2^\< f4|
  g2 bes4|
  <<{c2 ees4} {s4 s8 s8\! s4^\>}>>|
  \break
  <<bes2. {s4 s4 s4\!}>>|
  g2^\p bes4|
  <<{g2^\>-"rit." f4}{\tempo 4 = 97 s8\tempo 4 = 96 s8\tempo 4 = 96 s8\tempo 4 = 95 s8\tempo 4 = 94 s8\tempo 4 = 94 s8\tempo 4 = 93}>>|
  <<{ees2.(}{ s8\tempo 4 = 92 s8\tempo 4 = 92 s8\tempo 4 = 91 s8\tempo 4 = 90 s8\tempo 4 = 90 s8\tempo 4 = 89 }>>|
  <<{ees2\!)\fermata r4 \bar "|."}{ s8\tempo 4 = 88 s8\tempo 4 = 88 s8\tempo 4 = 87 s8\tempo 4 = 86 s8\tempo 4=86 s8\tempo 4=85}>>|
  }
}

verses = \lyricmode {
  \repeat unfold 2{}
  \alternative {
    {
  \set stanza = "1."
  % Lyrics follow here.
  a -- o -- |
  i tsu -- |
  ki -- yo |
  no |
  ha -- ma -- |
  be __ ni -- |
  wa __ |
  |
  o -- ya |
  o sa -- |
  ga -- shi -- |
  te |
  na __ ku |
  to -- ri |
  ga __ |
  |
  na -- mi |
  no ku -- |
  ni ka -- |
  ra |
  u -- ma -- |
  re __ de -- |
  ru __ |
  |
  nu -- re -- |
  ta tsu -- |
  ba -- sa |
  no |
  gi -- n |
  no i -- |
  ro __ |
  |
  }
  {  
  \set stanza = "2."
    yo -- ru |
  na -- ku |
  to -- ri |
  no |
  ka -- na -- |
  shi __ sa |
  wa __ |
  |
  o -- ya |
  o ta -- |
  zu -- ne -- |
  te |
  u __ mi |
  ko -- e -- |
  te __ |
  |
  tsu -- ki -- |
  yo no | 
  ku -- ni |
  e |
  ki -- e -- |
  te __ yu -- |
  ku __ |
  |
  gi -- n |
  no tsu -- |
  ba -- sa |
  no |
  ha -- ma -- |
  chi -- do -- |
  ri __ |
  |
  }
}
}

verseTwo = \lyricmode {
  \set stanza = "2."
  % Lyrics follow here.
  yo -- ru |
  na -- ku |
  to -- ri |
  no |
  ka -- na -- |
  shi __ sa |
  wa __ |
  |
  o -- ya |
  o ta -- |
  zu -- ne -- |
  te |
  u __ mi |
  ko -- e -- |
  te __ |
  |
  tsu -- ki -- |
  yo no | 
  ku -- ni |
  e |
  ki -- e -- |
  te __ yu -- |
  ku __ |
  |
  gi -- n |
  no tsu -- |
  ba -- sa |
  no |
  ha -- ma -- |
  chi -- do -- |
  ri __ |
  |
}

right = \relative c' {
  \global
  % Music follows here.
  \repeat unfold 2{
  s2.\mf|
  s2.|
  s2.|
  s2.|
  s2.|
  s2.|
  s2.|
  s2.|
  f2\(^\< bes4(\! |
  bes4) a^\> aes|
  <ees g>\)\! r8 s8 s4|
  s2.|
  s2.|
  s2.|
  s2.|
  s8 s4 \stemDown ees4_( d8) \stemNeutral|
  g4\( bes^\< \stemUp c \stemNeutral|
  ees f\! \stemUp g \stemNeutral|
  <bes, bes'>2\mf\)\( <bes bes'>4|
  <c c'>2 <bes bes'>4|
  <ees ees'>2 <c c'>4|
  <bes bes'>2.\)|
  <ees ees'>2\( <ees ees'>4|
  <<{<ees ees'> <c c'> <bes bes'>} \\ {r8 ees,4.( d4)} >>|
  <<{\stemUp <ees' ees'>2.^~ \stemNeutral} >>|
  <<{<ees ees'>2\)\> r4}{s4 s4 s8 s8\!}>>|
  s2.\mp|
  s2.|
  s2.|
  s2.|
  bes2.\p\(|
  bes4 a\> aes|
  <<{<ees! g>2.\)}{s2 s8 s8\!}>> |
  \ottava #1 <bes'' ees g>2\fermata  \ottava #0 r4|
  }
}

left = \relative c, {
  \global
  % Music follows here.
% \stemDown
  \repeat unfold 2{
  \clef bass
  <<{ees8[\mf(^\markup{ \italic \small "dolce"} bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"}{s8\sustainOn s4 s4 s8}>>|
  <<{ees,,8([\sustainOff bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"}{s8\sustainOff\sustainOn s4 s4 s8}>>|
  ees,,8[\sustainOff( bes' g'] \change Staff= "right" bes8[ <ees f> bes)] \change Staff = "left"|
  ees,,8[( bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"|
  \break
  ees,,8[_( c' g'] \change Staff= "right" c8[ <ees g> ces)] \change Staff = "left"|
  ees,,8_([ bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"|
  ees,,8_([ bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"|
  ees,,8_([ bes' g'] \change Staff= "right" bes8[ <ees g> bes)] \change Staff = "left"|
  <<{bes,8_([ f' bes] \change Staff = right d_[ f d)] \change Staff = left}{s8\< s8 s8 s8 s8\! s8}>> |
  bes,_([ f' bes]\> \change Staff = right c_[ d f)] \change Staff = left|
  ees,,_(\![ bes' g'] \change Staff = right bes[ <ees f> bes)] \change Staff = left|
  ees,,([ bes' g'] \change Staff = right bes[ <ees g> bes)] \change Staff = left |
  ees,,([ c' g'] \change Staff = right c[ <ees g > ces)] \change Staff = left |
  ees,,([ bes' g'] \change Staff = right bes[ <ees g> bes)] \change Staff = left|
  bes,_([ ees bes'] \change Staff = right ees[ <g bes> ees)] \change Staff = left|
  bes,([ f' bes] \change Staff = right f'[ bes aes]) \change Staff = left|
  ees,,_([ bes' g'\<] \change Staff = right ees'_[ g ees)] \change Staff = left|
  bes,_([ g' bes]\! \change Staff = right bes' ees bes) \change Staff =left|
  ees,,(\mf bes' ees g ees bes)|
  ees,( c' ees g ees c)|
  ees,( c' ees aes ees c)|
  e,( bes' des g des bes)|
  f( aes c f c aes)|
  <<{\voiceOne \change Staff =right r4 r8 f'4( fis8 \change Staff = left} \new Voice {\voiceTwo aes,4^( a bes)}>>|
  \change Staff = right \stemDown g'8)_\( bes g f ees c \stemNeutral
  <<{\change Staff = left bes^\markup{ \italic \small "poco rit."}^\> c bes g ees bes\!}{\tempo 4= 97 s8\tempo 4= 96 s8\tempo 4= 95 s8 \tempo 4= 94 s8\tempo 4= 93 s8\tempo 4= 92 s8\tempo 4= 98}>>|
  \stemDown ees,^\)[_(^\mp^\markup{\italic \small "a tempo"} bes' g'] \stemNeutral \change Staff = right bes <ees f> bes) \change Staff = left|
  ees,,_([ bes' g'] \change Staff = right bes <ees g> bes) \change Staff = left|
  ees,,_([ c' g'] \change Staff = right c <ees g> ces) \change Staff = left|
  ees,,([ bes' g'] \change Staff = right bes <ees g> bes) \change Staff = left|
  bes,([\p ees bes'] \change Staff = right ees g ees) \change Staff = left|
  bes,8[-"rit."_( e bes']^\> \change Staff = right \stemDown e) \stemUp <<{\stemDown f_( d)}\\ {\change Staff = left bes,^( bes')}>> \change Staff = left|
  ees,_(_[ bes' \change Staff = right g'] bes^[ <ees g> bes)]\! \change Staff = left \clef treble|
  \ottava #1 ees'2\fermata \ottava #0 r4|
  }
}

leadSheetPart = <<
  \new ChordNames \chordNames
  \new Staff \with {
    midiInstrument =  "trumpet"
  }
  { \melody }
  \addlyrics { \verses }
%  \addlyrics { \verseTwo }
>>

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \right
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \left }
>>

\score {
  <<
    \leadSheetPart
    \pianoPart
  >>
  \layout { }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 100 4)
    }
  }
}