Source code(milano5.ly , milano5-sheet.latex , run-script)
---- name milano5.ly -------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 18)
addMs = { R1. * 48 | r1^\pp r4^\ppp des''4^\sfp | ees''1.^\ppppp_\fermata \bar "|." }
addMa = { R1. * 48 | r1^\pp r4^\ppp bes'4^\sfp | ces''1.^\ppppp_\fermata \bar "|." }
addMt = { R1. * 48 | r1^\pp r4^\ppp ges'4^\sfp | aes'1.^\ppppp_\fermata \bar "|." }
solo = {
%%1-5
\clef soprano
ees'4^\markup {\hspace #-6 "soprano"} fes'4. ees'8[ des' ces'] des'2 |
ees'1 fes'4. ces''8 | ces''4 bes'8[ aes'] ges'4 aes'2. |
r2 ces''2 aes'4 ces''4~ | ces''4 bes'8[ aes'] ges'4 aes'2 ges'4 |
\break
%%6-12
aes'1.^\fermata | r1 r4 ges'4 | aes'1.^\fermata |
ces''4 bes'8[ aes'] ges'4 aes'2. |
\clef tenor
ces'1^\markup {\hspace #-6 "tenor"} bes2 | ces'2 aes ges |
aes4 ces'2 bes8[ ges] bes2 |
\break
%%13-17
bes8[ aes ges] aes2 ces'4. ees'4 | aes2 ges8[ fes] ces'4 des'2 |
ees'4 ces'4. bes8[ aes ges] aes2 |
ges4. aes8 bes4 ces' bes8 ees'4. | r1 r4 ges4 |
\break
%%18-23
aes1.^\fermata |
\clef alto
r1^\markup {\hspace #-6 "alto"} r4 bes8[ ces'] | des'1.^\fermata |
ges'8[ fes'] aes'4. ees'8[ ces' bes] ees'2 |
fes'8 ees'4. des'8 ces'4. bes8 aes4. |
aes2 ces'2. bes8[ aes] |
\break
%%24-35
ges2 fes2 r2 | aes4. bes8 ces'4. des'8 ees'4. fes'8 |
ces'8[ des'] fes'2 ges'4 aes'2 | r1 bes8 aes4. |
\repeat volta 3 { r4 ges'4 aes'1^\fermata |
r1 r4 ges4 | aes1.^\fermata | }
\repeat volta 2 { R1. * 3 |}
\clef bass
\repeat volta 4 { r1^\markup { \hspace #-7 \circle\italic "bass" }
r4^\markup { \hspace #-10 \score {{
\set Staff.fontSize = #-4
\override Staff.StaffSymbol #'staff-space = #(magstep -4)
\override Staff.StaffSymbol #'thickness =#(magstep -4)
\override NoteHead #'color = #red
\override Stem #'color = #red
\clef treble \key ces\major \time 3/2
r1^\markup{\hspace #-16 \italic "Tutti" S A T }
r4 < ges' bes' des'' >4^\markup {\italic\bold "f.o." } |
< aes' ces'' ees'' >1._\fermata \bar "|." }
\layout { indent = 0.00\mm line-width = 26.00\mm
}}}
ges4| aes1.^\fermata } \bar "|."
}
bass = {
%%1-35
\repeat unfold 5 {
<aes, ees>2_( <fes, ces>1)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat unfold 4 {
<aes, ees>2_( <fes, ces>1)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat volta 3 {
<aes, ees>2_( <fes, ces>1)( | <ees, bes,>1_\markup { \column {\line { " "}
\line {\hspace #-10 \small {\raise #.5 \musicglyph #"scripts.coda"}
"As for dynamic freely."}}}
)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat volta 2 {
<aes, ees>2_( <fes, ces>1)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat volta 4 { <ees, bes,>1.\>^\markup { \italic "f.o." } |
<bes, ees,>1.\!^\fermata } \bar "|."
}
bassm = {
%%1-35
\repeat unfold 5 {
<aes, ees>2_( <fes, ces>1\ff)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat unfold 4 {
<aes, ees>2_( <fes, ces>1\ff)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat unfold 3 {
<aes, ees>2_( <fes, ces>1\ff)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat unfold 2 {
<aes, ees>2_( <fes, ces>1)( | <ees, bes,>1)_( <bes, des>2)_( |
<bes, ees,>1.)^\fermata | }
\repeat unfold 4 { <ees, bes,>1.\mp | <bes, ees,>1.\p^\fermata |}
}
\header {
dedication = "Wordless Poem"
title = "Milano 5"
subtitle = "The Milano aspiration. II"
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.23(Aug. 09, 2007)"}
}
%% get sheet music ---------------------------------------------------------------
\score {
<<
\new Voice = "soprano" { \key ces\major \time 3/2
\set Staff.instrumentName =
\markup {\italic \small \column {" " "soprano" "alto" "tenor"} }
\solo }
\new Voice = "bass" { \clef bass \key ces\major \time 3/2
\set Staff.instrumentName = "piano " \bass }
>>
\layout {}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
\new Staff { \clef soprano \key ces\major \time 3/2 \tempo 4 = 68
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \solo }
\new Staff { \clef treble \key ces\major \time 3/2 \tempo 4 = 68
\set Staff.midiInstrument = "pad 4 (choir)" \addMs }
\new Staff { \clef treble \key ces\major \time 3/2 \tempo 4 = 68
\set Staff.midiInstrument = "pad 4 (choir)" \addMa }
\new Staff { \clef treble \key ces\major \time 3/2 \tempo 4 = 68
\set Staff.midiInstrument = "pad 4 (choir)" \addMt }
\new Staff { \clef bass \key ces\major \time 3/2 \tempo 4 = 68
\set Staff.midiInstrument = "acoustic grand"
\unfoldRepeats \bassm }
>>
\midi {}
}
---- name milano5-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 milano5-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
----------------------------------------------------------------------------------