Source code(pompei4.ly , pompei4.latex , run)
---- name pompei4.ly -----------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.10.0"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)
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 = "Apr 4 2007"
instrument = \markup\center-align {
"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 "ipika"}
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 = 64
\altoOne
}
\context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 64
\bassOne
}
>>
\layout { indent = 0.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 = 64
\sopranoOne
}
\context Staff = "Down" { \key ces\major \time 3/4 \tempo 4 = 64
\tenorOne
}
>>
\layout { indent = 0.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 64 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.latex -----------------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{tomato1}{rgb}{1,0.38823,0.27843}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=6mm,headsep=5mm,%
top=10mm,headheight=0mm,footskip=0mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\pagecolor{tomato1}
\hskip -1.2pc\includegraphics{pompei4.eps}\par
\vfill
\end{document}
----- name run-script [for Linux Fedora 7] ---------------------------------------
rm *.eps *.png *.pdf *.midi
lilypond -b eps $1.ly
latex $1.latex
latex $1.latex
dvips -P pdf $1.dvi
gs -sDEVICE=epswrite -sOutputFile=$1b.eps -dNOPAUSE $1.ps -c quit
gs -sDEVICE=png16m -r120 -sOutputFile=$1b.png -dNOPAUSE $1.ps -c quit
ps2pdf $1.ps $1b.pdf
rm $1-1.* *.aux *.log *.dvi *.ps *.tex *.texi
lilypond $1.ly
evince $1.pdf | evince $1b.pdf
rm *.ps
clear
ls
--- name run-script.cmd [For windows XP]------------------------------------------
del *.eps *.png *.pdf *.midi
lilypond -b eps %1.ly
latex %1.latex
latex %1.latex
dvips -P pdf %1.dvi
gswin32c -sDEVICE=epswrite -sOutputFile=%1b.eps -dNOPAUSE %1.ps -c quit
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1b.png -dNOPAUSE %1.ps -c quit
call ps2pdf %1.ps %1b.pdf
del %1-1.* *.aux *.log *.dvi *.ps *.tex *.texi
lilypond %1.ly
%1.midi | %1.pdf | %1b.pdf |
del *.ps
dir /w
----------------------------------------------------------------------------------
%% run! get pdf and midi
%% Unix(linux) Fedroa 7 + LilyPond ver2.10(after) + teTeX
%% [system terminal bash login shell]
%% $ ./run-script pompei4[Enter]
%% ! I'm sorry, I've not used about tcsh(shell).
%%
%% In Japan Windows XP + LilyPond ver2.10(after) + 角藤版pTeX + Ghostscript(ver8.60)
%% Other Windows XP + LilyPond ver2.10(after) + teTeX + Ghostscript(ver8.60)
%% [system terminal cmd.exe]
%% >run-script pompei4[Enter]
%%
%% ------------------------------------------------------------------------------
%% dvi file can print with veiw by dviout.exe; for Windows XP
%% ps file can print with veiw by gsview32.exe; for Windows XP
%% Unix use xdvi(for dvi) or evnice(for ps), Of course, Fedora 7.
%%