Brightness of Pompei

          pompei2.mid           pompei2.pdf           pompei2-sheet.pdf           pompei.mp3

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


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

\header {
  dedication = "Wordless Poem"
  title = "Brightness 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.17(Mar 14 2007)"}
}

sopranoOne = {
             \clef soprano
             \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%25-29
 \repeat volta 2 { < fis'' d'' b' >1.^\ppp(_\( |
 < d'' b' >)( | fis''1.)^\ff( | d'')( | e''^\pp)\)( | }
\break
%%30-34
 e''1.^\ppp)( | d'')( | e'')( | < c'' c' >2)( < b' g'>)( < c'' c'>)( |
 < d'' b' g' >1.)^\ff^\fermata \bar "|."
\break
}


altoOne = {
          \clef alto
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%17-20
 b1.(^\mp | e'2.)^\pp e'2.( | g'1.)^\ppp |
 \repeat volta 2 {
 r16^\ff << { d'16 r fis'8 r16 d'8 r16 b8 r16 d'16 r8 e'16 fis'16 g'4. } \\
            { a2. r16 b8[ c'] d'16^([ c' b8 a16 g)] } >> |
 r16 << { a'2. r16 b'8[ c''] d''16_([ c'' b'8 a'16 g')] } \\
        { g4. fis16 e16 r8 d16 r16 b,8 r16 d8 r16 fis8 r16 d16 } >> | }
\break
%21-24
 << { a'2 r4 b'2.} \\ { e8[ g] b2. fis2 } >> |
 << { d''16[ a' g'8] e'4 b'2 g'16[ fis' e' c'] d'16[ e' fis' a'] } \\
    { e2 r4 b,2 b4 } >> |
 << { b'16[ g' e' c'8.] b16[ d' fis' a'8.] r16 a'16[ fis' d' b8]
      r16 c'16[ e' g' < b' d >8 ] } \\ { d4. g r16 fis4 r8 a4 r16} >> |
 << { g'2.( d'^\pp) } \\ { fis2.( a_\pp) } >> |
\break
}


tenorOne = {
          \clef tenor
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%9-12
 d'16[ r] c'16[ r] b[ a] fis2 g16[ a] b2 |
 e8[ g b] r d'2 c'16[ a fis] e4 r16 |
 a16[ b] d'4. b16[ c'] e'4. fis16[ g] b4. |
 << { d'2. c'16[ d'8] r16 e'2 } \\ { e2. r16 d16[ e8] fis2 } >> |
\break
%13-16
 << { fis'2. e'16[ c'8] r16 a2 } \\ { g2. r16 e16[ d8] b,2 } >> |
 << { b2. r16 d'16[ fis'8] e'2 } \\ { c2. e16[ g8] r16 fis2 } >> |
 << { c'16[ e'8] r16 e'16[ c'8] r16 c'2. e'4 } \\
    { a16[ fis8] r16 fis16[ a8] r16 a2. fis4 } >> |
 << { b16[ c'8] r16 b16[ d'8] r16 b2. c'4 } \\
    { b16[ a8] r16 b16[ g8] r16 b2. a4 } >> |
\break
}

bassOne = {
          \clef bass
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%1-4
 fis4 g8 b4. c'2 b8[ a] | e c2 d4. fes2 | ges4 a8 c'4. d'2 c'8[ b] |
 r16[ g fis8 d] c[ b,] c4._( a2) |
\break
%5-8
 d'16[ r] c'[ r] b2 a8[ fis] e[ r c b,] | c2 e fis | g e b |
 fis16[ r] d[ r] a,[ r] b,[ c] a,[ c] b,[ r] c[ e] d[ fis_(] a,2) |
\break
}

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

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

  \midi {}
}

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

\begin{document}
\thispagestyle{empty}
\pagecolor{indianred2}
\vspace*{-16pt}
\hspace*{-20pt}
\input pompei2-systems.tex
\vfill

\end{document}


--- name run-script.cmd ----------------------------------------------------------
del *.log *.aux *.dvi *.eps *.ps *.pdf *.png *.mid *.count *.texi *.tex
Rem process for %1-sheet.latex -----------------------------------------
lilypond -dbackend=eps %1.ly
Rem Now runing LilyPond normally ---------------------------------------
lilypond --pdf --png %1.ly
Rem Process from here for %1-sheet.latex -------------------------------
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
gswin64c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
%1.mid | %1.png | %1-sheet.png | %1.pdf | %1-sheet.pdf
del %1-1.* *.count *.aux *.log *.dvi *.ps *.tex *.texi *.eps *.*~ *~
dir /w
----------------------------------------------------------------------------------

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

run-script.cmd;(cmd prompt)   >run-script pompei2[Enter]
(However, this "Windows10(64bit) + LilyPond(ver 2.18.*) + W32TeX(& UP) + Ghostscript(ver 9.06 & UP)" is required.)