Traces of the grave.

          pompei5.mid           pompei5.pdf           pompei5-sheet.pdf           pompei5.mp3

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


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

%%% --- One ----------------------------------------------------------------------
sopranoOne = {
             \clef soprano
             \key d\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "sop" }
\autoBeamOff
%8-12
 a'4. a'4. | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
 fis''8[ e'' d'' cis''] b'4 | e''2 d''8[ cis''] | fis''2 cis''4 | a'2. |
 \break
 }

altoOne = {
          \clef alto
          \key d\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%8-12
 a4. a4. | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
 g'8[ fis' e' d'] cis'4 | e'2 cis'8[ b] | g'2 b4 | a2. |
 \break
 }

tenorOne = {
          \clef tenor
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%1-7
 aes4. aes4. | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
 ges'8[ fes' ees' des'] ces'4 | fes'2 des'8[ ces'] | aes'2 ces'4 | aes2. |
 \break
 }

bassOne = {
          \clef bass
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%1-7
 aes,4. aes,4. | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
 ges8[ fes ees des] ces4 | ees2 ces8[ bes,] | ges2 bes,4 | aes,2. |
 \break
 }

%%% --- Two ----------------------------------------------------------------------
sopranoTwo = {
             \clef soprano
             \key d\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "sop" }
             \set Staff.shortInstrumentName = \markup {\teeny \italic "sop" }
\autoBeamOff
%22-28
  b'8[ cis''] b'4. cis''8 | a'2. |
  g'4 a' g'~ | g' a' fis'~ | fis'2. |
  d''4 e'' d''~ | d''2. |
\break
 }

altoTwo = {
          \clef alto
          \key d\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "alt" }
          \set Staff.shortInstrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%22-28
  e'8[ fis'] e'4. fis'8 | d'2. |
  cis'4 d' cis'~ | cis' d' b~ | b2. |
  g'4 a' g'~ | g'2. |
\break
 }

tenorTwo = {
             \clef tenor
             \key ces\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "ten" }
             \set Staff.shortInstrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%15-21
  bes8[ ces'] bes4. ces'8 | aes2. |
  ges4 aes ges~ | ges aes fes~ | fes2. |
  des'4 ees' des'~ | des'2. |
\break
 }

bassTwo = {
          \clef bass
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "bas" }
          \set Staff.shortInstrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%15-21
  ees8[ fes] ees4. fes8 | des2. |
  ces4 des ces~ | ces des bes,~ | bes,2. |
  ges4 aes ges~ | ges2. |
\break
 }

%%---- Three ---------------------------------------------------------------------
upper = {
     \clef treble
     \key d\major \time 3/4 \tempo 4 = 54
     \set Staff.midiInstrument = "acoustic grand"
     \set Staff.instrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
     \set Staff.shortInstrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
 << { fis''8^\markup { \hspace #-8 "treble; G clef on 2nd line" }
 [ e'' d'' cis''] b'4 | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
 e''2 fis''8[ g''] | e''2 d''8[ cis''] | fis''2 cis''4 |
 \repeat volta 2 { a'2.^\fermata } \bar "|." }
 \\
    { g'8[ fis' e' d'] cis'4 | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
 fis'2 g'8[ a'] | e'2 cis'8[ b] | g'2 b4 |
 \repeat volta 2 { a2._\fermata } \bar "|." } >>
 \break
 }

lower = {
     \clef bass
     \key ces\major \time 3/4 \tempo 4 = 54
     \set Staff.midiInstrument = "acoustic grand"
     \set Staff.instrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
     \set Staff.shortInstrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
 << { ges'8[ fes' ees' des'] ces'4 | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
 fes'2 ges'8[ aes'] | fes'2 des'8[ ces'] | aes'2 ces'4 |
 \repeat volta 2 { aes2.^\fermata } \bar "|." }
 \\
    { ges8[ fes ees des] ces4 | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
 fes2 ges8[ aes] | ees2 ces8[ bes,] | ges2 bes,4 |
 \repeat volta 2 { aes,2._\fermata } \bar "|." } >>
 \break
 }
%%------------------------------------------------------------------------------


\book {
\header {
  dedication = "Wordless Poem"
  title = "Traces of the grave."
  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.20(May. 11, 2007)"}

}

%% --- get sheet music
\score {
           \context ChoirStaff = "Sheet" <<
               \context Staff = "UpAsheet" { \tenorOne \sopranoOne
                                             \tenorTwo \sopranoTwo \upper
                                           }

               \context Staff = "DownBsheet" { \bassOne \altoOne
                                               \bassTwo \altoTwo \lower
                                             }
                                      >>

  \layout { indent = 0.00\mm }
       }

%% --- get midi music
\score {
           \unfoldRepeats
           \context ChoirStaff = "Midi" <<
               \context Staff = "UpAmidi" { \tenorOne \sopranoOne
                                            \tenorTwo \sopranoTwo \upper
                                          }

               \context Staff = "DownBmidi" { \bassOne \altoOne
                                              \bassTwo \altoTwo \lower
                                            }
                                      >>

  \midi { }
        }
}


---- name pompei5-sheet.latex -------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{palevioletred}{rgb}{0.85881,0.43921,0.57646}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt

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

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