The Milano aspiration. II

          milano5.mid           milano5.pdf           milano5-sheet.pdf           milano5.mp3

This sounds "milano5.mp3" and Please click! music plays.
[picture of music]


Source code(milano5.ly , milano5-sheet.latex , run-script.cmd)
---- name milano5.ly -------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.18.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"
  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 ----------------------------------------------------------
@Echo off
chcp 437
rem === make; "1:59:27.01 2018/08/24" Yukio Yoshida. 
rem === This is Letter paper! Are you OK? ===
@Echo on
lilypond -dbackend=eps %1.ly
lilypond --pdf --png %1.ly
latex %1-sheet.latex
dvips -t letter -P pdf %1-sheet.dvi
gswin64c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
pause
%1-sheet.pdf | %1-sheet.png | %1.pdf | %1.png | %1.mid
Erase *.aux *.count *.dvi *.ps *.eps *.log *.pdf ^
*.tex *.texi *.mid *.png
dir /oe
----------------------------------------------------------------------------------

usally;(cmd prompt)   >lilypond --png --pdf milano5.ly[Enter]

run-script.cmd;(cmd prompt)   >run-script milano5[Enter]
(However, this "Windows10(64bit) + LilyPond(ver2.18.*) + W32TeX(& UP) + Ghostscript(edition 64bit)" is required.)