Source code(pompei4.ly , pompei4-sheet.latex , run-script.cmd)
---- name pompei4.ly -------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 22)
sopranoOne = {
\clef soprano
\set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
\repeat volta 3 {
\repeat volta 2 {
cis''2._\mp\<\( | e''4. d'' | b'2. | d''4. cis'' |
e''2. | b'4. cis''\!\) | } d''2.^\fermata | }
\break
}
altoOne = {
\clef alto
\set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
\repeat volta 3 {
\repeat volta 2 {
fis'2._\mp\<\( | a'4. g' | e'2. | g'4. fis' |
a'2. | e'4. fis'\!\) | } g'2. | }
\break
}
tenorOne = {
\clef tenor
\set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
\repeat volta 3 {
\repeat volta2 {
fes4 ges\mp^\< fes | des2.\! | ces4\mp^\< ees des |
ees2.\! | des4\mp^\< fes ees | ces2.\! | } des2._\fermata | }
\break
}
bassOne = {
\clef bass
\set Staff.midiInstrument = "acoustic grand"
\autoBeamOff
%1-
\repeat volta 3 {
\repeat volta2 {
bes,4 ces\mp^\< bes, | ges,2.\! | fes,4\mp^\< aes, ges, |
aes,2.\! | ges,4\mp^\< bes, aes, | fes,2.\! | } ges,2. | }
\break
}
\book {
\header {
dedication = "Wordless Poem"
title = "Passing by the grave, to town."
subtitle = "grand piano"
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."}
composer = \markup { \italic "yukio yoshida" }
arranger = \markup{\tiny "No.19(Apr. 4, 2007)"}
}
%% --- get sheet music
\score {
\context ChoirStaff = "UP" <<
\context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 62
\altoOne
}
\context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 62
\bassOne
}
>>
\layout { indent = 20.00\mm }
}
\markup { \column {
\line {\hspace #10 "It enters to the ruin of pompei it comes out...This one road,"}
\line {\hspace #10 "passing by the grave yard of both sides of this road"}
\line {\hspace #10 "immediately before the ruin of pompei town."}
\line {\hspace #10 "It is the fact that it comes out entering the ruin of pompei."}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
\line {" "}
}
}
\score {
\context ChoirStaff = "DOWN" <<
\context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 62
\sopranoOne
}
\context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 62
\tenorOne
}
>>
\layout { indent = 20.00\mm }
}
%% --- get midi music
\score {
\unfoldRepeats
\context ChoirStaff = "UPDOWN" <<
\context Staff = "Up" { \key d\major \time 3/4 \tempo 4 = 64
\altoOne \sopranoOne
}
\context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 64
\bassOne \tenorOne
}
>>
\midi {
%% Remove the dynamics from the midi output
%% \context { \Voice
%% \remove "Dynamic_performer"
%% \remove "Span_dynamic_performer"
%% }
%% \context { \Score
%% tempoWholesPerMinute = #(ly:make-moment 62 4)}
%% }
}
}
\markup { \column {
\line {\hspace #10 "As for these, without being the same as our lives?"}
\line {\hspace #10 "The only as for being different,"}
\line {\hspace #10 "Time it does not go backward."}
\line {" "}
\line {" "}
}
}
}
---- name pompei4-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 pompei4-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
----------------------------------------------------------------------------------