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