Source code(firenze4.ly , firenze4-sheet.latex , run-script.cmd)
---- name firenze4.ly ------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 14)
\header {
dedication = "Wordless Poem"
title = "A lane of Firenze"
subtitle = "Firenze in Autumn"
subsubtitle = \markup \center-align {
"soprano; C clef on 1th line, alto; C clef on 3th line."
\italic " Please, Piano is free " }
composer = \markup { \italic "yukio yoshida" }
arranger = \markup{\tiny "No.24(Oct. 19, 2007)"}
}
soprano = {
%1--4
\autoBeamOff
e'2 fis'4. gis'4 a'8[ b'] a'8~ | a'4. gis'2 fis'8[ e'] d'4~ d'16. r32 |
e'2 fis'4. gis'4 a'8[ b'] cis''8~ | cis''4. a'2 b'8[ gis'] e'4 r8 |
\break
%5--9
e'2 fis'4. d'8[ cis'] e'4. | fis'8[ e' d'] b2..~ b8.. r32 |
gis'8[ a'] r16 b'4.. cis''2. | b'8-. cis''-. d''2-. a'2. |
e'8-. d'-. cis'2-. b2. |
\break
%10--14
cis'8-. d'-. b'2. a'4 \stemUp gis'8-. \stemNeutral fis'-. | b2\( r4 b'2. |
d''1. | cis''1.\) | r4 e'-. r4 d'-. r4 cis'-. |
\break
%15--19
r4 b4-. r1 | cis''2\( d''2 cis'' | d''1. | cis''2\) r4 b' r a' |
r gis'\( d''2 cis''2 |
\break
%20--24
d''1.\) | b'8[ a' gis'] fis'2 e'8[ d'] cis'4. |
gis'8[ d' cis'] fis'2 e'8[ d'] cis'4.~ | b2. cis'8[ e'] a'2~ |
a'1.^\fermata \bar "|."
}
alto = {
%1--4
\autoBeamOff
e'2 d'8[ cis' b] e'2~ e'8 | a'2 gis'8[ fis' e'] fis'2~ fis'8 |
e'8[ cis' b] r8 fis'8[ e' d'] r8 b2 | a8[ b cis'] d'2 fis8[ a b] e'4~ |
\break
%5--9
e'2 d'8[ e' fis'] gis'2~ gis'8 | e'8[ d' cis'] fis'4. gis'2. |
fis'8[ d' b] a8 gis2. fis8[ gis] | fis'8[ d'] cis'2 a2. |
b2 d'8[ e'] fis'2. |
\break
%10--14
gis'8[ fis'] b2. cis'8[ d' e' fis'~] |
fis'2 e'16[ d' cis' b] cis'4 b8[ cis'] b4 |
d'16[ cis' b a] b4 e'16[ d' cis' b] a4 b2 | a1. |
gis'4 r fis' r gis' r |
\break
%15--19
fis'4 r a16[ b cis' d'] b16[ cis' d' e'] fis'2 |
r1 gis'16[ fis' e' d' cis' b a8] | r2 a1_\( | r4 fis1^~ fis4 | gis1. |
\break
%20-24
fis1\) r4 gis8[ b] | e'2 d'8[ cis' b] e'4 cis'8[ e' fis'] |
cis'8[ d' e'] cis'2 e'8[ fis'] gis'4.~ |
gis'8[ fis'] gis'2 fis'8[ e' d' cis'] a4~ | a1. \bar "|."
}
pianoUP = {
%1-
<< { s1. * 24 } \\ {s1. * 24 } >>
}
pianoDown = {
%1-
<< { s1. * 24 } \\ {s1. * 24 } >>
}
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" { \clef soprano \key a\major \time 3/2
\set Staff.midiInstrument = "pad 4 (choir)"
\set Staff.instrumentName = "soprano" \soprano }
\new Voice = "alto" { \clef alto \key a\major \time 3/2
\set Staff.midiInstrument = "pad 4 (choir)"
\set Staff.instrumentName = "alto " \alto }
>>
\context PianoStaff
\with { \override VerticalAlignment #'forced-distance = #6 }
<<
\context Staff = "upper" \new Voice { \clef treble \key a\major \time 3/2
\set Staff.fontSize = #-3
\override Staff.StaffSymbol #'staff-space = #(magstep -3)
\override Staff.StaffSymbol #'thickness =#(magstep -3)
\set Staff.instrumentName = \markup {\column{" " " " "piano "}}
\set Staff.midiInstrument = "acoustic grand" \pianoUP }
\context Staff = "lower" \new Voice { \clef bass \key a\major \time 3/2
\set Staff.fontSize = #-3
\override Staff.StaffSymbol #'staff-space = #(magstep -3)
\override Staff.StaffSymbol #'thickness =#(magstep -3)
\set Staff.midiInstrument = "acoustic grand" \pianoDown }
>>
>>
\layout {}
\midi { tempoWholesPerMinute = #(ly:make-moment 68 4) }
}
---- name firenze4-sheet.latex --------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{gray86}{rgb}{0.85881,0.85881,0.85881}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\pagecolor{gray86}
\vspace*{-16pt}
\hspace*{-20pt}
\input firenze4-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
----------------------------------------------------------------------------------