Fragrant Spring(Second Movement)

          spring2.mid           spring2.pdf           spring2-sheet.pdf           spring.mp3

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

[picture of music]



Source code --- spring2.ly , spring2-sheet.latex , run-script.cmd ---
---- name spring2.ly -----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.18.0"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)

\header {
 dedication = "Wordless Poem"
 title = "Fragrant Spring"
 %%subtitle = #(string-append "LilyPond version " (lilypond-version))
 subtitle = "Second Movement"
 subsubtitle = \markup {\center-column {
                   "soprano; C clef on 1st line,       alto; C clef on 3rd line."
                   "       bass; F clef on 4th line,    tenor; C clef on 4th line."}}
 composer = \markup { \line {\italic "Yukio Yoshida"}}
 arranger = "Mar. 27, JST 2009"
 poet = \markup {
            \teeny "TrillSpan is to(until) 3/4, The rest's 1/4 is normally-sound."}
 opus = "Op.38"
 meter = "Largo"
 copyright = "public Domain"
}


%%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
soprano = {
%% 1-3
    \autoBeamOff
    d'16[ g' c''] r16 d''[ bes' g'] r16 d'2 ~ |
    d'2 r16 c'16[ e' g'] r16 e'16[ g' bes'] | e''1 |
\break
%% 4-7
    d''16 bes' g' r16 bes'16[ g' e'] r16 c'2 |
    d'16[ f'] a'8 c''4. g'8 f'16[ a'] c''8 | e''4. c''16 g'16 f''2 |
    e''4 r8 c''4 r8 a'4 |
\break
%% 8-11
    g'16[ bes' d''8.] r16 a'16[ c'' e''8.] r16 bes'16[ d'' f''8] ~ |
    f''16 r8. g''4. a''4. |
    bes'8[ d''8.] r16 c''8[ e''8.] r16 d''8[ f''8] ~ |
    f''16 r8. g''4. a''4. |
\break
%% 12-15
    r2. g''4 | r2. a''4 | r2. g''8 a'' ~ | a''1 |
\break
%% 16-19
    r4 \key g\major
    e''8 fis'' g''2  | fis''8 g'' a''2 r4 | d''16[ g'] c'2.. ~ | c'1 |
\break
%% 20-27
    R1 * 8
\break
%% 28-31
    r4 e''8 fis'' g''2  | fis''8 g'' a''2 r4 | d''16[ g'] c'2.. ~ | c'1 |
\break
%% 32-37
    R1 * 6 \bar "|."
}

%% sopranoL = \lyricmode { }
sopranoM = {
    \autoBeamOff
    d'16[ g' c''] r16 d''[ bes' g'] r16 d'2 ~ |
    d'2 r16 c'16[ e' g'] r16 e'16[ g' bes'] | e''1 |
\break
    d''16 bes' g' r16 bes'16[ g' e'] r16 c'2 |
    d'16[ f'] a'8 c''4. g'8 f'16[ a'] c''8 | e''4. c''16 g'16 f''2 |
    e''4 r8 c''4 r8 a'4 |
\break
    g'16[ bes' d''8.] r16 a'16[ c'' e''8.] r16 bes'16[ d'' f''8] ~ |
    f''16 r8. g''4. a''4. |
    bes'8[ d''8.] r16 c''8[ e''8.] r16 d''8[ f''8] ~ |
    f''16 r8. g''4. a''4. |
\break
    r2. g''4 | r2. a''4 | r2. g''8 a'' ~ | a''1 |
