Siena in Autumn

          siena.mid           siena.pdf           siena-sheet.pdf           siena.mp3

This sounds "siena.mp3" and Please click! music plays.
[picture of music]

[picture of music]




Source code(siena.ly , siena-latex.latex , run-script.cmd)
---- name siena.ly ---------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.18.0"
#(set-default-paper-size "a4")
#(set-global-staff-size 16)

\paper{ paper-height = 280\mm
}

\header {
  dedication = "Wordless Poem"
  title = "Siena in Autumn"
  subtitle = "Dance of Plazza del Campo"
  instrument = \markup \center-column {
                   "tenor; C clef on 4th line,   bass; F clef on 4th line."
                   \italic " Please, Piano is free " }
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.25(Nov. 01, 2007)"}
}

tenor = {
%1--4
      \autoBeamOff
      \repeat volta 2 { r8^\markup { \column{\italic "Largo" " "} }
        <ees' aes'>16[ <d' g'> <c' f'>8]
        <ees' aes'>16[ <d' g'> <c' f'>8] <bes ees'>8[ <c' f'> <d' g'>

                                                  <ees' aes'>]~ <ees' aes'>4. |
        r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 | }
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      << { \stemDown g'2 aes'8 g'2.. } \\ { R1. } >> |
\break
%5--8
      << { R1.} \\ { g2 bes8 g2.. } >> |
      \repeat volta 2 {
        <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 |
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 | }
      << { bes'4 aes' g' f'2. } \\ { R1. } >> |
\break
%9--12
      << { R1. } \\ { c4 f bes ees'2. }>> |
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      \repeat volta 2 {
        <c' f'>4 <c' f'>4 <c' f'>4 <c' f'>4 <ees' aes'>2 |
        <ees' aes'>4 <ees' aes'>4 <ees' aes'>4 <ees' aes'>4
                                                     <f' bes'>8 <ees' aes'>4. | }
\break
%13--17
      \repeat volta 2 {
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 |
        <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 | }
      <g c'>4 <g c'>4 <g c'>4 <g c'>4 <f bes>2 |
      << { R1. } \\ { c4 f bes ees'2. }>> |
      << { \stemDown bes'4 aes' g' f'2. \stemNeutral} \\ { R1. } >> |
\break
%18--20
      r8^\markup{ \column{\italic "Accelerndo" " "} }
      <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
      <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>4. |
      r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 |
      <c' f'>4 <c' f'>4 <c' f'>4 <c' f'>4 <ees' aes'>2 |
\break
%21-23
      <ees' aes'>4 <ees' aes'>4 <ees' aes'>4 <ees' aes'>4
                                                     <f' bes'>8 <ees' aes'>4. |
      \repeat volta 2 { r8 <ees' aes'>16[ <d' g'> <c' f'>8]
        <ees' aes'>16[ <d' g'> <c' f'>8] <bes ees'>8[ <c' f'> <d' g'>

                                                  <ees' aes'>]~ <ees' aes'>4. |
        r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 | }
\break
%24--27
      <f f'>2^\markup { \italic "A tempo" } <bes bes'>8 <f f'>2 r4. |
      << { \stemDown g'2 aes'8 g'2.. } \\ { R1. } >> |
      \repeat volta 2 {
        <aes d'>16[^\markup { "Veloce" } <bes ees'> <c' f'>8]
        <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 |
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 | }
\break
%28--32
      r8 <aes d'>16[ <bes ees'> <c' f'>8]
      <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 |
      <f f'>2^\markup { \italic "A tempo" } <bes bes'>8 <f f'>2 r4. |
      << { bes'4 aes' g' f'2. } \\ { R1. } >> |
      << { R1. } \\ { c4 f bes ees'2.~ }>> |
      << { aes'1.^\fermata } \\ {ees'1._\fermata } >> \bar "|."
}

bass = {
%1--4
       \autoBeamOff
       \repeat volta 2 {
         << { ees4^\markup { \italic "Largo" } ees ees ees g2 } \\
                                             { bes,4 bes, bes, bes, d2 }>> |
         << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> | }
         << { c'4 c' c' c' ees'2 } \\ { c4 c c c ees2 } >> |
       << { R1. } \\ { ees4 d c bes,2. } >> |
\break
%5--8
       << { c'4 bes aes g2. } \\ { R1. } >> |
       \repeat volta 2 {
         r8 << { d4 d d d2 ees8 } \\ { aes,4 aes, aes, aes,2 bes,8 } >> |
         r8 << { ees4 ees ees ees2~ ees8 } \\ { g,4 g, g, g,2~ g,8 } >> | }
       << { g4 aes bes c'2. } \\ { R1. } >> |
\break
%9--12
       << { R1. } \\ { g4 f ees d2. } >> |
       << { bes4 bes bes c'2. } \\ { bes,4 bes, bes, c2. } >> |
       \repeat volta 2 {
         r8 << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes4. } \\
           { bes,16[ aes, g,8] bes,16[ aes, g,8] f,8[ g, aes, bes,]~ bes,4. } >> |
         r8 << { ees16[ f g8] ees16[ f g8]~ g8[ f ees]~ ees4. } \\
                     { bes,16[ c d8] bes,16[ c d8]~ d8[ c bes,]~ bes,4. } >> r8 | }
\break
%13--17
       \repeat volta 2 {
         << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes2 } \\
                             { f16[ ees d8] f16[ ees d8] c8[ d ees f]~ f2 } >> |
         << { ees16[ f g8] ees16[ f g8.]~ g8[ f ees8.]~ ees2 } \\
               { ees,16[ f, g,8] ees,16[ f, g,8.]~ g,8[ f, ees,8.]~ ees,2 } >> | }

         << { ees4 ees ees ees c2 } \\ { bes,4 bes, bes, bes, g,2 }>> |
       << { R1. } \\ { g4 f ees d2. } >> |
       << { \stemDown g4 aes bes c'2. \stemNeutral } \\ { R1. } >> |
\break
%18-20
       << { ees4^\markup{ \italic "Accelerndo" } ees ees ees g2 } \\
                                                { bes,4 bes, bes, bes, d2 }>> |
       << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> |
       << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes2 } \\
                             { f16[ ees d8] f16[ ees d8] c8[ d ees f]~ f2 } >> |
\break
%21--23
       r8 << { ees16[ f g8] ees16[ f g8]~ g8[ f ees]~ ees4. } \\
                     { bes,16[ c d8] bes,16[ c d8]~ d8[ c bes,]~ bes,4. } >> r8 |
       \repeat volta 2 {
         << { ees4 ees ees ees g2 } \\ { bes,4 bes, bes, bes, d2 }>> |
         << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> | }
\break
%24--27
         << { c'4^\markup { \italic "A tempo" } c' c' c' ees'2 } \\
                                                   { c4 c c c ees2 } >> |
       << { R1. } \\ { ees4 d c bes,2. } >> |
       \repeat volta 2 {
         r8^\markup { \italic "Veloce" }
         << { d4 d d d2 ees8 } \\ { aes,4 aes, aes, aes,2 bes,8 } >> |
         r8 << { ees4 ees ees ees2~ ees8 } \\ { g,4 g, g, g,2~ g,8 } >> | }
\break
%28--32
       << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> |
       << { bes4^\markup { \italic "A tempo" } bes bes c'2. } \\
                                             { bes,4 bes, bes, c2. } >> |
       << { g4 aes bes c'2. } \\ { R1. } >> |
       << { R1. } \\ { g4 f ees d2.~ } >> |
       << { g1.^\fermata } \\ { d1._\fermata } >> \bar "|."
}

pianoUP = {
%1-32
       << { s1. * 32 } \\ {s1. * 32 } >>

}

pianoDown = {
%1-32
       << { s1. * 32 } \\ {s1. * 32 } >>
}


%%%--- For MID -------------------------------------------------------------------
tenorM = {
%1--4
      \autoBeamOff
      \repeat volta 2 { r8 <ees' aes'>16[ <d' g'> <c' f'>8]
        <ees' aes'>16[ <d' g'> <c' f'>8] <bes ees'>8[ <c' f'> <d' g'>

                                                  <ees' aes'>]~ <ees' aes'>4. |
        r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 | }
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      << { \stemDown g'2 aes'8 g'2.. } \\ { R1. } >> |
\break
%5--8
      << { R1.} \\ { g2 bes8 g2.. } >> |
      \repeat volta 2 {
        <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 |
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 | }
      << { bes'4 aes' g' f'2. } \\ { R1. } >> |
\break
%9--12
      << { R1. } \\ { c4 f bes ees'2. }>> |
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      \repeat volta 2 {
        <c' f'>4 <c' f'>4 <c' f'>4 <c' f'>4 <ees' aes'>2 |
        <ees' aes'>4 <ees' aes'>4 <ees' aes'>4 <ees' aes'>4
                                                     <f' bes'>8 <ees' aes'>4. | }
\break
%13--17
      \repeat volta 2 {
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 |
        <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 | }
      <g c'>4 <g c'>4 <g c'>4 <g c'>4 <f bes>2 |
      << { R1. } \\ { c4 f bes ees'2. }>> |
      << { \stemDown bes'4 aes' g' f'2. \stemNeutral} \\ { R1. } >> |
\break
%18--20
      \tempo 4 = 84
      r8 <ees' aes'>16[ <d' g'> <c' f'>8]
      <ees' aes'>16[ <d' g'> <c' f'>8] <bes ees'>8[ <c' f'> <d' g'>

                                                  <ees' aes'>]~ <ees' aes'>4. |
      r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 |
      <c' f'>4 <c' f'>4 <c' f'>4 <c' f'>4 <ees' aes'>2 |
\break
%21-23
      <ees' aes'>4 <ees' aes'>4 <ees' aes'>4 <ees' aes'>4
                                                     <f' bes'>8 <ees' aes'>4. |
      \repeat volta 2 { r8 <ees' aes'>16[ <d' g'> <c' f'>8]
        <ees' aes'>16[ <d' g'> <c' f'>8] <bes ees'>8[ <c' f'> <d' g'>

                                                  <ees' aes'>]~ <ees' aes'>4. |
        r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 | }
\break
%24--27
      \tempo 4 = 48
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      << { \stemDown g'2 aes'8 g'2.. } \\ { R1. } >> |
      \tempo 4 = 108
      \repeat volta 2 {
        <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8.]~
                                     <c' f'>8[ <bes ees'> <aes d'>8.]~ <aes d'>2 |
        <ees' aes'>16[ <d' g'> <c' f'>8] <ees' aes'>16[ <d' g'> <c' f'>8]
                         <bes ees'>8[ <c' f'> <d' g'> <ees' aes'>]~ <ees' aes'>2 | }
\break
%%28--32
       r8 <aes d'>16[ <bes ees'> <c' f'>8] <aes d'>16[ <bes ees'> <c' f'>8]~
                                <c' f'>8[ <bes ees'> <aes d'>]~ <aes d'>4. r8 |
      \tempo 4 = 48
      <f f'>2 <bes bes'>8 <f f'>2 r4. |
      << { bes'4 aes' g' f'2. } \\ { R1. } >> |
      << { R1. } \\ { c4 f bes ees'2.~ }>> |
      << { aes'1.^\fermata } \\ {ees'1._\fermata } >> \bar "|."
}

bassM = {
%1--4
       \autoBeamOff
       \repeat volta 2 {
         << { ees4 ees ees ees g2 } \\ { bes,4 bes, bes, bes, d2 }>> |
         << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> | }
         << { c'4 c' c' c' ees'2 } \\ { c4 c c c ees2 } >> |
       << { R1. } \\ { ees4 d c bes,2. } >> |
\break
%5--8
       << { c'4 bes aes g2. } \\ { R1. } >> |
       \repeat volta 2 {
         r8 << { d4 d d d2 ees8 } \\ { aes,4 aes, aes, aes,2 bes,8 } >> |
         r8 << { ees4 ees ees ees2~ ees8 } \\ { g,4 g, g, g,2~ g,8 } >> | }
       << { g4 aes bes c'2. } \\ { R1. } >> |
\break
%9--12
       << { R1. } \\ { g4 f ees d2. } >> |
       << { bes4 bes bes c'2. } \\ { bes,4 bes, bes, c2. } >> |
       \repeat volta 2 {
         r8 << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes4. } \\
           { bes,16[ aes, g,8] bes,16[ aes, g,8] f,8[ g, aes, bes,]~ bes,4. } >> |
         r8 << { ees16[ f g8] ees16[ f g8]~ g8[ f ees]~ ees4. } \\
                     { bes,16[ c d8] bes,16[ c d8]~ d8[ c bes,]~ bes,4. } >> r8 | }
\break
%13--17
       \repeat volta 2 {
         << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes2 } \\
                             { f16[ ees d8] f16[ ees d8] c8[ d ees f]~ f2 } >> |
         << { ees16[ f g8] ees16[ f g8.]~ g8[ f ees8.]~ ees2 } \\
               { ees,16[ f, g,8] ees,16[ f, g,8.]~ g,8[ f, ees,8.]~ ees,2 } >> | }

         << { ees4 ees ees ees c2 } \\ { bes,4 bes, bes, bes, g,2 }>> |
       << { R1. } \\ { g4 f ees d2. } >> |
       << { \stemDown g4 aes bes c'2. \stemNeutral } \\ { R1. } >> |
\break
%18-20
       \tempo 4 = 84
       << { ees4 ees ees ees g2 } \\ { bes,4 bes, bes, bes, d2 }>> |
       << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> |
       << { bes16[ aes g8] bes16[ aes g8] f8[ g aes bes]~ bes2 } \\
                             { f16[ ees d8] f16[ ees d8] c8[ d ees f]~ f2 } >> |
\break
%21--23
       r8 << { ees16[ f g8] ees16[ f g8]~ g8[ f ees]~ ees4. } \\
                     { bes,16[ c d8] bes,16[ c d8]~ d8[ c bes,]~ bes,4. } >> r8 |
       \repeat volta 2 {
         << { ees4 ees ees ees g2 } \\ { bes,4 bes, bes, bes, d2 }>> |
         << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> | }
\break
%24--27
       \tempo 4 = 48
       << { c'4 c' c' c' ees'2 } \\ { c4 c c c ees2 } >> |
       << { R1. } \\ { ees4 d c bes,2. } >> |
       \tempo 4 = 108
       \repeat volta 2 {
         r8 << { d4 d d d2 ees8 } \\ { aes,4 aes, aes, aes,2 bes,8 } >> |
         r8 << { ees4 ees ees ees2~ ees8 } \\ { g,4 g, g, g,2~ g,8 } >> | }
%28--32
       << { g4 g g g bes8 g4. } \\ { d4 d d d f8 d4. } >> |
       \tempo 4 = 48
       << { bes4 bes bes c'2. } \\ { bes,4 bes, bes, c2. } >> |
       << { g4 aes bes c'2. } \\ { R1. } >> |
       << { R1. } \\ { g4 f ees d2.~ } >> |
       << { g1.^\fermata} \\ { d1._\fermata } >> \bar "|."
}


pianoUPM = {
%1--32
       << { s1. * 32 } \\ {s1. * 32 } >>

}

pianoDownM = {
%1--32
       << { s1. * 32 } \\ {s1. * 32 } >>
}


%% get sheet music ---------------------------------------------------------------
\score {
         <<
           \context ChoirStaff = "FourPartStaffaddchorus" <<
           \new Voice = "tenor" { \clef tenor \key ees\major \time 3/2
                        \set Staff.instrumentName = "tenor"   \tenor }

           \new Voice = "alto" { \clef bass \key ees\major \time 3/2
                        \set Staff.instrumentName = "bass "    \bass }
                                            >>

         \context PianoStaff
             \with { \override VerticalAlignment #'forced-distance = #6 }
                  <<
         \context Staff = "upper" \new Voice { \clef treble \key a\major \time 3/2
           \set Staff.fontSize = #-3
                   \override Staff.StaffSymbol #'staff-space = #(magstep -3)
                   \override Staff.StaffSymbol #'thickness =#(magstep -3)
           \set Staff.instrumentName = \markup {\column{" " " " "piano  "}}
                                                                       \pianoUP }

         \context Staff = "lower" \new Voice { \clef bass \key a\major \time 3/2
           \set Staff.fontSize = #-3
                   \override Staff.StaffSymbol #'staff-space = #(magstep -3)
                   \override Staff.StaffSymbol #'thickness =#(magstep -3)
                                                                      \pianoDown }
                    >>


         >>

  \layout {}
}

%% get midi music ----------------------------------------------------------------
\score {
         <<
           \context ChoirStaff = "FourPartStaffaddchorus" <<
           \new Voice = "tenor" { \clef tenor \key ees\major \time 3/2
             \set Staff.midiInstrument = "pad 4 (choir)" \unfoldRepeats   \tenorM }

           \new Voice = "alto" { \clef bass \key ees\major \time 3/2
             \set Staff.midiInstrument = "synth voice" \unfoldRepeats     \bassM }
                                            >>

         \context PianoStaff
             \with { \override VerticalAlignment #'forced-distance = #6 }
                  <<
         \context Staff = "upper" \new Voice { \clef treble \key a\major \time 3/2
           \set Staff.midiInstrument = "acoustic grand"  \unfoldRepeats  \pianoUPM }

         \context Staff = "lower" \new Voice { \clef bass \key a\major \time 3/2
           \set Staff.midiInstrument = "acoustic grand"  \unfoldRepeats \pianoDownM }
                    >>


         >>

  \midi { tempoWholesPerMinute = #(ly:make-moment 48 4) }
}


---- name siena-sheet.latex ----------------------------------------------------
%% Time-stamp: "Sat Jun 12 02:13:08 JST 2010"
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{gray86}{rgb}{0.85881,0.85881,0.85881}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt

\begin{document}
\thispagestyle{empty}
\pagecolor{gray86}
\vspace*{-16pt}
\everypar = {\hspace*{-20pt}}
%% \input siena-systems.tex
\includegraphics{siena-1}\par
\includegraphics{siena-2}\par
\vfill

\end{document}


--- name run-script.cmd ----------------------------------------------------------
@Echo off
chcp 437
rem === make; "1:59:27.01 2018/08/24" Yukio Yoshida. 
rem === This is Letter paper! Are you OK? ===
@Echo on
lilypond -dbackend=eps %1.ly
lilypond --pdf --png %1.ly
latex %1-sheet.latex
dvips -t letter -P pdf %1-sheet.dvi
gswin64c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
pause
%1-sheet.pdf | %1-sheet.png | %1.pdf | %1.png | %1.mid
Erase *.aux *.count *.dvi *.ps *.eps *.log *.pdf ^
*.tex *.texi *.mid *.png
dir /oe
----------------------------------------------------------------------------------

usally;(cmd prompt)   >lilypond --png --pdf siena.ly[Enter]

run-script.cmd;(cmd prompt)   >run-script siena[Enter]
(However, this "Windows10(64bit) + LilyPond(ver2.18.*) + W32TeX(& UP) + Ghostscript(edition 64bit)" is required.)