Source code(milano5.ly , milano5.latex , run)
---- name milano5.ly -----------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.10.0"
#(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"
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.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.latex -----------------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{gray86}{rgb}{0.85881,0.85881,0.85881}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=6mm,headsep=5mm,%
top=10mm,headheight=6mm,footskip=0mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\pagecolor{gray86}
\hskip -1.6pc \includegraphics{milano5.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 milano5[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 milano5[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.
%%