\break
    r4 \key g\major
    e''8 fis'' g''2  | fis''8 g'' a''2 r4 | d''16[ g'] c'2.. ~ | c'1 |
\break
    R1 * 8
\break
    r4 e''8 fis'' g''2  | fis''8 g'' a''2 r4 | d''16[ g'] c'2.. ~ | c'1 |
\break
    R1 * 6 \bar "|."
}

%%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
alto = {
%% 1-3
     \autoBeamOff
     %% TrillSpan--->to(until) 3/4, The 1/4 is normally-sound.
     bes'1 * 3/4 \startTrillSpan_\markup { \with-color #red
\teeny "TrillSpan is to(until) 3/4, The rest's 1/4 is normally-sound. ; As follows."}
                                 s1 * 1/4 \stopTrillSpan |
     bes1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     g1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
%% 4-7
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     c'4 r4 e'4. r8 | e'4 f'8 g'4. r4 | g'4 bes'4 d''2 ~ |
\break
%% 8-11
     d''4 g'16[ a'] r8 c''2 ~ | c''4 f'8[ a'] c''2 |
     e'8[ g'8.] bes'8[ d''8.] ~ d''8 a'8[ c''] ~ | c''8 d''2.. |
\break
%% 12-15
     r2 bes'8 c'' r4 | r2 c''8 d'' r4 | r2. d''4 ~ | d''1 |
\break
%% 16-19
     R1 * 4 |
\break
%% 20-23
    r4 \key g\major
    a'8 b' c''2  | b'8 c'' d''2 r4 | g'16[ c'] fis2.. ~ | fis1 |
\break
%% 24-27
     R1 * 4 |
\break
%% 28-31
    r4 a'8 b' c''2  | b'8 c'' d''2 r4 | g'16[ c'] fis2.. ~ | fis1 |
\break
%% 32-37
    R1 * 6 \bar "|."
}

%% altoL = \lyricmode { }
altoM = {
     \autoBeamOff
     bes'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     bes1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     g1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     c'4 r4 e'4. r8 | e'4 f'8 g'4. r4 | g'4 bes'4 d''2 |
\break
     d''4 g'16[ a'] r8 c''2 ~ | c''4 f'8[ a'] c''2 |
     e'8[ g'8.] bes'8[ d''8.] ~ d''8 a'8[ c''] ~ | c''8 d''2.. |
\break
     r2 bes'8 c'' r4 | r2 c''8 d'' r4 | r2. d''4 ~ | d''1 |
\break
     R1 * 4 |
\break
    r4 \key g\major
    a'8 b' c''2  | b'8 c'' d''2 r4 | g'16[ c'] fis2.. ~ | fis1 |
\break
     R1 * 4 |
\break
    r4 a'8 b' c''2  | b'8 c'' d''2 r4 | g'16[ c'] fis2.. ~ | fis1 |
\break
    R1 * 6 \bar "|."
}

%%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
tenor = {
%% 1-3
     \autoBeamOff
     c'4 g' bes8 g f'16 a'] r8 | r4 g'16[ e' c'] r16 bes2 |
     g4-> bes-> d'-> f'-> |
\break
%% 4-7
     d'8-. bes-. g-. r4 c'4.-. |
     g16[ a bes] a16[ bes c'8.] r4 d'16[ e'] f'[ g'] |
     r8 a'2.. | d'4 e' f' g' |
\break
%% 8-11
     c'16[ e' g'] r16 c'8[ e' g'] a'4. ~ |
     a'4 d'16[ e' f'] r16 g'2 |
     c'8[ e'8.] r16 d'8[ f'8.] r16 e'8[ g'] ~ |
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
%% 12-15
     e'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     d'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     f'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
%% 16-23
     R1 * 8 |
\break
%% 24-27
     a'4 r4 \key g\major
     fis'2 | a'2 fis'4 r4 | d'4 b g8[ fis] d4 ~ | d1 |
\break
%% 28-31
     a'4 r4 fis'2 | a'2 fis'4 r4 | d'4 b g8[ fis] d4 ~ | d1 |
\break
%% 32-27
    R1 * 6 \bar "|."
}

%%tenorL = \lyricmode { }
tenorM = {
     \autoBeamOff
     c'4 g' bes8 g f'16 a'] r8 | r4 g'16[ e' c'] r16 bes2 |
     g4-> bes-> d'-> f'-> |
