Source code(footprints.ly , footprints-sheet.latex , run-script.cmd)
---- name footprints.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 18)
\paper{ paper-height = 280\mm
}
\header {
dedication = "Offering prayers."
title = "Footprints"
subtitle = "Blessing"
subsubtitle =\markup \center-column {
"soprano; C clef on 1st line, alto; C clef on 3rd line."
" tenor; C clef on 4th line, bass; F clef on 4th line." }
instrument = " "
composer = \markup { \italic "yukio yoshida" }
arranger = "Jul. 08, JST 2008"
poet = "Yukio Yoshida"
opus = "Op. 32, No.1"
meter = "Largo"
copyright = "public Domain"
}
%% --- Soprano part ---------------------------------------------------------------
soprano = {
\autoBeamOff
\partial 8 r8 |
%%1-4
a'8^\>\melisma cis''4 b'8 d''1 |
e''1. | d''2 e''2. * 2/3\melismaEnd s2. * 1/3\! r4 |
e''1.^\>\melisma |
\break
%%5-8
e''1. | e''2 fis''1 | e''16\!\melismaEnd e''4^\mp fis''8. gis''1 |
gis''8 cis''4 b'8 d''1 |
\break
%%9-12
e''2 b'4.^\f a'8 fis'2 | \dimTextDim gis''1.^\>\melisma |
fis''4 * 2/3\melismaEnd s4 * 1/3\! b'4^\mp a'1 | a'1. |
\break
%%13-16
\dimTextDim gis'4^\>\melisma e' cis'1 |
gis'4 e' cis'1 | e'4 d' cis'1 | e'4 d' cis'1 |
\break
%%17-20
cis'2 cis''1 | cis''1. | cis'' | cis'' |
\break
%%21-24
cis''8\melismaEnd a'2^\f b'8 bis'8 a' b'2 |
cis''8 d''4. e''1 | cis''8 d''4. e''1 | r8^\> cis''8 d''4 e''1\! |
\break
%%25-29
r8 b'4.^\pp a'2 gis' | a'16 b'4 a'16 a'8 a'1
d''16 e''4 d''16 d''8 d''1 |
\crescTextCresc
gis''16^\< a''4 gis''16 gis''8 gis''1~ | gis''1.\!^\fermata \bar "|."
}
sopranoL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-2
%%1-8
Æ __ æ __ left imme -- diately, and dis -- ap -- pear. |
\break
%%9-20
only Lone -- li -- ness, æ __ still remain, remain. æ __
\break
%%21-24
They have to be making in my life, in my lif, in my life.
\break
%%25-29
I'm bringing them to walk on one's life,
to walk on one's life, to walk on one's life.
}
sopranoM = {
\autoBeamOff
\partial 8 r8 |
a'8^\ppp\melisma cis''4 b'8 d''1 |
e''1. | d''2 e''2.^\pppp\melismaEnd r4 |
e''1.^\ppp\melisma |
\break
e''1. | e''2 fis''1^\ppppp\melismaEnd |
e''16\melismaEnd e''4^\mp fis''8. gis''1 | gis''8 cis''4 b'8 d''1 |
\break
e''2^\f b'4. a'8 fis'2 | gis''1.^\pppp\melisma |
fis''4^\pppp\melismaEnd b'4^\mp a'1 | a'1. |
\break
\dimTextDim gis'4^\pppp\melisma e' cis'1 |
gis'4 e' cis'1 | e'4 d' cis'1 | e'4 d' cis'1 |
\break
cis'2 cis''1 | cis''1. | cis'' | cis''1. |
\break
cis''8\melismaEnd a'2^\f b'8 bis'8 a' b'2 |
cis''8 d''4. e''1 | cis''8 d''4. e''1 | r8 cis''8^\pp d''4^\ppp e''1^\pppp |
\break
r8 b'4.^\pp a'2 gis' | a'16 b'4 a'16 a'8 a'1
d''16 e''4 d''16 d''8 d''1 |
gis''16^\< a''4 gis''16 gis''8 gis''1~ | gis''1.\!^\fermata \bar "|."
}
%% --- Alto part ------------------------------------------------------------------
alto = {
\autoBeamOff
\partial 8 r8 |
%%1-4
e'8^\>\melisma gis'4 fis'8 a'1 |
b'1. | a'2 b'2. * 2/3\melismaEnd s2. * 1/3\! r4 |
b'1.^\>\melisma |
\break
%%5-8
b'1. | b'2 * 2/3\melismaEnd s2 * 1/3\! r8 gis'4.^\mp fis'8 a'4.~ |
a'8 b'1^\<\melisma a'4.~ | a'8\!\melismaEnd e'8 d'8 e' fis'1 |
\break
%%9-12
\dimTextDim gis'1.^\>\melisma | fis'8\!\melismaEnd
cis'4 cis'^\f b8\melisma a b cis' d' e'\melismaEnd fis'~ |
fis'4 b4^\mp a1 | a1. |
\break
%%13-16
\dimTextDim gis'4^\>\melisma e' cis'1 |
gis'4 e' cis'1 | e'4 d' cis'1 | e'4 d' cis'1 |
\break
%%17-20
cis'2 b'1 | b'1. | b' | b' |
\break
b'8\melismaEnd a2^\f b8 bis8 a b2 |
cis'8 d'4. e'1 | cis'8 d'4. e'1 | r8^\> cis'8 d'4 e'1\! |
\break
r8 b4.^\pp a2 gis | a16 b4 a16 a8 a1
d'16 e'4 d'16 d'8 d'1 |
\crescTextCresc
gis'16^\< a'4 gis'16 gis'8 gis'1~ | gis'1.\!^\fermata \bar "|."
}
altoL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-2
%%1-8
Æ __ æ __ Joys and pleasures æ __ and dis -- ap -- pear.
\break
%%9-20
æ __ and gri -- e __ f still remain, remain. æ __
\break
%%21-24
They have to be making in my life, in my lif, in my life.
\break
%%25-29
I'm bringing them to walk on one's life,
to walk on one's life, to walk on one's life.
}
altoM = {
\partial 8 r8 |
e'8^\ppp\melisma gis'4 fis'8 a'1 |
b'1. | a'2 b'2.^\pppp\melismaEnd r4 |
b'1.^\ppp\melisma |
\break
b'1. | b'2^\pppp\melismaEnd r8 gis'4.^\mp fis'8 a'4. |
a'8 b'1^\pppp\melisma a'4.~ | a'8^\mp\melismaEnd e'8 d'8 e' fis'1 |
\break
gis'1.^\pppp\melisma | fis'8\melismaEnd
cis'4^\mp cis'^\f b8\melisma a b cis' d' e'\melismaEnd fis'~ |
fis'4 b4^\mp a1 | a1. |
\break
\dimTextDim gis'4^\pppp\melisma e' cis'1 |
gis'4 e' cis'1 | e'4 d' cis'1 | e'4 d' cis'1 |
\break
cis'2 b'1 | b'1. | b' | b' |
\break
b'8\melismaEnd a2^\f b8 bis8 a b2 |
cis'8 d'4. e'1 | cis'8 d'4. e'1 | r8 cis'8^\pp d'4^\ppp e'1^\pppp |
\break
r8 b4.^\pp a2 gis | a16 b4 a16 a8 a1
d'16 e'4 d'16 d'8 d'1 |
gis'16^\< a'4 gis'16 gis'8 gis'1~ | gis'1.\!^\fermata \bar "|."
}
%% --- tenor ----------------------------------------------------------------------
tenor = {
\autoBeamOff
\partial 8 r8 |
%%1-4
a8^\>\melisma cis'4 b8 d'1 |
e'1. | d'2 e'2. * 2/3\melismaEnd s2. * 1/3\! r4 |
e'1.^\>\melisma |
\break
%%5-8
e'1. | e'2 fis'1 | e'16\!\melismaEnd e'4^\mp fis'8. gis'1 |
gis'8 cis'4 b8 d'1 |
\break
%%9-12
\dimTextDim c'1.^\>\melisma | c' | c'4\melismaEnd cis'^\mp b1 | b1. |
\break
%%13-16
\dimTextDim gis'4^\>\melisma e' c'1 |
gis'4 e' c'1 | e'4 d' c'1 | e'4 d' c'1 |
\break
%%17-20
c'4.\melismaEnd fis4.^\mp g8 gis16 fis16 e2 |
gis16 fis e4 fis4. g8 gis16 fis16 e2 |
gis16 fis e4 fis4. g8 gis16 fis16 e2 |
gis8 fis4. e'1 |
\break
%%21-24
\dimTextDim e'1.^\>\melisma | e' | e' | e' |
\break
%%25-29
e'8\melismaEnd \crescTextCresc a4.^\< gis2 fis | gis16 a4 gis16 gis8 gis1 |
cis'16 d'4 cis'16 cis'8 cis'1 | fis'16 gis'4 fis'16 fis'8 fis'1~ |
fis'1.\!^\fermata \bar "|."
}
tenorL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-2
%%1-8
Ou __ ou __ left imme -- diately, and dis -- ap --pear.
\break
%%9-16
ou __ still remain, remain. ou __
\break
%%17--20
They have to be making in my life.
They have to be making in my life.
They have to be making in my life.
\break
%%21-24
ou __
\break
%%25-29
I'm bringing them to walk on one's life,
to walk on one's life, to walk on one's life.
}
tenorM = {
\autoBeamOff
\partial 8 r8 |
a8^\ppp\melisma cis'4 b8 d'1 |
e'1. |d'2 e'2.^\pppp\melismaEnd r4 |
e''1.^\ppp\melisma |
\break
e'1. | e'2 fis'1^\ppppp |
e'16\melismaEnd e'4^\mp fis'8. gis'1 | gis'8 cis'4 b8 d'1 |
\break
c'1.^\pppp\melisma | c' | c'4\melismaEnd cis'^\mp b1 | b1. |
\break
\dimTextDim gis'4^\pppp\melisma e' c'1 |
e'4 gis' c'1 | e'4 d' c'1 | e'4 d' c'1 |
\break
c'4.\melismaEnd fis4.^\mp g8 gis16 f16 e2 |
gis16 fis e4 fis4. g8 gis16 fis16 e2 |
gis16 fis e4 fis4. g8 gis16 fis16 e2 |
gis8 fis4. e'1 |
\break
e'1.^\pppp\melisma | e' | e' | e' |
\break
e'8\melismaEnd a4.^\f gis2 fis | gis16 a4 gis16 gis8 gis1 |
cis'16 d'4 cis'16 cis'8 cis'1 | fis'16 gis'4 fis'16 fis'8 fis'1~ |
fis'1.^\fermata \bar "|."
}
%% --- Bass part ------------------------------------------------------------------
bass = {
\autoBeamOff
\partial 8 r8 |
%%1-4
e8^\>\melisma gis4 fis8 a1 |
b1. | a2 b2. * 2/3\melismaEnd s2. * 1/3\! r4 |
b1.^\>\melisma |
\break
%%5-8
b1. | b2 * 2/3\melismaEnd s2 * 1/3\! r8 gis4.^\mp fis8 a4.~ |
a8 b1^\<\melisma a4.~ | a8\!\melismaEnd e8 d8 e fis1 |
\break
%%9-12
\dimTextDim c1.^\>\melisma | c | c4\melismaEnd cis^\mp b,1 | b,1. |
\break
%%13-16
\dimTextDim gis4^\>\melisma e c1 |
gis4 e c1 | e4 d c1 | e4 d c1 |
\break
%%17-20
c4.\melismaEnd b,4.^\mp c8 cis16 b,16 a,2 |
cis16 b, a,4 b,4. c8 cis16 b,16 a,2 |
cis16 b, a,4 b,4. c8 cis16 b,16 a,2 |
cis8 b,4. a1 |
\break
%%21-24
\dimTextDim a1.^\>\melisma | a | a | a |
\break
%%25-29
a8\melismaEnd \crescTextCresc a,4.^\< gis,2 fis, |
gis,16 a,4 gis,16 gis,8 gis,1 |
cis16 d4 cis16 cis8 cis1 | fis16 gis4 fis16 fis8 fis1~ |
fis1.\!^\fermata \bar "|."
}
bassL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-2
%%1-8
Ou __ ou __ Joys and pleasures ou __ and dis -- ap -- pear.
\break
%%9-16
ou __ still remain, remain. ou __
\break
%%17--20
They have to be making in my life.
They have to be making in my life.
They have to be making in my life.
\break
%%21-24
ou __
\break
%%25-29
I'm bringing them to walk on one's life,
to walk on one's life, to walk on one's life.
}
bassM = {
\partial 8 r8 |
e8^\ppp\melisma gis4 fis8 a1 |
b1. | a2 b2.^\pppp\melismaEnd r4 |
b1.\melisma |
\break
b1. | b2^\pppp\melismaEnd r8 gis4.^\mp fis8 a4.~ |
a8 b1^\<\pppp\melisma a4.~ | a8^\mp\!\melismaEnd e8 d8 e fis1 |
\break
c1.^\pppp\melisma | c | c4\melismaEnd cis^\mp b,1^~ | b,1. |
\break
\dimTextDim gis4^\pppp\melisma e c1 |
gis4 e c1 | e4 d c1 | e4 d c1 |
\break
c4.\melismaEnd b,4.^\mp c8 cis16 b,16 a,2 |
cis16 b, a,4 b,4. c8 cis16 b,16 a,2 |
cis16 b, a,4 b,4. c8 cis16 b,16 a,2 |
cis8 b,4. a1 |
\break
%%21-24
a1.^\pppp\melisma | a | a | a |
\break
%%25-29
a8\melismaEnd a,4.^\f gis,2 fis, | gis,16 a,4 gis,16 gis,8 gis,1 |
cis16 d4 cis16 cis8 cis1 | fis16 gis4 fis16 fis8 fis1~ |
fis1.^\fermata \bar "|."
}
%% get sheet music --------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" \with { \consists Ambitus_engraver}
{ \clef soprano \key a\major \time 3/2
\set Staff.instrumentName = "soprano" \soprano }
\new Lyrics \lyricsto "soprano" { \sopranoL }
\new Voice = "alto" \with { \consists Ambitus_engraver}
{ \clef alto \key a\major \time 3/2
\set Staff.instrumentName = "alto " \alto }
\new Lyrics \lyricsto "alto" { \altoL }
\new Voice = "tenor" \with { \consists Ambitus_engraver}
{ \clef tenor \key a\major \time 3/2
\set Staff.instrumentName = "tenor " \tenor }
\new Lyrics \lyricsto "tenor" { \tenorL }
\new Voice = "bass" \with { \consists Ambitus_engraver}
{ \clef bass \key a\major \time 3/2
\set Staff.instrumentName = "bass " \bass }
\new Lyrics \lyricsto "bass" { \bassL }
>>
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key a\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key a\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\layout {}
}
%% get midi music ---------------------------------------------------------
\score {
<<
\new Staff { \clef soprano \key a\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \sopranoM }
\new Staff { \clef alto \key a\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \altoM }
\new Staff { \clef tenor \key a\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \tenorM }
\new Staff { \clef bass \key a\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \bassM }
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key a\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key a\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\midi {
tempoWholesPerMinute = #(ly:make-moment 46 4)
}
}
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {\bold "Summary;"} }
\markup {%%column * 2
\fill-line {
\column {
\line {
\column {
"Joys and pleasures left immediately, disappear."
"Only loneliness and grief still remain."
"They have to be making in my life."
"I'm bringing them to walk on one's life."
}
\hspace #6
\column {
\override #'(font-name . "Sazanami Gothic")%%Japanes language
\column {
"喜びも楽しみもすぐに去り、それらは消えてしまう。"
"寂しさや悲しみだけがいつまでも残っている。"
"それらが私の人生を作っていく。"
"私はそれらを携えて自分の人生を歩いている。"
} }
}
}}}
----- name footprints-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
\begin{document}
\thispagestyle{empty}
\pagecolor{cornsilk}
\vspace*{-16pt}
\everypar = {\hspace*{-20pt}}
\includegraphics{footprints-1}\par
\includegraphics{footprints-2}\par
\includegraphics{footprints-3}\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
----------------------------------------------------------------------------------