Source code(pompei5.ly , pompei-sheet.latex , run-script.cmd)
---- name grave.ly ---------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)
%%% --- One ----------------------------------------------------------------------
sopranoOne = {
\clef soprano
\key d\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "sop" }
\autoBeamOff
%8-12
a'4. a'4. | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
fis''8[ e'' d'' cis''] b'4 | e''2 d''8[ cis''] | fis''2 cis''4 | a'2. |
\break
}
altoOne = {
\clef alto
\key d\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%8-12
a4. a4. | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
g'8[ fis' e' d'] cis'4 | e'2 cis'8[ b] | g'2 b4 | a2. |
\break
}
tenorOne = {
\clef tenor
\key ces\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%1-7
aes4. aes4. | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
ges'8[ fes' ees' des'] ces'4 | fes'2 des'8[ ces'] | aes'2 ces'4 | aes2. |
\break
}
bassOne = {
\clef bass
\key ces\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%1-7
aes,4. aes,4. | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
ges8[ fes ees des] ces4 | ees2 ces8[ bes,] | ges2 bes,4 | aes,2. |
\break
}
%%% --- Two ----------------------------------------------------------------------
sopranoTwo = {
\clef soprano
\key d\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "sop" }
\set Staff.shortInstrumentName = \markup {\teeny \italic "sop" }
\autoBeamOff
%22-28
b'8[ cis''] b'4. cis''8 | a'2. |
g'4 a' g'~ | g' a' fis'~ | fis'2. |
d''4 e'' d''~ | d''2. |
\break
}
altoTwo = {
\clef alto
\key d\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "alt" }
\set Staff.shortInstrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%22-28
e'8[ fis'] e'4. fis'8 | d'2. |
cis'4 d' cis'~ | cis' d' b~ | b2. |
g'4 a' g'~ | g'2. |
\break
}
tenorTwo = {
\clef tenor
\key ces\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "ten" }
\set Staff.shortInstrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%15-21
bes8[ ces'] bes4. ces'8 | aes2. |
ges4 aes ges~ | ges aes fes~ | fes2. |
des'4 ees' des'~ | des'2. |
\break
}
bassTwo = {
\clef bass
\key ces\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup { \teeny \italic "bas" }
\set Staff.shortInstrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%15-21
ees8[ fes] ees4. fes8 | des2. |
ces4 des ces~ | ces des bes,~ | bes,2. |
ges4 aes ges~ | ges2. |
\break
}
%%---- Three ---------------------------------------------------------------------
upper = {
\clef treble
\key d\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup {
\column { \teeny \italic { " " " " } } }
\set Staff.shortInstrumentName = \markup {
\column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
<< { fis''8^\markup { \hspace #-8 "treble; G clef on 2nd line" }
[ e'' d'' cis''] b'4 | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
e''2 fis''8[ g''] | e''2 d''8[ cis''] | fis''2 cis''4 |
\repeat volta 2 { a'2.^\fermata } \bar "|." }
\\
{ g'8[ fis' e' d'] cis'4 | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
fis'2 g'8[ a'] | e'2 cis'8[ b] | g'2 b4 |
\repeat volta 2 { a2._\fermata } \bar "|." } >>
\break
}
lower = {
\clef bass
\key ces\major \time 3/4 \tempo 4 = 54
\set Staff.midiInstrument = "acoustic grand"
\set Staff.instrumentName = \markup {
\column { \teeny \italic { " " " " } } }
\set Staff.shortInstrumentName = \markup {
\column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
<< { ges'8[ fes' ees' des'] ces'4 | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
fes'2 ges'8[ aes'] | fes'2 des'8[ ces'] | aes'2 ces'4 |
\repeat volta 2 { aes2.^\fermata } \bar "|." }
\\
{ ges8[ fes ees des] ces4 | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
fes2 ges8[ aes] | ees2 ces8[ bes,] | ges2 bes,4 |
\repeat volta 2 { aes,2._\fermata } \bar "|." } >>
\break
}
%%------------------------------------------------------------------------------
\book {
\header {
dedication = "Wordless Poem"
title = "Traces of the grave."
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.20(May. 11, 2007)"}
}
%% --- get sheet music
\score {
\context ChoirStaff = "Sheet" <<
\context Staff = "UpAsheet" { \tenorOne \sopranoOne
\tenorTwo \sopranoTwo \upper
}
\context Staff = "DownBsheet" { \bassOne \altoOne
\bassTwo \altoTwo \lower
}
>>
\layout { indent = 0.00\mm }
}
%% --- get midi music
\score {
\unfoldRepeats
\context ChoirStaff = "Midi" <<
\context Staff = "UpAmidi" { \tenorOne \sopranoOne
\tenorTwo \sopranoTwo \upper
}
\context Staff = "DownBmidi" { \bassOne \altoOne
\bassTwo \altoTwo \lower
}
>>
\midi { }
}
}
---- name pompei5-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 pompei5-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
----------------------------------------------------------------------------------