\break
     d'8-. bes'-. g-. r4 c'4.-. |
     g16[ a bes] a16[ bes c'8.] r4 d'16[ e'] f'[ g'] |
     r8 a'2.. | d'4 e' f' g' |
\break
     c'16[ e' g'] r16 c'8[ e' g'] a'4. |
     a'4 d'16[ e' f'] r16 g'2 |
     c'8[ e'8.] r16 d'8[ f'8.] r16 e'8[ g'] ~ |
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
     e'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     d'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     f'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
     g'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
\break
     R1 * 8 |
\break
     a'4 r4 \key g\major
     fis'2 | a'2 fis'4 r4 | d'4 b g8[ fis] d4 ~ | d1 |
\break
     a'4 r4 fis'2 | a'2 fis'4 r4 | d'4 b g8[ fis] d4 ~ | d1 |
\break
    R1 * 6 \bar "|."
}

%%%%%%% bass; part %%%%%%%%%%%%%%%%
bass = {
%% 1-3
   \autoBeamOff
   bes,2-> d-> | g,-> bes,-> | c-> e-> |
\break
%% 4-7
   g-> bes-> | bes,8[ d f] r4 d8[ f a] | g16[ a bes8.] r8. c'2 |
   bes2 d' |
\break
%% 8-11
   g,16-. bes,-. d8.-. a,16-. c-. e8.-. g4.~ |
   g8. r16 b4. c'4. |
   d'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
   c'4 d'2. |
\break
%% 12-15
   e16[ g] bes2.. | f16[ a] c'2.. | g16[ bes] d'2.. |
   bes4 g8[ f16 e] f8[ bes] d'4 |
\break
%% 16-27
     R1 * 12 |
\break
%% 28-31
     d'8[ c'] r4 \key g\major
     fis2 | a2 fis4 r4 | d8[ c] e4 c8[ b,] g,4 ~ | g,1 |
\break
%% 32-37
     d'8[ c'] r4 \key f\major
     f2 | a2 f4 r4 | d8[ c] e4 c8[ bes,] g,4 ~ | g,1^\markup { \with-color #red
     \teeny "\"Bars 36 and 37\" is Tutti S,A,T,B. (Key f major)" } ~ |
     < c' f d g, >1^\fermata ~ | < c' f d g, >1^\fermata \bar "|."
}

%%bassL = \lyricmode { }
bassM = {
   \autoBeamOff
   bes,2-> d-> | g,-> bes,-> | c-> e-> |
\break
   g-> bes-> | bes,8[ d f] r4 d8[ f a] | g16[ a bes8.] r8. c'2 |
   bes2 d' |
\break
   g,16-. bes,-. d8.-. a,16-. c-. e8.-. g4. |
   g8. r16 b4. c'4. |
   d'1 * 3/4 \startTrillSpan s1 * 1/4 \stopTrillSpan |
   c'4 d'2. |
\break
   e16[ g] bes2.. | f16[ a] c'2.. | g16[ bes] d'2.. |
   bes4 g8[ f16 e] f8[ bes] d'4 |
\break
     R1 * 12 |
\break
     d'8[ c'] r4 \key g\major
     fis2 | a2 fis4 r4 | d8[ c] e4 c8[ b,] g,4 ~ | g,1 |
\break
     d'8[ c'] r4 \key f\major
     f2 | a2 f4 r4 | d8[ c] e4 c8[ bes,] g,4 ~ | g,1 |
     < c' f d g, >1^\fermata | < c' f d g, >1^\fermata \bar "|."
}


