Fragrant Spring(First Movement)

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

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

[picture of music]



Source code --- spring.ly , spring-sheet.latex , run-script.cmd ---
---- name spring.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 = "First Movement"
 subsubtitle = \markup{
          soprano; C clef on 1st line, \hspace #6 alto; C clef on 3rd line.}
 composer = \markup{ \line {\italic "Yukio Yoshida"}}
 arranger = "Mar. 10, JST 2009"
 %% poet = " "
 opus = "Op.37 "
 meter = "Largo"
 copyright = "public Domain"
}


%%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
soprano = {
%% 1-6
    \autoBeamOff
     c''4 a'8[ g' f'] d'4. | c''2 a' | e''4 c''8[ b' a'] f'4. | e''2 c'' ~ |
     c''2 e'' | a'2. e'8[ d'] ~ |
\break
%% 7-10
     d'8[ e' f'] r8 g'8[ a' b'] c''8 ~ | c''4. e''4.. c''8. ~ |
     c''4 a'8[ g' f'] d'4. | c''2 a' |
\break
%% 11-14
     f'4 d'8[ e'] a'4 f'8[ g'] | c''4 a'8[ b'] e''4 c''8[ d''] |
     e''4. c''16[ b'] c''4. a'16[ g'] | a'4. f'16[ e'] f'4. d'16[ c'] |
\break
%% 15-18
     e'1 | \key b\major
     cis'4 e'8[ fis' gis'] b'4. | e'4 gis'8[ ais' b'] dis''4. |
     gis'4 b'8[ cis'' dis''] fis''4. |
\break
%% 19-22
     dis''16[ b'] gis'2. r8 | b'16[ gis'] e'2. r8 | gis'16[ e'] cis'2. r8 |
     cis''1^\fermata |
\break
%% 23-26
     dis''16[ cis''] dis'2.. | e''16[ dis''] e'2.. |
     fis''16[ e''] fis'2.. | b'4\( cis'' b' cis''\) |
\break
%% 27-30
     R1 * 4 |
\break
%% 31-34
     ais'8-. fis'-. dis'-. r8 \key c\major c'4-. c''4-.|
     f'2 a'8[ b'] e''4 | c''4 b'16[ a' g'8] f'16[ e' d'8] c'4 ~ | c'4 c''2. |
\break
%% 35-40
     a'2.. r8 | a''1 | f''4 d''2. | b'1 | g'^\fermata ~ | g'^\fermata \bar "|."
}

%% sopranoL = \lyricmode { }
sopranoM = {
    \autoBeamOff
     c''4 a'8[ g' f'] d'4. | c''2 a' | e''4 c''8[ b' a'] f'4. | e''2 c'' ~ |
     c''2 e'' | a'2.  e'8[ d'] ~ |
\break
     d'8[ e' f'] r8 g'8[ a' b'] c''8 ~ | c''4. e''4.. c''8. ~ |
     c''4 a'8[ g' f'] d'4. | c''2 a' |
\break
     f'4 d'8[ e'] a'4 f'8[ g'] | c''4 a'8[ b'] e''4 c''8[ d''] |
     e''4. c''16[ b'] c''4. a'16[ g'] | a'4. f'16[ e'] f'4. d'16[ c'] |
\break
     e'1 | \key b\major
     cis'4 e'8[ fis' gis'] b'4. | e'4 gis'8[ ais' b'] dis''4. |
     gis'4 b'8[ cis'' dis''] fis''4. |
\break
     dis''16[ b'] gis'2. r8 | b'16[ gis'] e'2. r8 | gis'16[ e'] cis'2. r8 |
     cis''1^\fermata |
\break
     dis''16[ cis''] dis'2.. | e''16[ dis''] e'2.. |
     fis''16[ e''] fis'2.. | b'4\( cis'' b' cis''\) |
\break
     R1 * 4 |
\break
     ais'8-. fis'-. dis'-. r8 \key c\major c'4-. c''4-.|
     f'2 a'8[ b'] e''4 | c''4 b'16[ a' g'8] f'16[ e' d'8] c'4 ~ | c'4 c''2. |
\break
     a'2.. r8 | a''1 | f''4 d''2. | b'1 | g'^\fermata ~ | g'^\fermata \bar "|."
}

%%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
alto = {
%% 1-6
     \autoBeamOff
     f'2 d' | f'4 d'8[ c' b] g4. | a'2 f' | a'4 f'8[ e' d'] b4. |
     d'2 a' | d'2. a8[ g] ~ |
\break
%% 7-10
     g8[ a b] r8 c'8[ d' e'] f'8 ~ | f'4. a'4.. f'8. ~ |
     f'2 d' ~ | d' f' |
\break
%% 11-14
     d'4. b16[ a] b4. g16[ f] | f'4. d'16[ c'] a'4. f'16[ e'] |
     a'4 f'8[ g'] f'4 d'8[ e'] | d'4 b8[ c'] b4 g8[ a] |
%% 15-18
     a1 | \key b\major
     fis2 ais16[ cis'] e'4. | ais2 cis'16[ e'] gis'4. |
     cis'2 e'16[ gis'] b'4. |
\break
%% 19-22
     r8 gis'8[ fis' e'] cis'2 | r8 e'8[ dis' cis'] ais2 | r8 cis'8[ b ais] fis2 |
     fis'1^\fermata |
\break
%% 23-26
     R1 * 4 |
\break
%% 27-30
     e'4\( dis' e' dis'\) | fis16[ gis] fis'2.. | gis16[ ais] gis'2.. |
     ais16[ b] ais'2.. |
\break
%% 31-34
     b8-. dis'-. fis'-. r8 \key c\major g'4-. g4-.|
     d'4 b2 a8[ f] ~ | f8 f'4 g'16[ b' c''8] g'4. ~ | g'4 g2. |
\break
%% 35-40
     b2. d'8 r | d''1 | b'2. g'4 | e'1 | c'1^\fermata ~ | c'^\fermata \bar "|."
}

%% altoL = \lyricmode { }

altoM = {
     \autoBeamOff
     f'2 d' | f'4 d'8[ c' b] g4. | a'2 f' | a'4 f'8[ e' d'] b4. |
     d'2 a' | d'2. a8[ g] ~ |
\break
     g8[ a b] r8 c'8[ d' e'] f'8 ~ | f'4. a'4.. f'8. ~ |
     f'2 d' ~ | d' f' |
\break
     d'4. b16[ a] b4. g16[ f] | f'4. d'16[ c'] a'4. f'16[ e'] |
     a'4 f'8[ g'] f'4 d'8[ e'] | d'4 b8[ c'] b4 g8[ a] |
\break
     a1 | \key b\major
     fis2 ais16[ cis'] e'4. | ais2 cis'16[ e'] gis'4. |
     cis'2 e'16[ gis'] b'4. |
     r8 gis'8[ fis' e'] cis'2 | r8 e'8[ dis' cis'] ais2 | r8 cis'8[ b ais] fis2 |
     fis'1^\fermata |
\break
     R1 * 4 |
\break
     e'4\( dis' e' dis'\) | fis16[ gis] fis'2.. | gis16[ ais] gis'2.. |
      ais16[ b] ais'2.. |
\break
     b8-. dis'-. fis'-. r8 \key c\major g'4-. g4-.|
     d'4 b2 a8[ f] ~ | f8 f'4 g'16[ b' c''8] g'4. ~ | g'4 g2. |
\break
     b2. d'8 r8 | d''1 | b'2. g'4 | e'1 | c'1^\fermata ~ | c'1^\fermata \bar "|."
}


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

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

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

         >>

  \layout {
            \context { \RemoveEmptyStaffContext }
           }
}

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

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

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

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

----- name spring-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{spring-1}\par
\includegraphics{spring-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 spring.ly[Enter]

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