Source code --- spring2.ly , spring2-sheet.latex , run-script.cmd ---
---- name spring2.ly -----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
%% C-x {Enter} C\ latin-1-alt-postfix ====> a[.....]
%% For instance; E/====>AE(ﾃ) e/====>ﾃｦ C-x Enter C\ ===>utf-8
\version "2.12.1"
#(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 [For windows XP]------------------------------------------
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
----------------------------------------------------------------------------------