footprints;Source code



Source code(footprints.ly , footprints-sheet.latex , run-2008-svg-multi.cmd)

---- footprints.ly ----------------------------------------------------------
%% -*- Coding: utf-8 -*-
%% Jul. 08, JST 2008
%% Time-stamp: "Wed Jun 08 12:14:39 2011"
%% C-x {Enter} C\ latin-1-alt-postfix ====> a[.....]
%% For instance; E/====>AE(Æ)  e/====>æ C-x Enter C\ ===>utf-8
%% time-stamp; "6:02:18.78 2018/09/01" Yukio Yoshida 
\version "2.18.0"
#(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 {
      \column {
             "喜びも楽しみもすぐに去り、それらは消えてしまう。"
             "寂しさや悲しみだけがいつまでも残っている。"
             "それらが私の人生を作っていく。"
             "私はそれらを携えて自分の人生を歩いている。"
            } }
        }
}}}

---- name footprints-sheet.latex -------------------------------------------------
%%Time-stamp: "Fri Jan 09 09:59:21 JST 2009"
%%time-stamp; "6:02:18.78 2018/09/01" Yukio Yoshida 
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{whitesmoke}{rgb}{0.96077,0.96077,0.96077}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=6mm,headsep=5mm,%
top=10mm,headheight=6mm,footskip=0mm,portrait}
\parindent=0pt

\begin{document}
\pagestyle{empty}
\pagecolor{whitesmoke}
\vspace*{-1.375pc}
\hskip -1.6pc \includegraphics{footprints-1.eps}\par
\hskip -1.6pc \includegraphics{footprints-2.eps}\par
\hskip -1.6pc \includegraphics{footprints-3.eps}\par
\vfill
\end{document}

--- name run-2008-svg-multi.cmd ------------------------------------------
echo off
chcp 437
rem time-stamp; "2:18:07.30 2018/09/01" Yukio Yoshida 
Rem This is for %1-sheet.latex(multi page object)
echo on
lilypond -dbackend=svg %1.ly
lilypond -dbackend=eps %1.ly
lilypond --pdf --png %1.ly
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
gswin64c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet+page%%d.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
%1.mid | %1-page1.png | %1-page2.png | %1-page3.png | ^
%1-sheet+page1.png | %1-sheet+page2.png | %1-sheet+page3.png | ^
%1.pdf | %1-sheet.pdf
%1-page-1.svg | %1-page-2.svg | %1-page-3.svg
pause
erase %1-1.* *.count *.aux *.log *.png *.pdf
erase *.dvi *.ps *.tex *.texi *.eps *.svg *.mid
dir /oe
----------------------------------------------------------------------------------

usally;(cmd promput)   >lilypond --png --pdf footprints.ly[Enter]

run script;(cmd promput)   >run-2008-svg-multi footprints[Enter]
(However, this "Windows10(64bit) + LilyPond(ver2.18.*) + W32TeX(& UP) + Ghostscript(edition 64bit)" is required.)