Source code(milano4.ly , milano4-sheet.latex , run-script.cmd)
---- name milano4.ly -------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
play = { \autoBeamOff
%%1-6
aes1 | des'8[ ees'] ges'4 bes2 |
b1 | c'8[ d'] fis'4 a2 |
ges1 | bes8[ ces'] ees'4 aes2 |
\break
%%7-12
\pitchedTrill ees'1\startTrillSpan ces' |
f'4\stopTrillSpan ees'8[ f'] ces'2 |
\arpeggioArrowUp < des' f' aes' ees'' >1\arpeggio |
\arpeggioArrowDown < ees'' aes' f' des' >1\arpeggio |
\pitchedTrill f'1\startTrillSpan des' |
ces'8[\stopTrillSpan ees'] bes2.~ |
\break
%%13-17
bes8 \arpeggioArrowUp < ees' ges' bes' f'' >4\arpeggio aes'8[
bes'8] \arpeggioArrowDown < f'' bes' ges' ees' >4\arpeggio aes'8~ |
aes'2. ces''8[ ees''] |
\pitchedTrill f''1\startTrillSpan aes'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | f''1 |
\break
%%18-21
{ \clef soprano \key b\major \time 3/2
\repeat volta 2 { gis'8[ ais'] b'4. cis''8 disis''!2~ disis''4 |
ais'4 dis''2 gis'2 fis'4~ |
fis'4 e' dis'4. fis'8 e'2 | ais'4 dis''2 gis'2. | }
\break
%%22-25
\repeat volta 2 { gis'8[ b'] ais'2 b'8[ cis''] ais'2 |
gis'2 ais'2 e'2 | } e'4 fis'4 e'4 gis'2. | b'2 disis''1 |
}
\break
%%26-32
\clef treble \key ges\major \time 4/4
\pitchedTrill ees''1\startTrillSpan ces'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | ees''1 |
\repeat volta2 { r4 ees'2 ges'8[ bes'] | des'2 f'8[ aes'] r4 | }
bes2 ces'8[ ees'] aes4~ | aes1^\fermata |
\break
%%33-38
{ \time 3/2%% \tempo 4 = 58
ges'8[^\markup {\italic "Adagio"} aes'] bes'4. ces''8 ees''2. | R1. |
\repeat volta 2 { bes'8[ ces''] des''4. ees''8 ges''2. |
ces''4 f''2 bes'2 aes'4~ |
aes'4 ges' f'4. aes'8 ges'2 | ces''4 f''2 bes'2. | } }
\break
%%39-45
{ %%\tempo 4 = 54
\repeat volta 2 {
bes'8[^\markup {\italic "Largo"} des''] ces''2 des''8[ ees''] ces''2 |
bes'2 ces'' ges' | } ges'4 aes' ges' bes'2. | des''2 ges''1 |
\time 4/4
\pitchedTrill ees''1\startTrillSpan ces'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | ees''1 | }
\break
%%46-52
%%\tempo 4 = 80
ces''2^\markup {\italic "a tempo"} aes'4 f' |
aes1 | des'8[ ees'] ges'4 bes2 |
\repeat volta 2 {
\repeat volta2 { r4 f'2 aes'8[ des''] | bes2 ces'8[ ees'] r4 | }
bes2 ces'8[ ees'] aes4( | ees'1) | }
\break
%%53-61
ges1\( | bes | ges | bes\) |
\pitchedTrill ees''2\startTrillSpan f'' bes'4 f' |
aes1\stopTrillSpan | aes'2. ces''8[ ees''] |
\pitchedTrill f''1\startTrillSpan aes'' |
ges''1\stopTrillSpan\fermata \bar "|."
}
playB = { \autoBeamOff
%%1-6
aes1 | des'8[ ees'] ges'4 bes2 |
b1 | c'8[ d'] fis'4 a2 |
ges1 | bes8[ ces'] ees'4 aes2 |
\break
%%7-12
\pitchedTrill ees'1\startTrillSpan ces' |
f'4\stopTrillSpan ees'8[ f'] ces'2 |
\arpeggioArrowUp < des' f' aes' ees'' >1\arpeggio |
\arpeggioArrowDown < ees'' aes' f' des' >1\arpeggio |
\pitchedTrill f'1\startTrillSpan des' |
ces'8[\stopTrillSpan ees'] bes2.~ |
\break
%%13-17
bes8 \arpeggioArrowUp < ees' ges' bes' f'' >4\arpeggio aes'8[
bes'8] \arpeggioArrowDown < f'' bes' ges' ees' >4\arpeggio aes'8~ |
aes'2. ces''8[ ees''] |
\pitchedTrill f''1\startTrillSpan aes'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | f''1 |
\break
%%18-21
{ \clef soprano \key b\major \time 3/2
\repeat volta 2 { gis'8[ ais'] b'4. cis''8 disis''!2~ disis''4 |
ais'4 dis''2 gis'2 fis'4~ |
fis'4 e' dis'4. fis'8 e'2 | ais'4 dis''2 gis'2. | }
\break
%%22-25
\repeat volta 2 { gis'8[ b'] ais'2 b'8[ cis''] ais'2 |
gis'2 ais'2 e'2 | } e'4 fis'4 e'4 gis'2. | b'2 disis''1 |
}
\break
%%26-32
\clef treble \key ges\major \time 4/4
\pitchedTrill ees''1\startTrillSpan ces'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | ees''1 |
\repeat volta2 { r4 ees'2 ges'8[ bes'] | des'2 f'8[ aes'] r4 | }
bes2 ces'8[ ees'] aes4~ | aes1^\fermata |
\break
%%33-38
{ \time 3/2 \tempo 4 = 58
ges'8[ aes'] bes'4. ces''8 ees''2. | R1. |
\repeat volta 2 { bes'8[ ces''] des''4. ees''8 ges''2. |
ces''4 f''2 bes'2 aes'4~ |
aes'4 ges' f'4. aes'8 ges'2 | ces''4 f''2 bes'2. | } }
\break
%%39-45
{ \tempo 4 = 46
\repeat volta 2 { bes'8[ des''] ces''2 des''8[ ees''] ces''2 |
bes'2 ces'' ges' | } ges'4 aes' ges' bes'2. | des''2 ges''1 |
\time 4/4
\pitchedTrill ees''1\startTrillSpan ces'' |
ges''4\stopTrillSpan ees''8[ des''] ces''2 | ees''1 | }
\break
%%46-52
\tempo 4 = 80
ces''2 aes'4 f' | aes1 | des'8[ ees'] ges'4 bes2 |
\repeat volta 2 {
\repeat volta2 { r4 f'2 aes'8[ des''] | bes2 ces'8[ ees'] r4 | }
bes2 ces'8[ ees'] aes4( | ees'1) | }
\break
%%53-61
ges1\( | bes | ges | bes\) |
\pitchedTrill ees''2\startTrillSpan f'' bes'4 f' |
aes1\stopTrillSpan | aes'2. ces''8[ ees''] |
\pitchedTrill f''1\startTrillSpan aes'' |
ges''1\stopTrillSpan\fermata \bar "|."
}
\header {
dedication = "Wordless Poem"
title = "Milano 4"
subtitle = "The Milano aspiration."
subsubtitle =
"Key ges major; soprano; C clef on 1th line, treble; G clef on 2nd line"
instrument = "synthstrings 1, pad 4 (choir)"
meter = "Andantino"
poet = "poem of notes"
composer = \markup { \italic "yukio yoshida" }
arranger = \markup{\tiny "No.22(Jul. 06, 2007)"}
}
%% get sheet music, midi music ------------------------------------------------
\score { \new Staff { \clef treble \key ges\major \time 4/4%% \tempo 4 = 80
\play
}
\layout {}
}
\score {
<<
\new Staff { \clef treble \key ges\major \time 4/4 \tempo 4 = 80
\set Staff.midiInstrument = "synthstrings 1"
\unfoldRepeats \playB
}
\new Staff { \clef treble \key ges\major \time 4/4 \tempo 4 = 80
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \playB
}
>>
\midi {}
}
---- name milano4-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 milano4-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
----------------------------------------------------------------------------------