%%%%%%%%%% midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% get sheet music ---------------------------------------------------------------
\score {
         <<
           \context ChoirStaff = "FourPartStaffaddchorus" <<
           \new Voice = "soprano" { \clef soprano \key f\major \time 4/4
                        \set Staff.instrumentName = "soprano" \soprano }
%%                        \new Lyrics = "mainSL" \lyricsto "soprano" { \sopranoL }

           \new Voice = "alto" { \clef alto \key f\major \time 4/4
                        \set Staff.instrumentName = "alto   " \alto }
%%                        \new Lyrics = "mainAL" \lyricsto "alto" { \altoL }

           \new Voice = "tenor" { \clef tenor \key f\major \time 4/4
                        \set Staff.instrumentName = "tenor  " \tenor }
%%                        \new Lyrics = "mainTL" \lyricsto "tenor" { \tenorL }

           \new Voice = "bass" { \clef bass \key f\major \time 4/4
                        \set Staff.instrumentName = "bass   " \bass }
%%                        \new Lyrics = "mainBL" \lyricsto "bass" { \bassL }
                                            >>

           %%\context PianoStaff = "PianoStaff" <<
           %%\new Voice = "piano" { \clef treble \key f\major \time 4/4
           %%             \set Staff.instrumentName = "piano  " \pianoUP }
           %%\new Voice = "piano" { \clef bass \key f\major \time 4/4
           %%             \set Staff.instrumentName = "piano  " \pianoDown }
           %%                                   >>

         >>

  \layout {
            \context { \RemoveEmptyStaffContext }
           }
}

%% get midi music ----------------------------------------------------------------
\score {
         <<
           \new Staff { \clef soprano \key f\major \time 4/4 \tempo 4 = 43
                         \set Staff.midiInstrument = "pad 2 (warm)"
                                         \unfoldRepeats       \sopranoM }

           \new Staff { \clef alto \key f\major \time 4/4 \tempo 4 = 43
                         \set Staff.midiInstrument = "pad 2 (warm)"
                                         \unfoldRepeats          \altoM }

           \new Staff { \clef tenor \key f\major \time 4/4 \tempo 4 = 43
                         \set Staff.midiInstrument = "pad 2 (warm)"
                                         \unfoldRepeats       \tenorM }

           \new Staff { \clef bass \key f\major \time 4/4 \tempo 4 = 43
                        \set Staff.midiInstrument = "pad 2 (warm)"
                                         \unfoldRepeats          \bassM }

           %%\new Staff { \clef treble \key f\major \time 4/4 \tempo 4 = 43
           %%             \set Staff.midiInstrument = "acoustic grand"
           %%                                \unfoldRepeats       \pianoUPm }
           %%\new Staff { \clef bass \key f\major \time 4/4 \tempo 4 = 43
           %%             \set Staff.instrumentName = "acoustic grand"
           %%                                \unfoldRepeats     \pianoDownm }
         >>

   \midi { tempoWholesPerMinute = #(ly:make-moment 43 4) }
}

----- name spring2-sheet.latex ---------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{cornsilk}{rgb}{1,0.97253,0.86273}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\pagestyle{empty}

\begin{document}
\pagecolor{cornsilk}
\vspace*{-2pc}
\everypar{\hspace*{-2pc}}
\includegraphics{spring2-1}\par
\includegraphics{spring2-2}\par
\vfill
\end{document}


--- name run-script.cmd ----------------------------------------------------------
del *.log *.aux *.dvi *.eps *.ps *.pdf *.png *.mid *.count *.texi *.tex
Rem From here process for %1-sheet.latex ---------------------------------
lilypond -dbackend=eps %1.ly
Rem Now runing LilyPond normally -----------------------------------------
lilypond --pdf --png %1.ly
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
rem gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet+page%%d.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
rem %1.mid | %1.png | %1-sheet.png | %1.pdf | %1-sheet.pdf
%1.mid | %1-page1.png | %1-sheet+page1.png | %1.pdf | %1-sheet.pdf
del %1-1.* *.count *.aux *.log *.dvi *.ps *.tex *.texi *.eps *.*~ *~
dir /w
----------------------------------------------------------------------------------

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

run-script.cmd;(cmd prompt)   >run-script spring2[Enter]
(However, this "Windows8(& UP) + LilyPond(ver2.18) + W32TeX(& UP) + Ghostscript(ver9.06 & UP)" is required.)