Permanence of Pompei

          pompei3.mid           pompei3.pdf           pompei3-sheet.pdf           pompei.mp3

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


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

\header {
  dedication = "Wordless Poem"
  title = "Permanence of Pompei"
  subtitle = "At Pompei city in Italia"
  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."}
  poet = ""
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.18(Mar 25 2007)"}
}

sopranoOne = {
             \clef soprano
             \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%25-29
 \repeat volta 2 {
 b!1.^\ppp^(_\( | cis')^( | fis')^( | b')( | cis'')( | ais')( | cis'')( |
\break
 dis'')( | eis'')( | cis'')( | dis'')( | eis'')\)_(\ff^\fermata } |
 eis'')^\fermata\sfp
  \bar "|."
\break
}


altoOne = {
          \clef alto
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%1-4
  r8 fis4. b16[ cis'8. cis'8] dis'8 b2 |
  r8 eis4. ais16[ b8. b8] eis'8 cis'2 |
  r8 gis4. cis'16[ dis'8. dis'8] eis'8 c'!2 |
  dis'16[ fis'8. eis'16 gis'8.] dis'2. b16[ ais8.] |
\break
%5-9
  r4 ais4. b16[ cis'8.] dis'4. cis'4 |
  gis2.( fis') | eis2._( ais') |
  ais8[ gis] b16[ ais8.] cis'8[ b] dis'16[ b8.]
  cis'8[ ais] b16[ gis8.] |
  f8 b16[ cis'8. cis'8] dis'8.[ eis'16 fis'8 e'!] b2 |
\break
}


tenorOne = {
          \clef tenor
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%17-20
 eis2 fis16[ gis8. ais8.] r16 b2 |
 g!8. bes16 ais1 b!16 gis8. |
 r16 d!16 eis1 f!8 fis16 dis8. | r8. ees8 fis1 e!8 gis16 |
\break
%21-24
 aes8. fis16 gis1 a!16 fis8. | r16 ais8 gis1 g!8 aes8. |
 g!16 e!8. fis1 eis16 gis8. | r16 d! f!8 eis1 dis16 fis8. |
\break
}


bassOne = {
          \clef bass
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%10-12
 b,16 r8. dis16 r8. cis16 r8. eis16 r8. dis8. r16 cis8. r16 |
 b,8. r16 ais,8. r16 dis16 r8. gis16 r8. cis'16 r8. b16 r8. |
 ais8. r16 gis8. r16 fis8. r16 eis8. r16 dis16 r8. cis16 r8. |
\break
%13-16
 b,16 r8. ais,16 r8. gis,8. r16 b,8. r16 dis8. r16 fis8. r16 |
 bes2_( fes,1)( | ees,1)_( fis,2)_( | bes,1) r16 dis8.[ cis16 b,8.] |
\break
}



%% --- get sheet music
\score {
         \new Staff { \key fis\major \time 3/2 \tempo 4 = 62
                          \altoOne \bassOne \tenorOne \sopranoOne }

  \layout {}
}
%% --- get midi music
\score {
         \new Staff { \key fis\major \time 3/2
                       \altoOne \bassOne \tenorOne { \sopranoOne }
                     }

  \midi {}
}

---- name pompei3-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 pompei3-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 pompei3.ly[Enter]

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