Source code(pompei3.ly , pompei3-sheet.latex , run-script.cmd)
---- name pompei3.ly -------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(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 [For windows XP]------------------------------------------
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
gswin32c -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
----------------------------------------------------------------------------------