1 %% 7:35 AM Tuesday, January 25, 2022
  2 %% Yukio Yoshida
  3 \version "2.22.1"
  4 #(set-default-paper-size "letter")
  5 #(set-global-staff-size 16)
  6 
  7 \header {
  8  dedication = "New Testament(Bilingual Bible)"
  9  title = \markup { The John's Gospel 3\hspace #-.50 \raise #0.00 \tiny "(3-5)" }
 10  %%subtitle = #(string-append "LilyPond version " (lilypond-version))
 11  subtitle = \markup { c major(\italic "c d e f g a b") }
 12  subsubtitle = \markup{\center-column {
 13                    "soprano; C clef on 1st line,       alto; C clef on 3rd line."
 14   " bass; F clef on 4th line,    tenor; C clef on 4th line,"
 15    \with-color #blue "baritone C clef on 5th line(Jesus)"
 16                    "  " }}
 17  composer = \markup{ \line {\italic "Yukio Yoshida"}}
 18  arranger = \markup { \column { "Jul. 28, 2011" "Op.63" } }
 19  poet = "John's Gospel 3"
 20  %%opus = " "
 21  meter = \markup { \italic "Prayer and Animato" }
 22  copyright = "public Domain"
 23 }
 24 
 25 Solo=^\markup { \with-color #red \teeny \box { \pad-around #0.5 {solo} } }
 26 Tutti=^\markup { \with-color #blue \teeny
 27                         { \override #'(box-padding . 0.5)
 28                           \override #'(thickness . 2) \rounded-box { {Tutti} } } }
 29 
 30 VoiceColorBlue = {
 31                    %%\override Staff.StaffSymbol #'color = #blue
 32                    %%\override Staff.LedgerLineSpanner #'color = #blue
 33                    \override Staff.Clef #'color = #blue
 34                    \override Staff.TimeSignature #'color = #blue
 35                    \override Staff.KeySignature #'color = #blue
 36                    \override Staff.BarLine #'color = #blue %%Don't use Score.BarLine!
 37                    \override Voice.NoteHead #'color = #blue
 38                    \override Voice.Rest #'color = #blue
 39                    \override Voice.Stem #'color = #blue
 40                    \override Voice.Beam #'color = #blue
 41                    \override Voice.Slur #'color = #blue
 42                    \override Voice.PhrasingSlur #'color = #blue
 43                    \override Voice.Tie #'color = #blue
 44                    \override Voice.Dots #'color = #blue
 45                    \override Voice.Script #'color = #blue
 46                    \override Voice.TupletNumber #'color = #blue
 47                    \override Voice.TupletBracket #'color = #blue
 48                    \override Voice.BreathingSign #'color = #blue
 49 }
 50 
 51 %%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
 52 soprano = {
 53  \autoBeamOff
 54 %% 1-4
 55    \repeat volta 2 {
 56    \repeat volta 2 { f'16([ g' a'] b'4.) r8 g'16([ a' b'] c''2) r8 } |
 57    <c'' g'>4-. r8 <d'' a'>4-. r8 <c'' g'>4-. r8 <b' f'>4-. r8 |
 58    <a' e'>2. <g' d'> | c'1. ~ | \break
 59 %% 5-8
 60    c'2. <d' f'>4-. <e' g'>-. <f' a'>-. |
 61    <g' b'>-. <a' c''>-. <b' d''>8-.[ <c'' e''>-.] e''2. ~ | \noBreak
 62    e''2. <a' f'>4-. <g' e'>-. <f' d'>4-. |
 63    \repeat volta 2 { r8 e'4.( f'16[ g' a']) r8 f'2( g'16[ a' b']) } | \break
 64 %% 9-12
 65    c''1. | d''2 c''1 } |
 66    <f' a'>16([ <g' b'> <a' c''>] b'4.) r8 <g' c''>16([ <a' d''> <b' e''>] c''2) r8 |
 67    \new Voice = "sopranoTutti" { \autoBeamOff
 68    a'4^\Tutti a'8\( b'\) c''4. b'8\( a'4\)r4 | \break
 69 %% 13-17
 70    R1. * 5 | \break
 71 %% 18-21
 72    r4..^\Tutti \stemDown
 73    f'16-.([^\markup { \rotate #20 \line { \tiny \italic "a tempo" } } g'-.])
 74    \stemNeutral
 75    a'8-. b'16-. c''2.-. | c''8-.  b'16-.([ a'-.]) r8. g'4. f'4. g'8 a'8.( |
 76    b'4.) r8 a'8-. a'-. a'-. c''4( d''8) r4 |
 77    r4 d'4\( c'8\) e'8-. e'16-. e'-. e'4\( f'4.\) | \break
 78 %% 22-25
 79    r8 c''8 d''4 d'' e''4. e''16( c'') c''4 |
 80    f''2( g''8) r8 a''2 f''8( e'') | d''( c'') b'2. r2 |
 81    \repeat volta 2 {
 82    r8^\markup {\teeny \italic "Only;instruments" }
 83    <e' a'>4.( <f' b'>16[ <g' c''> <a' d''>])
 84    r8 <f' b'>2( <g' c''>16[ <a' d''> <b' e''>]) } | \break
 85 %% 26-30
 86    c''1. | d''2 c''1 | b'2. a' |
 87    g'4.^\Tutti a'16( b' c'' d'' e''8) r2. | } R1. | \break
 88 %% 31
 89 }
 90 
 91 sopranoL = \lyricmode {
 92    \override Score . LyricText #'font-shape = #'italic
 93    \teeny
 94 In re -- ply Jesus de -- clared,
 95 %%%%%%%%%%
 96 How can a man be born when he is old?
 97 Ni -- code -- mus asked.
 98 Sure -- ly he can -- not en -- ter a sec -- ond time into
 99 his mother's womb to be born!
100 %% \skip command must be followd by a vaild duration,
101 %% Do See, lilypond.pdf page-191; Skipping notes.
102 \skip 2. \skip 2. \skip 1. \skip 2 \skip 1 \skip 2. \skip 2.
103 Jesus answered,
104 }
105 
106 sopranoM = {
107     \autoBeamOff
108 %% 1-4
109    \repeat volta 2 {
110    \repeat volta 2 { f'16([ g' a'] b'4.) r8 g'16([ a' b'] c''2) r8 } |
111    <c'' g'>4-. r8 <d'' a'>4-. r8 <c'' g'>4-. r8 <b' f'>4-. r8 |
112    <a' e'>2. <g' d'> | c'1. | \break
113 %% 5-8
114    c'2. <d' f'>4-. <e' g'>-. <f' a'>-. |
115    <g' b'>-. <a' c''>-. <b' d''>8-.[ <c'' e''>]-. e''2. ~ | \noBreak
116    e''2. <a' f'>4-. <g' e'>-. <f' d'>4-. |
117    \repeat volta 2 { r8 e'4.( f'16[ g' a']) r8 f'2( g'16[ a' b']) } | \break
118 %% 9-12
119    c''1. | d''2 c''1 } |
120    <f' a'>16([ <g' b'> <a' c''>] b'4.) r8 <g' c''>16([ <a' d''> <b' e''>] c''2) r8 |
121    a'4 a'8\( b'\) c''4. b'8\( a'4\)r4 | \break
122 %% 13-17
123    R1. * 5 | \break
124 %% 18-21
125    \tempo 4 = 72
126    r4.. f'16-.([ g'-.]) a'8-. b'16-. c''2.-. |
127    c''8-.  b'16-.([ a'-.]) r8. g'4. f'4. g'8 a'8.( |
128    b'4.) r8 a'8-. a'-. a'-. c''4( d''8) r4 |
129    r4 d'4\( c'8\) e'8-. e'16-. e'-. e'4\( f'4.\) | \break
130 %% 22-25
131    r8 c''8 d''4 d'' e''4. e''16( c'') c''4 |
132    f''2( g''8) r8 a''2 f''8( e'') | d''( c'') b'2. r2 |
133    \repeat volta 2 {
134    r8 <e' a'>4.( <f' b'>16[ <g' c''> <a' d''>])
135    r8 <f' b'>2( <g' c''>16[ <a' d''> <b' e''>]) } | \break
136 %% 26-30
137    c''1. | d''2 c''1 | b'2. a' | g'4. a'16( b' c'' d'' e''8) r2. | R1. | \break
138 %% 31-
139 }
140 
141 %%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
142 alto = {
143  \autoBeamOff
144 %% 1-4
145    \repeat volta 2 {
146    \repeat volta 2 { r8 b16([ c' d'] e'4.) r8 c'16([ d' e'] f'2) } |
147    r8 <f' c'>4-. r8 <g' d'>4-. r8 <f' c'>4-. r8 <e' b>4-. |
148    <d' a>2. <c' g> | f1. ~ | \break
149 %% 5-8
150    f2 <g b>4.-. <a c'>4-. <b d'>4.-. | e'2-. f'-. g' ~ | \noBreak
151    g' <d' b>4.-. <c' a>4-. <b g>4.-. |
152    \repeat volta 2 { a4.( b16[ c' d']) r8 b2( c'16[ d' e']) r8 } | \break
153 %% 9-12
154    f'1. | g'2 f'1 } |
155    r8 <b e'>16([ <c' f'> <d' g'>] e'4.) r8 <c' e'>16([ <d' f'> <e' g'>] f'2) |
156    \new Voice = "altoTutti" { \autoBeamOff
157    r4^\Tutti d'4 d'8\( e'\) f'4. e'8\( d'4\) | \break
158 %% 13-17
159    R1. * 5 | \break
160 %% 18-21
161    r4..^\Tutti \stemDown
162    b16-.([^\markup { \rotate #20 \line { \tiny \italic "a tempo" } } c'-.])
163    \stemNeutral
164    d'8-. e'16-. f'2.-. | f'8-.  e'16-.([ d'-.]) r8. c'4. b4. c'8 d'8.( |
165    e'4.) r8 d'8-. d'-. d'-. f'4( g'8) r4 |
166    r4 g4\( f8\) a8-. a16-. a-. a4\( b4.\) | \break
167 %% 22-25
168    r8 f'8 g'4 g' a'4. a'16( f') f'4 |
169    b'2( c''8) r8 d''2 b'8( a') | g'( f') e'2. r2 |
170    \repeat volta 2 { <a d'>4.^\markup {\teeny \italic "Only;instruments" }
171                              ( <b e'>16[ <c' f'> <d' g'>])
172    r8 <b e'>2( <c' f'>16[ <d' g'> <e' a'>]) r8 } | \break
173 %% 26-30
174    f'1. | g'2 f' e' | d'2 c' b | a4.^\Tutti b16( c' d' e' f'8) r2. | } R1. | \break
175 %% 31-
176 }
177 
178 altoL = \lyricmode {
179    \override Score . LyricText #'font-shape = #'italic
180    \teeny
181 In re -- ply Jesus de -- clared,
182 %%%%%%%%%%
183 How can a man be born when he is old?
184 Ni -- code -- mus asked.
185 Sure -- ly he can -- not en -- ter a sec -- ond time into
186 his mother's womb to be born!
187 %% \skip command must be followd by a vaild duration,
188 %% Do See, lilypond.pdf page-191; Skipping notes.
189 \skip 2. \skip 2. \skip 1. \skip 2 \skip 2 \skip 2 \skip 2 \skip 2 \skip 2
190 Jesus answered,
191 }
192 
193 altoM = {
194     \autoBeamOff
195 %% 1-4
196    \repeat volta 2 {
197    \repeat volta 2 { r8 b16([ c' d'] e'4.) r8 c'16([ d' e'] f'2) } |
198    r8 <f' c'>4-. r8 <g' d'>4-. r8 <f' c'>4-. r8 <e' b>4-. |
199    <d' a>2. <c' g> | f1. ~ | \break
200 %% 5-8
201    f2 <g b>4.-. <a c'>4-. <b d'>4.-. | e'2-. f'-. g' ~ | \noBreak
202    g' <d' b>4.-. <c' a>4-. <b g>4.-. |
203    \repeat volta 2 { a4.( b16[ c' d']) r8 b2( c'16[ d' e']) r8 } | \break
204 %% 9-12
205    f'1. | g'2 f'1 } |
206    r8 <b e'>16([ <c' f'> <d' g'>] e'4.) r8 <c' e'>16([ <d' f'> <e' g'>] f'2) |
207    \new Voice = "altoTutti" { \autoBeamOff
208    r4 d'4 d'8\( e'\) f'4. e'8\( d'4\) } | \break
209 %% 13-17
210    R1. * 5 | \break
211 %% 18-21
212    \tempo 4 = 72
213    r4.. b16-.([ c'-.]) d'8-. e'16-. f'2.-. |
214    f'8-.  e'16-.([ d'-.]) r8. c'4. b4. c'8 d'8.( |
215    e'4.) r8 d'8-. d'-. d'-. f'4( g'8) r4 |
216    r4 g4\( f8\) a8-. a16-. a-. a4\( b4.\) | \break
217 %% 22-25
218    r8 f'8 g'4 g' a'4. a'16( f') f'4 |
219    b'2( c''8) r8 d''2 b'8( a') | g'( f') e'2. r2 |
220    \repeat volta 2 { <a d'>4.( <b e'>16[ <c' f'> <d' g'>])
221    r8 <b e'>2( <c' f'>16[ <d' g'> <e' a'>]) r8 } | \break
222 %% 26-30
223    f'1. | g'2 f' e' | d'2 c' b | a4. b16( c' d' e' f'8) r2. | R1. | \break
224 %% 31-
225 }
226 
227 %%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
228 tenor = { \autoBeamOff
229 %% 1-4
230    \repeat volta 2 {
231    \repeat volta 2 { g16([ a b] c'4.) r8 a16([ b c'] d'2) r8 } |
232    <d' a>4-. r8 <e' b>4-. r8 <d' a>4-. r8 <c' g>4-. r8 |
233    <b f>2. <a e> | d1. ~ | \break
234 %% 5-8
235    d4. <e g>4.-. <f a>4.-. <g b>4.-. |
236    <c' e'>4-. <d' f'>-. <e' g'>8[-. <f' a'>]-. b'2. ~ | \noBreak
237    b'2. <b g>4-. <a f>-. <g e>-. |
238    \repeat volta 2 { f4.( g16[ a b]) r8 g2( a16[ b c']) r8 } | \break
239 %% 9-12
240    d'1. | e'2 d'1 } |
241    \new Voice = "tenorTutti" { \autoBeamOff
242    b4^\Tutti b8\( c'\) d'4. c'8\( b4\) r4 |
243    <g c'>16([ <a d'> <b e'>] c'4.) r8 <a c'>16([ <b d'> <c' e'>] d'2) r8 | \break
244 %% 13-17
245    R1. * 5 | \break
246 %% 18-21
247    r4..^\Tutti \stemDown
248    f16-.([^\markup { \rotate #20 \line { \tiny \italic "a tempo" } } g-.])
249    \stemNeutral
250    a8-. b16-. c'2.-. | c'8-.  b16-.([ a-.]) r8. g4. f4. g8 a8.( |
251    b4.) r2. a8-. a-. a-. | f4( e8) r4 d4. e8-. e16-. e-. f4 | \break
252 %% 22-25
253    r4 a8 g4 f4. e16( f) e4. | d2. e2 f8( g) | r2 a8( b) c'2. |
254    \repeat volta 2 { <f b>4.(^\markup {\teeny \italic "Only;instruments" }
255                               <g c'>16[ <a d'> <b e'>]) r8
256                      <g c'>2( <a d'>16[ <b e'> <c' f'>]) r8 } | \break
257 %% 26-30
258    d'1. | e'2 d'1 | c'2. b | r2^\Tutti a4. g16^\(( f) e8( d c4)\) | } R1. | \break
259 %% 31-
260 }
261 
262 tenorL = \lyricmode {
263    \override Score . LyricText #'font-shape = #'italic
264    \teeny
265 In re -- ply Jesus de -- clared,
266 %%%%%%%%%%
267 \skip 2. \skip 2.
268 How can a man be born when he is old?
269 Ni -- code -- mus asked.
270 Surely he can -- not enter a second time into
271 his mother's womb to be born!
272 %% \skip command must be followd by a vaild duration,
273 %% Do See, lilypond.pdf page-191; Skipping notes.
274 \skip 2. \skip 2. \skip 1. \skip 2 \skip 1 \skip 2. \skip 2.
275 Jesus an -- swered,
276 }
277 
278 tenorM = {
279     \autoBeamOff
280 %% 1-4
281    \repeat volta 2 {
282    \repeat volta 2 { g16([ a b] c'4.) r8 a16([ b c'] d'2) r8 } |
283    <d' a>4-. r8 <e' b>4-. r8 <d' a>4-. r8 <c' g>4-. r8 |
284    <b f>2. <a e> | d1. | \break
285 %% 5-8
286    d4. <e g>4.-. <f a>4.-. <g b>4.-. |
287    <c' e'>4-. <d' f'>-. <e' g'>8[-. <f' a'>]-. b'2. | \noBreak
288    b'2. <b g>4-. <a f>-. <g e>-. |
289    \repeat volta 2 {  f4.( g16[ a b]) r8 g2( a16[ b c']) r8 } | \break
290 %% 9-12
291    d'1. | e'2 d'1 } | b4 b8\( c'\) d'4. c'8\( b4\) r4 |
292    <g c'>16([ <a d'> <b e'>] c'4.) r8 <a c'>16([ <b d'> <c' e'>] d'2) r8 | \break
293 %% 13-17
294    R1. * 5 | \break
295 %% 18-21
296    \tempo 4 = 72
297    r4.. f16-.([ g-.]) a8-. b16-. c'2.-. |
298    c'8-.  b16-.([ a-.]) r8. g4. f4. g8 a8.( | b4.) r2. a8-. a-. a-. |
299    f4( e8) r4 d4. e8-. e16-. e-. f4 | \break
300 %% 22-25
301    r4 a8 g4 f4. e16( f) e4. | d2. e2 f8( g) | r2 a8( b) c'2. |
302    \repeat volta 2 { <f b>4.( <g c'>16[ <a d'> <b e'>]) r8
303                      <g c'>2( <a d'>16[ <b e'> <c' f'>]) r8 } | \break
304 %% 26-30
305    d'1. | e'2 d'1 | c'2. b | r2 a4. g16^\(( f) e8( d c4)\) | R1. | \break
306 %% 31-
307 }
308 
309 %%%%%%%% baritone part %%%%%%%%%%%%%%%%%%%%%%%
310 bariton = {
311      \autoBeamOff
312 %% 1-4
313    \repeat volta 2 {
314    \repeat volta 2 { R1. * 1 } | R1. * 3 | \break
315 %% 5-8
316    R1. * 3 | \repeat volta 2 { R1. * 1 } | \break
317 %% 9-12
318    R1. * 2 } | R1. * 2 | \break
319 %% 13-17
320    << { \new Voice = "baritonSolo" { \VoiceColorBlue \autoBeamOff \stemUp
321    f4.^\Solo
322    r16^\markup { \tiny "Only;" \tiny \italic "Bariton" \teeny "and"
323      \rotate #20 \line { \tiny \italic \with-color #red "Largo; " } \teeny "play" }
324    f4 g4. g16 a4. | e4. e4 r8 d8 e4. r8 e8 | f4.\( g2\) f8 g2 ~ |
325    g4. r8 d4\( c4\) d4. d8 | d2 c4 r2. } } \\
326    { \stemDown
327    r4. c2.( d4.) | r4. b,2.( c4.) | r4 c1( b,8) r8 | g,1.( | a,2.)( b,) } >> |\break
328 %% 18-30
329    R1. * 7 \repeat volta2 { R1.} | R1. * 5 |\break
330 %% 31-38
331    << { \new Voice = "baritonSoloII" { \VoiceColorBlue \autoBeamOff \stemUp
332    g4.^\Solo
333    r16^\markup { \tiny "Only;" \tiny \italic "Bariton" \teeny "and"
334      \rotate #20 \line { \tiny \italic \with-color #red "Grave; " } \teeny "play" }
335    g4 a4. a16 b4. | a4. a4 r8 e8 e4. r8 e8 | g4.\( a2\) g8 a2 ~ |
336    a4. r8 e4\( d4\) e4. e8 | e2 d4 r2. | \break g2 g16 g a2.. } } \\
337    { \stemDown
338    r4. d2.( e4.) | r4. c2.( d4.) | r4 d1( c8) r8 | a,1.( | b,2.)( c) | \break
339    d( e) } >> |
340    \time 4/1 \times 2/3 {e\breve^\markup {\teeny \italic "Only;instruments" }
341              g\breve b\breve } | c'\longa \bar "|."
342 }
343 
344 baritonL = \lyricmode {
345     \override Score . LyricText #'font-shape = #'italic
346     \override Lyrics . LyricText #'color = #blue
347     \override Lyrics . LyricHyphen #'color = #blue
348     \override Lyrics . LyricExtender #'color = #blue
349     \override Score . LyricText #'font-shape = #'italic
350     \tiny
351 %%%%%%%%%%%%
352 I tell you the truth, no one can see the King -- dom of God
353 un -- less he is born again.
354 }
355 baritonLII = \lyricmode {
356     \override Score . LyricText #'font-shape = #'italic
357     \override Lyrics . LyricText #'color = #blue
358     \override Lyrics . LyricHyphen #'color = #blue
359     \override Lyrics . LyricExtender #'color = #blue
360     \override Score . LyricText #'font-shape = #'italic
361     \tiny
362 %%%%%%%%%%%%
363 I tell you the truth, no one can enter the King -- dom of God
364 un -- less he is born of water and the Spirit.
365 }
366 
367 baritonM = {
368      \autoBeamOff
369 %% 1-4
370    \repeat volta 2 {
371    \repeat volta 2 { R1. * 1 } | R1. * 3 | \break
372 %% 5-8
373    R1. * 3 | \repeat volta 2 { R1. * 1 } | \break
374 %% 9-12
375    R1. * 2 } | R1. * 2 | \break
376 %% 13-17
377    << { \tempo 4 = 46
378    f4. r16 f4 g4. g16 a4. | e4. e4 r8 d8 e4. r8 e8 | f4.\( g2\) f8 g2 ~ |
379    g4. r8 d4\( c4\) d4. d8 | d2 c4 r2. } \\
380    { r4. c2.( d4.) | r4. b,2.( c4.) | r4 c1( b,8) r8 | g,1.( |
381      a,2.)( b,) } >> | \break
382 %% 18-30
383    \tempo 4 = 72
384    R1. * 7 \repeat volta2 { R1.} | R1. * 5 |\break
385 %% 31-38
386    \tempo 4 = 40
387    << { \stemUp g4. r16 g4 a4. a16 b4. | a4. a4 r8 e8 e4. r8 e8 |
388           g4.\( a2\) g8 a2 ~ | a4. r8 e4\( d4\) e4. e8 | e2 d4 r2. | \break
389           g2 g16 g a2.. } \\
390       { \stemDown r4. d2.( e4.) | r4. c2.( d4.) | r4 d1( c8) r8 |
391           a,1.( | b,2.)( c) | \break d( e) } >> |
392    \time 4/1 \times 2/3 { e\breve g\breve b\breve } | c'\longa \bar "|."
393 }
394 
395 %%%%%%% bass; part %%%%%%%%%%%%%%%%
396 bass = {
397  \autoBeamOff
398 %% 1-4
399    \repeat volta 2 {
400    \repeat volta 2 { r8 c16([ d e] f4.) r8 d16([ e f] g2) } |
401    r8 <g d>4-. r8 <a e>4-. r8 <g d>4-. r8 <f c>4-. |
402    <e b,>2. <d a,> | g,1. ~ | \break
403 %% 5-8
404    g,2. <a, c>4-. <b, d>-. <c e>-. | f2-. g-. a ~ | \noBreak
405    a <e c>4. <d b,>4 <c a,>4. |
406    \repeat volta 2 { r8 b,4.( c16[ d e]) r8 c2( d16[ e f]) } | \break
407 %% 9-12
408    g1. | a2 g1 } |
409    \new Voice = "bassTutti" { \autoBeamOff
410    r4^\Tutti e4 e8\( f8\) g4. f8\( e4\) |
411    r8 <c e>16([ <d f> <e g>] f4.) r8 <d g>16([ <e a> <f b>] g2) | \break
412 %% 13-17
413    R1. * 5 | \break
414 %% 18-21
415    r4..^\Tutti \stemDown
416    d16-.([^\markup { \rotate #20 \line { \tiny \italic "a tempo" } } e-.])
417    \stemNeutral
418    f8-. g16-. a2.-. | a8-.  g16-.([ f-.]) r8. e4. d4. e8 f8.( |
419    g4.) r2. f8-. f-. f-. | d4( c8) r4 b,4. c8-. c16-. c-. d4 | \break
420 %% 22-25
421    r4 f8 e4 d4. c16( d) c4. | b,2. c2 d8( e) | r2 f8( g) a2. |
422    \repeat volta 2 { r8^\markup {\teeny \italic "Only;instruments" }
423                      <b, e>4.( <c f>16[ <d g> <e a>])
424                      r8 <c f>2( <d g>16[ <e a> <f b>]) } | \break
425 %% 26-30
426    g1. | a2 g f | e d c | r2^\Tutti f4. e16^\(( d) c8( b, a,4)\) | } R1. | \break
427 %% 31-
428 }
429 
430 bassL = \lyricmode {
431    \override Score . LyricText #'font-shape = #'italic
432    \teeny
433 In re -- ply Jesus de -- clared,
434 %%%%%%%%%%
435 \skip 2. \skip 2.
436 How can a man be born when he is old?
437 Ni -- code -- mus asked.
438 Surely he can -- not enter a second time into
439 his mother's womb to be born!
440 %% \skip command must be followd by a vaild duration,
441 %% Do See, lilypond.pdf page-191; Skipping notes.
442 \skip 2. \skip 2. \skip 1. \skip 2 \skip 2 \skip 2 \skip 2 \skip 2 \skip 2
443 Jesus an -- swered,
444 }
445 
446 bassM = {
447    \autoBeamOff
448 %% 1-4
449    \repeat volta 2 {
450    \repeat volta 2 { r8 c16([ d e] f4.) r8 d16([ e f] g2) } |
451    r8 <g d>4-. r8 <a e>4-. r8 <g d>4-. r8 <f c>4-. |
452    <e b,>2. <d a,> | g,1. ~ | \break
453 %% 5-8
454    g,2. <a, c>4-. <b, d>-. <c e>-. | f2-. g-. a | \noBreak
455    a <e c>4. <d b,>4 <c a,>4. |
456    \repeat volta 2 { r8 b,4.( c16[ d e]) r8 c2( d16[ e f]) } | \break
457 %% 9-12
458    g1. | a2 g1 } |
459    r4 e4 e8\( f8\) g4. f8\( e4\) |
460    r8 <c e>16([ <d f> <e g>] f4.) r8 <d g>16([ <e a> <f b>] g2) | \break
461 %% 13-17
462    R1. * 5 | \break
463 %% 18-21
464    \tempo 4 = 72
465    r4..^\Tutti \stemDown
466    d16-.([^\markup { \rotate #20 \line { \tiny \italic "a tempo" } } e-.])
467    \stemNeutral
468    f8-. g16-. a2.-. | a8-.  g16-.([ f-.]) r8. e4. d4. e8 f8.( |
469    g4.) r2. f8-. f-. f-. | d4( c8) r4 b,4. c8-. c16-. c-. d4 | \break
470 %% 22-25
471    r4 f8 e4 d4. c16( d) c4. | b,2. c2 d8( e) | r2 f8( g) a2. |
472    \repeat volta 2 { r8 <b, e>4.( <c f>16[ <d g> <e a>])
473                      r8 <c f>2( <d g>16[ <e a> <f b>]) } | \break
474 %% 26-30
475    g1. | a2 g f | e2 d c | r2 f4. e16^\(( d) c8( b, a,4)\) | R1. | \break
476 %% 31-
477 }
478 
479 
480 %%%%%%%%%% sheet and midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 %% get sheet music ---------------------------------------------------------------
482 \score {
483          <<
484   \context ChoirStaff = "FourPartStaffaddchorus" <<
485    \new Voice = "sopranoAll" { \clef soprano \key c\major \time 3/2
486    \set Staff.instrumentName = "soprano" \soprano }
487    \new Lyrics = "mainSL" \lyricsto "sopranoTutti" { \sopranoL }
488 
489    \new Voice = "altoAll" { \clef alto \key c\major \time 3/2
490    \set Staff.instrumentName = "alto   " \alto }
491    \new Lyrics = "mainAL" \lyricsto "altoTutti" { \altoL }
492 
493    \new Voice = "tenorAll" { \clef tenor \key c\major \time 3/2
494    \set Staff.instrumentName = "tenor  "  \tenor }
495    \new Lyrics = "mainTL" \lyricsto "tenorTutti" { \tenorL }
496 
497    \new Voice = "baritonAll" { \clef baritone \key c\major \time 3/2
498    \set Staff.instrumentName = "bariton"
499    \set Staff.shortInstrumentName = \markup {
500                \rotate #-90 \line { \tiny \italic \with-color #blue " Bariton" } }
501                    \override Staff.StaffSymbol #'color = #blue
502                    \override Staff.LedgerLineSpanner #'color = #blue
503                                                                      \bariton }
504    \new Lyrics = "mainBaL" \lyricsto "baritonSolo" { \baritonL }
505    \new Lyrics = "mainBaL" \lyricsto "baritonSoloII" { \baritonLII }
506 
507    \new Voice = "bassAll" { \clef bass \key c\major \time 3/2
508    \set Staff.instrumentName = "bass   "   \bass }
509    \new Lyrics = "mainBL" \lyricsto "bassTutti" { \bassL }
510                                             >>
511 
512            %%\context PianoStaff = "PianoStaff" <<
513            %%\new Voice = "piano" { \clef treble \key \major \time
514            %%             \set Staff.instrumentName = "piano  " \pianoUP }
515            %%\new Voice = "piano" { \clef bass \key \major \time
516            %%             \set Staff.instrumentName = "piano  " \pianoDown }
517            %%                                   >>
518 
519          >>
520 
521   \layout {
522             \context { \RemoveEmptyStaffContext
523                        \override VerticalAxisGroup #'remove-first = ##t
524                       }
525            }
526 }
527 
528 %% get midi music ----------------------------------------------------------------
529 \score {
530          <<
531           %% soprano class
532            \new Staff { \clef soprano \key c\major \time 3/2 \tempo 4 = 72
533                          \set Staff.midiInstrument = "pad 2 (warm)"
534                                          \unfoldRepeats       \sopranoM }
535 
536           %% alto class
537            \new Staff { \clef alto \key c\major \time 3/2 \tempo 4 = 72
538                          \set Staff.midiInstrument = "pad 2 (warm)"
539                                          \unfoldRepeats          \altoM }
540 
541           %% tenor class
542            \new Staff { \clef tenor \key c\major \time 3/2 \tempo 4 = 72
543                          \set Staff.midiInstrument = "pad 2 (warm)"
544                                          \unfoldRepeats        \tenorM }
545 
546           %% bariton class
547            \new Voice { \clef baritone \key c\major \time 3/2 \tempo 4 = 72
548                         \set Staff.midiInstrument = "pad 2 (warm)"
549                                          \unfoldRepeats       \baritonM }
550 
551           %% bass class
552            \new Staff { \clef bass \key c\major \time 3/2 \tempo 4 = 72
553                         \set Staff.midiInstrument = "pad 2 (warm)"
554                                          \unfoldRepeats         \bassM }
555 
556 
557            %%\new Staff { \clef treble \key \major \time \tempo 4 =
558            %%             \set Staff.midiInstrument = "acoustic grand"
559            %%                                \unfoldRepeats       \pianoUPm }
560            %%\new Staff { \clef bass \key \major \time \tempo 4 =
561            %%             \set Staff.instrumentName = "acoustic grand"
562            %%                                \unfoldRepeats     \pianoDownm }
563          >>
564 
565    \midi { tempoWholesPerMinute = #(ly:make-moment 72 4) }
566 }
567 \markup { " " }
568 \markup { \column { \line {
569 About location \hspace #3 \musicglyph #"noteheads.uM2"(longa) \hspace #2 and \hspace #3 \musicglyph #"noteheads.sM1"(breve) }
570 \line { \italic " Please, playing of \"longa and breve\" do in the members alternating(But, like Don't stand out). " } } }
571 \markup { " " }
572 \markup { " " }
573 \markup { " " }
574 \markup { " " }
575 \markup { " " }
576 \markup { From(Refer)--Bilingual Bible(John)--; \italic "English-to-Japanese correspondence edition." }
577 \markup {
578  \fill-line {
579   \column {
580           \line { \italic \tiny
581            \column {
582 \bold \large "3 Jesus Teaches Nicodemus"
583 "-3"
584 "In reply Jesus declared,"
585 "``I tell you the truth, no one can see the Kingdom of God"
586 "unless he is born again''"
587 " "
588 "-4"
589 "How can a man be born when he is old?  Nicodemus asked."
590 "``Surely he cannot enter a second time into his mother's womb to be born!''"
591 " "
592 "-5"
593 "Jesus answered,"
594 "``I tell you the truth, no one can enter the Kingdom of God"
595 "unless he is born of water and the Spirit.''"
596 }}}
597 \hspace #1
598    \column {
599            \line { \tiny
600             \column {%% Japanese
601 " "
602 " "
603 "イエスは答えて言われた。"
604 " 「まことに、まことに、あなたに告げます。"
605 "人は、新たに生まれなければ、神の国を見ることは出来ません。」"
606 " "
607 " "
608 "ニコデモは言った。「人は、老年になっています、どのようにして"
609 "生まれることができるのですか。もう一度、"
610 "母の胎に入って生まれることができましょうか。」"
611 " "
612 " "
613 "イエスは答えられた。"
614 "「まことに、まことに、あなたに告げます。 人は、水と御霊によって"
615 "生まれなければ、神の国に入ることができません。」"
616 }}}
617         }}
618 %%% End all.