Linger at Pompei

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

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


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

\header {
  dedication = "Wordless Poem"
  title = "Linger at Pompei"
  subtitle = "At Pompei city in Italia"
  subsubtitle = \markup\center-column {
                   "soprano; C clef on 1th line,   alto; C clef on 3th line."
                   "         bass; F clef on 4th line,   tenor; C clef on 4th line."}
  poet = ""
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.12(Nov 24 2006)"}
}

sopranoOne = {
             \clef soprano
             \set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%1-5
 e''1._\ppp\(~ | e''( | d'')~ | d''( | e'')~ |
\break
%%6-10
 e''1.( | d'')~ | d''\)( | c''2)( b')( c'')( | d''1.)(_\ff^\fermata | \break
}

altoOne = {
          \clef alto
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%11-14
 <g' d'>1) <e' b>4 <fis' c'>4 | <g' c'>1 <d' a>4 <e' b> | <a' e'>1 < b' e'>2 |
 <a' e'>2. <g' c'>4 <fis' b>4 <e' b>4~ |
\break
%%15-19(21)
 <e' b>2 <fis' c'>4 <e' b> d'2~_\mp | d'1.( |
 \repeat volta 2 { g'1.)\(( | fis')\)( | } <g' c'>2.)_\f <fis' b>\( | \break
}

bassOne = {
          \clef bass
          \set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%20(22)-25(32)
 e1.\)(\ppp | \repeat volta 2 { c)(_\( | d)( | b,)( | e)( | a)_\)( | }
\break
}

tenorOne = {
          \clef tenor
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%26(33)-30(37)
  e'1.)(\fff | fis')( | a'2.)( g')( | d')( b)( | fis'1.)( |
\break
%%31(38)-36(47)
\repeat volta 2 {
 a'1.)(_\( | fis'2.)( g')( | e'1.)~ | e'1.( | }
 \alternative { { fis'2.)( g')_\) | } {fis'2.(\f a')( | } } \break
}

sopranoTwo = {
             \clef soprano
             \set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%37(48)-41(52)
 e''1._\ppp)\(~ | e''( | d'')~ | d''( | e'')\)^\fermata \bar "|."
}

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

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

  \midi {}
}


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

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