Source code --- four-things.ly , four-things-sheet.latex , cmd-run-script.cmd
---- name four-things.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 = "Four things"
%%subtitle = #(string-append "LilyPond version " (lilypond-version))
subtitle = " Fine, Wind, Rain and Sunlight"
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 = "Apr. 29, JST 2009"
poet = " "
opus = "Op.39"
meter = "Largo"
copyright = "public Domain"
}
%%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
soprano = {
%% 1-4
\autoBeamOff
r4 a'1 ~ a'8[ g'] ~ | g'1 fis'8[ g'] fis'8 g'8 |
a'2 b'8[ cis''] d''4 b'8[ g'] a'4 |
\break
%% 4-7
fis'8 e' d'4.. e'8.[ fis'8] g'2 ~ |
g'8 r16 a'1 cis''8[ d''] r16 | e''1 d''16[ fis''] d''8 fis''8 d''16[ fis''] |
e''2. fis'' |
\break
%% 8-11
\repeat volta 2 { r1 fis'16[ e' d' cis'] ~ cis'4 | d'2. cis'2. | }
\repeat volta 2 { r4 a'2. cis''2 | a'1. |
\break
%% 12-14
r2. a'8[ b'16] cis''8[ d''16] cis''4. |
cis''8[ d''16] e''8[ fis''16] e''4. e''8[ fis''16] g''8[ a''16] g''4. |
fis''2 cis'' g' |
\break
%% 15-17
<< { fis''8[^\markup { \hspace #-3 I }
e''16 d''] e''8[ d''16 cis''] d''8[ cis''16 b'] cis''8[ b'] a'2 } \\
{ b'8[_\markup { \hspace #-3 II }
a'16 g'] a'8[ g'16 fis'] g'8[ fis'16 e'] fis'8[ e'] d'2 } >> |
<< { \autoBeamOff
a''16[ g'' fis''8] g''16[ fis'' e''8] fis''16[ e'' d''8] e''8 d'' cis''2}\\
{ \autoBeamOff
e''16[ d'' cis''8] d''16[ cis'' b'8] cis''16[ b' a'8] b'8 a' g'2 } >> |
d''1.^\markup { I, II } ~ } | d''1.^\fermata | \bar "|."
}
%% sopranoL = \lyricmode { }
sopranoM = {
\autoBeamOff
r4 a'1 ~ a'8[ g'] ~ | g'1 fis'8[ g'] fis'8 g'8 |
a'2 b'8[ cis''] d''4 b'8[ g'] a'4 |
\break
fis'8 e' d'4.. e'8.[ fis'8] g'2 ~ |
g'8 r16 a'1 cis''8[ d''] r16 | e''1 d''16[ fis''] d''8 fis''8 d''16[ fis''] |
e''2. fis'' |
\break
\repeat volta 2 { r1 fis'16[ e' d' cis'] ~ cis'4 | d'2. cis'2. | }
\repeat volta 2 { r4 a'2. cis''2 | a'1. |
\break
r2. a'8[ b'16] cis''8[ d''16] cis''4. |
cis''8[ d''16] e''8[ fis''16] e''4. e''8[ fis''16] g''8[ a''16] g''4. |
fis''2 cis'' g' |
\break
<< { fis''8[^\markup { \hspace #-3 I }
e''16 d''] e''8[ d''16 cis''] d''8[ cis''16 b'] cis''8[ b'] a'2 } \\
{ b'8[_\markup { \hspace #-3 II }
a'16 g'] a'8[ g'16 fis'] g'8[ fis'16 e'] fis'8[ e'] d'2 } >> |
<< { \autoBeamOff
a''16[ g'' fis''8] g''16[ fis'' e''8] fis''16[ e'' d''8] e''8 d'' cis''2}\\
{ \autoBeamOff
e''16[ d'' cis''8] d''16[ cis'' b'8] cis''16[ b' a'8] b'8 a' g'2 } >> |
d''1.^\markup { I, II } ~ } | d''1.^\fermata \bar "|."
}
%%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
alto = {
%% 1-3
\autoBeamOff
r8. a'1 g'8[ e' cis'16] ~ | cis'2 a4 b cis'8[ d'16 e'8 fis'16 g'8] |
a'1 fis'8[ d'8] b16[ a g fis] |
\break
%% 4-7
r16. fis2 r16. g2 r16 fis4 ~ | fis1 r8 cis'8. g' |
a'1 g'8[ b'] g'16[ b'] g'8 | a'2. b' |
\break
%% 8-11
\repeat volta 2 { a'16[ g' fis' e'] ~ e'4 r1 | g2. fis | }
\repeat volta 2 { r8. cis'2 b2. r16 ~ | r2 g'1 ~ |
\break
%% 12-14
g'2 r4 d'8[ e'16] fis'8[ g'16] fis'4. |
fis'8[ g'16] a'8[ b'16] a'4. a'8[ b'16] cis''8[ d''16] cis''4. |
b'16[ a' g'8] a'16[ g' fis'8] g'16[ fis' e'8] fis'16[ e' d'8] cis'2 |
\break
%% 15-18
cis''8[ b'16 a'] b'8[ a'16 g'] a'8[ g'16 fis'] g'8[ fis'] e'2 |
a cis' e' | g'1. ~ } | g'1.^\fermata \bar "|."
}
%% altoL = \lyricmode { }
altoM = {
\autoBeamOff
r8. a'1 g'8[ e' cis'16] ~ | cis'2 a4 b cis'8[ d'16 e'8 fis'16 g'8] |
a'1 fis'8[ d'8] b16[ a g fis] |
\break
r16. fis2 r16. g2 r16 fis4 ~ | fis1 r8 cis'8. g' |
a'1 g'8[ b'] g'16[ b'] g'8 | a'2. b' |
\break
\repeat volta 2 { a'16[ g' fis' e'] ~ e'4 r1 | g2. fis | }
\repeat volta 2 { r8. cis'2 b2. r16 ~ | r2 g'1 ~ |
\break
g'2 r4 d'8[ e'16] fis'8[ g'16] fis'4. |
fis'8[ g'16] a'8[ b'16] a'4. a'8[ b'16] cis''8[ d''16] cis''4. |
b'16[ a' g'8] a'16[ g' fis'8] g'16[ fis' e'8] fis'16[ e' d'8] cis'2 |
\break
cis''8[ b'16 a'] b'8[ a'16 g'] a'8[ g'16 fis'] g'8[ fis'] e'2 |
a cis' e' | g'1. ~ } | g'1.^\fermata \bar "|."
}
%%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
tenor = {
%% 1-3
\autoBeamOff
r8 a2 e4 g8 fis2 | g4 fis4. e8 d2 fis4 | a2. e'2 d'8[ cis'] |
\break
%% 4-7
b2 d4. e8[ fis g] a4 | fis'2 e'4 d' b2 | g'1 fis'4 g' | a2 g fis |
\break
%% 8-11
\repeat volta 2 { r2 fis' g' | d'2. cis' } |
\repeat volta 2 { r8 d'8[ e'16] r2. fis'8[ e' d' cis'16] | r2 b1 |
\break
%% 12-14
r4 e2. g4 b4 |
d'8[ e'16] fis'8[ g'16] fis'4. fis'8-.[ e'16-.] e'8-.[ d'16-.] cis'4. |
g'16[ fis'] e'2 r4 d'16[ cis'] b2 |
\break
%% 15-
e'8[ d'16 cis'] d'8[ cis'16 b] cis'8[ b16 a] b8[ a] g2 |
fis2 a cis' | e'1. ~ } | e'1.^\fermata \bar "|."
}
tenorL = \lyricmode {}
tenorM = {
\autoBeamOff
r8 a2 e4 g8 fis2 | g4 fis4. e8 d2 fis4 | a2. e'2 d'8[ cis'] |
\break
b2 d4. e8[ fis g] a4 | fis'2 e'4 d' b2 | g'1 fis'4 g' | a2 g fis |
\break
\repeat volta 2 { r2 fis' g' | d'2. cis' } |
\repeat volta 2 { r8 d'8[ e'16] r2. fis'8[ e' d' cis'16] | r2 b1 |
\break
r4 e2. g4 b4 |
d'8[ e'16] fis'8[ g'16] fis'4. fis'8-.[ e'16-.] e'8-.[ d'16-.] cis'4. |
g'16[ fis'] e'2 r4 d'16[ cis'] b2 |
\break
e'8[ d'16 cis'] d'8[ cis'16 b] cis'8[ b16 a] b8[ a] g2 |
fis2 a cis' | e'1. ~ } | e'1.^\fermata \bar "|."
}
%%%%%%% bass; part %%%%%%%%%%%%%%%%
bass = {
%% 1-3
\autoBeamOff
e1. ~ | e4 d4. e8 cis4 d2 | fis2 r4 a2 g8[ fis] |
\break
%% 4-7
g8[ fis] e4 cis8 b,8[ cis d] b,2 | b4. cis'8[ a fis] d2. |
cis'1 a4 b8[ cis'] | d2 cis b, |
\break
%% 8-11
\repeat volta 2 { a2 b r2 | a2. g } |
\repeat volta 2 { fis4 e d cis b,8 d fis a ~ | a1. |
\break
%% 12-14
r2. e2. | g8[ a16] b8[ cis'16] b4. b8-.[ a16-.] a8-.[ g16-.] fis4. |
b4 a g fis e2 ~ |
\break
%% 15-
e4 r8 g4 r8 b4 d'2 |
d'16[ cis' b8] cis'16[ b a8] b16[ a g8] a8 g fis2 |
a1. ~ } | a1.^\fermata \bar "|."
}
bassL = \lyricmode {}
bassM = {
\autoBeamOff
e1. ~ | e4 d4. e8 cis4 d2 | fis2 r4 a2 g8[ fis] |
\break
g8[ fis] e4 cis8 b,8[ cis d] b,2 | b4. cis'8[ a fis] d2. |
cis'1 a4 b8[ cis'] | d2 cis b, |
\break
\repeat volta 2 { a2 b r2 | a2. g } |
\repeat volta 2 { fis4 e d cis b,8 d fis a ~ | a1. |
\break
r2. e2. | g8[ a16] b8[ cis'16] b4. b8-.[ a16-.] a8-.[ g16-.] fis4. |
b4 a g fis e2 ~ |
\break
e4 r8 g4 r8 b4 d'2 |
d'16[ cis' b8] cis'16[ b a8] b16[ a g8] a8 g fis2 |
a1. ~ } | a1.^\fermata \bar "|."
}
%%%%%%%%%% midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" { \clef soprano \key d\major \time 3/2
\set Staff.instrumentName = \markup { \column {
"soprano" " I , II " } } \soprano }
%%\new Lyrics = "mainSL" \lyricsto "soprano" { \sopranoL }
\new Voice = "alto" { \clef alto \key d\major \time 3/2
\set Staff.instrumentName = "alto " \alto }
%%\new Lyrics = "mainAL" \lyricsto "alto" { \altoL }
\new Voice = "tenor" { \clef tenor \key d\major \time 3/2
\set Staff.instrumentName = "tenor " \tenor }
%%\new Lyrics = "mainTL" \lyricsto "tenor" { \tenorL }
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.instrumentName = "bass " \bass }
%%\new Lyrics = "mainBL" \lyricsto "bass" { \bassL }
>>
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key \major \time
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key \major \time
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\layout {
\context { \RemoveEmptyStaffContext }
}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
%% Soprano Instruments ..................
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \sopranoM }
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "violin"
\unfoldRepeats \sopranoM }
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "violin"
\unfoldRepeats \sopranoM }
%% Alto Instruments .......................
\new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \altoM }
\new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "oboe"
\unfoldRepeats \altoM }
%% Tenor Instruments .....................
\new Staff { \clef tenor \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \tenorM }
\new Staff { \clef tenor \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "viola"
\unfoldRepeats \tenorM }
%% Bass Instruments ......................
\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \bassM }
\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "cello"
\unfoldRepeats \bassM }
%%\new Staff { \clef treble \key \major \time \tempo 4 =
%% \set Staff.midiInstrument = "acoustic grand"
%% \unfoldRepeats \pianoUPm }
%%\new Staff { \clef bass \key \major \time \tempo 4 =
%% \set Staff.instrumentName = "acoustic grand"
%% \unfoldRepeats \pianoDownm }
>>
\midi { tempoWholesPerMinute = #(ly:make-moment 40 4) }
}
----- name four-things-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{four-things-1}\par
\includegraphics{four-things-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
----------------------------------------------------------------------------------