Passing by the grave, to town.

          pompei4.mid           pompei4.pdf           pompei4-sheet.pdf           pompei4.mp3

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


Source code(pompei4.ly , pompei4-sheet.latex , run-script.cmd)
%% -*- Coding: utf-8 -*-
%% 2011/02/17; Text corrections.
\version "2.18.0"
#(set-default-paper-size "a4")
#(set-global-staff-size 22)

sopranoOne = {
             \clef soprano
             \set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
 \repeat volta 3 {
 \repeat volta 2 {
 cis''2._\mp\<\( | e''4. d'' | b'2. | d''4. cis'' |
 e''2. | b'4. cis''\!\) | } d''2.^\fermata | }
\break
}

altoOne = {
          \clef alto
          \set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
 \repeat volta 3 {
 \repeat volta 2 {
 fis'2._\mp\<\( | a'4. g' | e'2. | g'4. fis' |
 a'2. | e'4. fis'\!\) | } g'2. | }
\break
}

tenorOne = {
          \clef tenor
          \set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
 \repeat volta 3 {
 \repeat volta2 {
 fes4 ges\mp^\<  fes | des2.\! | ces4\mp^\< ees des |
 ees2.\! | des4\mp^\< fes ees | ces2.\! | } des2._\fermata | }
\break
}

bassOne = {
          \clef bass
          \set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
 \repeat volta 3 {
 \repeat volta2 {
 bes,4 ces\mp^\<  bes, | ges,2.\! | fes,4\mp^\< aes, ges, |
 aes,2.\! | ges,4\mp^\< bes, aes, | fes,2.\! | } ges,2. | }
\break
}


\header {
  dedication = "Wordless Poem"
  title = "Passing by the grave, to town."
  subtitle = "grand piano"
  subsubtitle = \markup\center-column {
                   "soprano; C clef on 1th line,   alto; C clef on 3th line."
                   "     tenor; C clef on 4th line,   bass; F clef on 4th line."}
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.19(Apr. 4, 2007)"}

}
%% --- get sheet music
\score {
           \context ChoirStaff = "UP" <<
               \context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 62
                                           \altoOne
                                      }

               \context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 62
                                            \bassOne
                                      }
                                      >>

  \layout { indent = 20.00\mm }
}

\markup { \column {
\line {\hspace #10 "Passing in cemetery, We are going into a town."}
\line {\hspace #10 "Passing out cemetery, We are going out the town"}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
                  }
        }


\score {
           \context ChoirStaff = "DOWN" <<
               \context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 62
                                           \sopranoOne
                                      }

               \context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 62
                                           \tenorOne
                                      }
                                      >>

  \layout { indent = 20.00\mm }
}

%% --- get midi music
\score {
           \unfoldRepeats
           \context ChoirStaff = "UPDOWN" <<
               \context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 64
                                            \altoOne \sopranoOne
                                      }

               \context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 64
                                              \bassOne \tenorOne
                                      }
                                      >>

  \midi {
        %% Remove the dynamics from the midi output
            %% \context { \Voice
            %% \remove "Dynamic_performer"
            %% \remove "Span_dynamic_performer"
            %%       }
        %% \context { \Score
            %% tempoWholesPerMinute = #(ly:make-moment 62 4)}
            %%         }
         }
}

\markup { \column {
\line {\hspace #10 "This , Our life is the same?"}
\line {\hspace #10 "Born to live life, Life in the dead leaves!"}
\line {" "}
\line {" "}
                 }
        }

---- name pompei4-sheet.latex --------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{tomato1}{rgb}{1,0.38823,0.27843}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt

\begin{document}
\thispagestyle{empty}
\pagecolor{tomato1}
\vspace*{-16pt}
\hspace*{-20pt}
\input pompei4-systems.tex
\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 pompei4.ly[Enter]

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