Source code --- spring.ly , spring-sheet.latex , run-script.cmd ---
---- name spring.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 = "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 [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
----------------------------------------------------------------------------------