Source code(pompei.ly , pompei-sheet.latex , run-script)
---- name pompei.ly --------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)
\header {
dedication = "Wordless Poem"
title = "Linger at Pompei"
subtitle = "At Pompei city in Italia"
subsubtitle = \markup\center-column {
"soprano; C clef on 1th line, alto; C clef on 3th line."
" bass; F clef on 4th line, tenor; C clef on 4th line."}
poet = ""
composer = \markup { \italic "yukio yoshida" }
arranger = \markup{\tiny "No.12(Nov 24 2006)"}
}
sopranoOne = {
\clef soprano
\set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%1-5
e''1._\ppp\(~ | e''( | d'')~ | d''( | e'')~ |
\break
%%6-10
e''1.( | d'')~ | d''\)( | c''2)( b')( c'')( | d''1.)(_\ff^\fermata | \break
}
altoOne = {
\clef alto
\set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%11-14
<g' d'>1) <e' b>4 <fis' c'>4 | <g' c'>1 <d' a>4 <e' b> | <a' e'>1 < b' e'>2 |
<a' e'>2. <g' c'>4 <fis' b>4 <e' b>4~ |
\break
%%15-19(21)
<e' b>2 <fis' c'>4 <e' b> d'2~_\mp | d'1.( |
\repeat volta 2 { g'1.)\(( | fis')\)( | } <g' c'>2.)_\f <fis' b>\( | \break
}
bassOne = {
\clef bass
\set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%20(22)-25(32)
e1.\)(\ppp | \repeat volta 2 { c)(_\( | d)( | b,)( | e)( | a)_\)( | }
\break
}
tenorOne = {
\clef tenor
\set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%26(33)-30(37)
e'1.)(\fff | fis')( | a'2.)( g')( | d')( b)( | fis'1.)( |
\break
%%31(38)-36(47)
\repeat volta 2 {
a'1.)(_\( | fis'2.)( g')( | e'1.)~ | e'1.( | }
\alternative { { fis'2.)( g')_\) | } {fis'2.(\f a')( | } } \break
}
sopranoTwo = {
\clef soprano
\set Staff.midiInstrument = "synth voice"
\autoBeamOff
%%37(48)-41(52)
e''1._\ppp)\(~ | e''( | d'')~ | d''( | e'')\)^\fermata \bar "|."
}
%% --- get sheet music
\score {
\new Staff { \key g\major \time 3/2 \tempo 4 = 62
\sopranoOne \altoOne \bassOne \tenorOne \sopranoTwo }
\layout {}
}
%% --- get midi music
\score {
\new Staff { \key g\major \time 3/2 \tempo 4 = 62
\sopranoOne { \unfoldRepeats \altoOne }
{ \unfoldRepeats \bassOne } { \unfoldRepeats \tenorOne }
\sopranoTwo }
\midi {}
}
---- name pompei-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 pompei-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
----------------------------------------------------------------------------------