Source code(rainy-midnight.ly , rainy-midnight-sheet.latex , run-script)
---- rainy-midnight --------------------------------------------------------------
%% -*- 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 17)
\header {
dedication = "Surge up Somthing"
title = "Rainy in Midnight"
subtitle = "Is that about Death!"
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 = "Sep. 05, JST 2008"
poet = "Yukio Yoshida"
opus = "Op. 33, No.1"
meter = "Largo"
copyright = "public Domain"
}
%% --- Soprano part ---------------------------------------------------------------
soprano = {
\autoBeamOff
\partial 4 r4 |
%%1-3
e'4 cis''2 a'8 fis'2~ fis'8 | g'4 d''2 b'8 g'4 fis'4. |
g'8 a'4. e'8 fis'4. a'8 cis''4. |
\break
%%4-7
b'8 g'4. a'8 fis'4. g'8 e'4. |
des'2 d'4 cis'2. | b'4.\melisma e''8 cis'' e''\melismaEnd d'' b'4 cis''4. |
a'8 fis'2 d'8 g'2.^\p |
\break
%%8-11
e'8^\> bis'16[\melisma cis''8] d''4\melismaEnd r16 b'8 g'2.\! |
r4 g''2^\> a''2.\pppp\! | R1. | \key bes\major
g''2^\pp f'' d'' |
\break
%%12-15
R1. | r2 d''4 g''2.^\ppp |
c'8 d'4. ees'8 f'4. g'16 f' ees'8. r16 d'8~ | d'2 ees'4 d' c'2 |
\break
%%16-19
d''4 ees''16 ees''16 f''4 g''4. ees''16 g''4.. |
c''8. d''16 ees''4 f''4 g''2. |
c'8 d'8. ees'16( f'4) ees'8 c'2. | R1. |
\break
%%20-23
R1. | \key d\major
R1. | cis''16 d''4. cis''16 d''4. cis''16 d''8( e''4..) |
a'8^\> b'16 cis'' d''8.\melisma
fis''16 cis'' d'' cis'' d'' cis'' d''\melismaEnd fis'' cis''8. b'4.\! |
\break
%%24-27
\repeat volta 2 { e'4^\< fis'2.^\mp\! r2 | g'4^\< a'2.^\mp\! r2 | }
a'8 fis'4. d'8 cis'8\melisma
cis'16 d' e'\melismaEnd fis'( g')\melisma a' b' cis''\melismaEnd
e''4^\fermata ~ | e''1.^\fermata \bar "|."
}
sopranoM = {
\autoBeamOff
\partial 4 r4 |
e'4 cis''2 a'8 fis'2~ fis'8 | g'4 d''2 b'8 g'4 fis'4.|
g'8 a'4. e'8 fis'4. a'8 cis''4. |
\break
b'8 g'4. a'8 fis'4. g'8 e'4. | des'2 d'4 cis'2. |
b'4. e''8 cis'' e'' d'' b'4 cis''4. | a'8 fis'2 d'8 g'2.^\p |
\break
e'8^\mp bis'16[ cis''8] d''4 r16 b'8 g'2.^\ppp |
r4 g''2^\ppp a''2.^\pppp | R1. | \key bes\major
g''2^\pp f'' d'' |
\break
R1. | r2 d''4 g''2.^\ppp |
c'8^\mf d'4. ees'8 f'4. g'16 f' ees'8. r16 d'8~ | d'2 ees'4 d' c'2 |
\break
d''4 ees''16 ees''16 f''4 g''4. ees''16 g''4.. |
c''8. d''16 ees''4 f''4 g''2. |
c'8 d'8. ees'16( f'4) ees'8 c'2. | R1. |
\break
R1. | \key d\major
R1. | cis''16^\mf d''4. cis''16 d''4. cis''16 d''8( e''4..) |
a'8^\mf^\> b'16 cis'' d''8.^\p\melisma
fis''16 cis'' d'' cis'' d'' cis'' d''\melismaEnd fis'' cis''8. b'4.^\pp\! |
\break
\repeat volta 2 { e'4^\pp fis'2.^\mp r2 | g'4^\pp a'2.^\mp r2 | }
a'8 fis'4. d'8 cis'8\melisma
cis'16 d' e'\melismaEnd fis'( g')\melisma a' b' cis''\melismaEnd
e''4^\fermata ~ | e''1.^\fermata \bar "|."
}
sopranoL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-1
On a quiet midnight has being struck by rain.
Be hatred, Be beloved, Be relieved, Be hardship,
Be sadness, Be worries. All of them,
Bre __ ath of life have being struck rain in a __ quiet midnight.
æ æ
Child -- hood days by rain.
By -- gone memo -- ries of in my heart, Cer -- tain -- ly,
there were the foot -- prints of life,
In a quiet mid -- night has being struck by rain.
All melted all sink, All darkness,
Wet in the ra __ in at night, To erase the living.
To erase the li __ vi __ ng.
}
%% ---Alto part ----------------------------------------------------------------------
alto = {
\autoBeamOff
\partial 4 r4 |
%%1-3
a4 r8. d'16[\melisma e'] fis'8.\melismaEnd d'8 b2~ b8 |
cis'4 g'2 e'8 cis'4 b4. | r8 fis'4. r8 d'4. r8 a'4. |
\break
%%4-7
r8 e'4. r8 d'4. r8 cis'4. | bes2 b4 a2. |
g'2.. g'4 a'4. | d'8 b2 g8 cis'2.^\p |
\break
%%8-11
cis'8^\> a'16[\melisma ais'8] b'4\melismaEnd r16 g'8 e'2.\! |
R1. * 2 | \key bes\major
R1. |
\break
%%12-15
d'4^\mf^\< ees'2 d'8( ees'4.) ees'4 |
f'2^\ff\! c'1 * 2/3_\pppp^\> s1 * 1/3\!^\markup {\italic\bold "f.o." } |
c8 d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
%%16-19
a'4 bes'16 bes'16 c''4 d''4. bes'16 d''4.. |
f'8. g'16 a'4 bes'4 c''2. |
g8 a8. bes16( c'4) bes8 g2. | r4 c'2^\< d'2.^\fff\! |
\break
%%20-23
R1. | \key d\major
cis'8 d'4. cis'8 d'4 cis'8 d'8( e'4.) | R1. |
d'8^\> e'16 fis' g'8.\melisma
b'16 fis' g' fis' g' fis' g'\melismaEnd b' fis'8. e'4.\! |
\break
%%24-27
\repeat volta 2 { r2 e4^\< fis2.^\mp | r2 g4^\< a2.^\mp | }
r2 a8 g8\melisma
g16 a b\melismaEnd cis'( d')\melisma e' fis' g'\melismaEnd
b'4^\fermata ~ | b'1.^\fermata \bar "|."
}
altoM = {
\autoBeamOff
\partial 4 r4 |
a4 r8. d'16[ e'] fis'8. d'8 b2~ b8 |
cis'4 g'2 e'8 cis'4 b'4. | r8 fis'4. r8 d'4. r8 a'4. |
\break
r8 e'4. r8 d'4. r8 cis'4. | bes2 b4 a2. |
g'2.. g'4 a'4. | d'8 b2 g8 cis'2.^\p |
\break
cis'8^\mp a'16 ais'8 b'4 r16 g'8 e'2.\ppp |
R1. * 2 | \key bes\major
R1. |
\break
d'4^\mf ees'2 d'8( ees'4.) ees'4^\f |
f'2^\ff c'1^\pppp |
c8^\mf d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
a'4 bes'16 bes'16 c''4 d''4. bes'16 d''4.. |
f'8. g'16 a'4 bes'4 c''2. |
g8 a8. bes16( c'4) bes8 g2. | r4 c'2^\mf d'2.^\fff |
\break
R1. | \key d\major
cis'8^\mf d'4. cis'8 d'4 cis'8 d'8( e'4.) | R1. |
d'8^\mf^\> e'16 fis' g'8.^\p\melisma
b'16 fis' g' fis' g' fis' g'\melismaEnd b' fis'8. e'4.^\pp\! |
\break
\repeat volta 2 { r2 e4^\pp fis2.^\mp | r2 g4^\pp a2.^\mp | }
r2 a8 g8\melisma
g16 a b\melismaEnd cis'( d')\melisma e' fis' g'\melismaEnd
b'4^\fermata ~ | b'1.^\fermata \bar "|."
}
altoL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-1
On a __ quiet midnight has being struck by rain.
hatred, beloved, relieved, hardship,
sadness, worries. All of them,
Breath of life have being struck rain in a __ quiet midnight.
has being satruck by rain. æ
By -- gone memo -- ries of in my heart, Cer -- tain -- ly,
there were the foot -- prints of life,
In a quiet mid -- night has being struck by rain.
æ æ
All melted all sink, All darkness,
Wet in the ra __ in at night, To erase the living.
the li __ vi __ ng.
}
%% ---tenor part --------------------------------------------------------------------
tenor = {
\autoBeamOff
\partial 4 r4 |
%%1-3
fis2.^\< r8 g2 ~ g8\! | g4^\mf d'2 b8 g4 fis4. |
a8 a4. fis8 fis4. cis'8 cis'4. |
\break
%%4-7
g8 g4. fis8 fis4. e8 e4. | des2 d4 cis2. |
a2..^\> b4 cis'4. | a8 fis2 d8\! a2.^\mf |
\break
%%8-11
e8^\< bis16[\melisma cis'8] d'4\melismaEnd r16 b8 g2.\! |
R1. * 2 | \key bes\major
R1. |
\break
%%12-15
bes4^\mf^\< a2 bes8( a4.) a4 |
g2^\ff\! c'1 * 2/3_\pppp^\> s1 * 1/3\!^\markup {\italic\bold "f.o." } |
c8 d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
%%16-19
g4 a16 a16 bes4 c'4. a16 c'4.. |
g8. a16 bes4 c'4 d'2. |
c8 d8. ees16( f4) ees8 c2. | r4 c'2^\< d'2.^\fff\! |
\break
%%20-23
R1. | \key d\major
cis'8 d'4. cis'8 d'4 cis'8 d'8( e'4.) | R1. |
e8^\> f16 g a8.\melisma
cis'16 g a g a g a\melismaEnd cis' g8. fis4.\! |
\break
%%24-27
\repeat volta 2 { r2 e4^\< fis2.^\mp | r2 g4^\< a2.^\mp | }
r2 d8 cis8\melisma
cis16 d e\melismaEnd fis( g)\melisma a b cis'\melismaEnd
e'4^\fermata ~ | e'1.^\fermata \bar "|."
}
tenorM = {
\autoBeamOff
\partial 4 r4 |
%%1-3
fis2.^\ppp r8 g2\mp ~ g8 | g4^\mf d'2 b8 g4 fis4. |
a8 a4. fis8 fis4. cis'8 cis'4. |
\break
%%4-7
g8 g4. fis8 fis4. e8 e4. | des2 d4 cis2. |
a2..^\pp b4 cis'4. | a8 fis2 d8^\ppp a2.^\mf |
\break
%%8-11
e8^\ff bis16[\melisma cis'8] d'4\melismaEnd r16 b8 g2.^\ffff |
R1. * 2 | \key bes\major
R1. |
\break
bes4^\mf a2 bes8( a4.) a4^\f |
g2^\ff c'1^\pppp |
c8^\mf d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
g4 a16 a16 bes4 c'4. a16 c'4.. |
g8. a16 bes4 c'4 d'2. |
c8 d8. ees16( f4) ees8 c2. | r4 c'2^\mf d'2.^\fff |
\break
R1. | \key d\major
cis'8^\mf d'4. cis'8 d'4 cis'8 d'8( e'4.) | R1. |
e8^\mf^\> f16 g a8.^\p\melisma
cis'16 g a g a g a\melismaEnd cis' g8. fis4.\! |
\break
\repeat volta 2 { r2 e4^\pp fis2.^\mp | r2 g4^\pp a2.^\mp | }
r2 d8 cis8\melisma
cis16 d e\melismaEnd fis( g)\melisma a b cis'\melismaEnd
e'4^\fermata ~ | e'1.^\fermata \bar "|."
}
tenorL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-1
On midnight has being struck by rain.
Be hatred, Be beloved, Be relieved, Be hardship,
Be sadness, Be worries. All of them,
Breath of life have being struck rain in a __ quiet midnight.
has being satruck by rain. o
By -- gone memo -- ries of in my heart, Cer -- tain -- ly,
there were the foot -- prints of life,
In a quiet mid -- night has being struck by rain.
o o
All melted all sink, All darkness,
Wet in the ra __ in at night, To erase the living.
the li __ vi __ ng.
}
%% ---bass part ----------------------------------------------------------------------
bass = {
\autoBeamOff
\partial 4 r4 |
%%1-3
r4.. d16[^\<\melisma e] fis8.\melismaEnd d8 b,2~ b,8\! |
cis4^\mf g2 e8 cis4 b,4. | r8 fis4. r8 d4. r8 a4. |
\break
%%4-7
r8 cis4. r8 b,4. r8 a,4. | ges,2 g,4 fis,2. |
g4.^\>\melisma cis'8 a cis'\melismaEnd b g4 a4. |
d8 b,2 g,8\! d2.^\mf |
\break
%%8-11
cis8^\< a16[\melisma ais8] b4\melismaEnd r16 g8 e2.\! |
r4 fis,2^\> g,2.^\pppp\! | R1. | \key bes\major
g,2^\pp a, bes, |
\break
%%12-15
R1. | r2 bes,4 g,2.^\ppp |
c8 d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
%%16-19
d4 ees16 ees16 f4 g4. ees16 g4.. |
c8. d16 ees4 f4 g2. |
c8 d8. ees16( f4) ees8 c2. | R1. |
\break
%%20-23
R1. | \key d\major
R1. | cis16 d4. cis16 d4. cis16 d8( e4..) |
a,8^\> b,16 cis d8.\melisma
fis16 cis d cis d cis d\melismaEnd fis cis8. b,4.\! |
\break
%%24-27
\repeat volta 2 { e,4^\< fis,2.^\mp\! r2 | g,4^\< a,2.^\mp\! r2 | }
e8 cis4. a,8 g,8\melisma
g,16 a, b,\melismaEnd cis( d)\melisma e fis g\melismaEnd
b4^\fermata ~ | b1.^\fermata \bar "|."
}
bassM = {
\autoBeamOff
\partial 4 r4 |
r4.. d16[^\ppp\melisma e] fis8.\melismaEnd d8 b,2^\mp~ b,8 |
cis4^\mf g2 e8 cis4 b,4. | r8 fis4. r8 d4. r8 a4. |
\break
r8 cis4. r8 b,4. r8 a,4. | ges,2 g,4 fis,2. |
g4.^\pp cis'8 a' cis' b g4 a4. | d8 b,2 g,8^\ppp d2.^\mf |
\break
cis8^\ff a16 ais8 b4 r16 g8 e2.\fff |
r4 fis,2^\ppp g,2.^\pppp | R1. | \key bes\major
g,2^\pp a, bes, |
\break
R1. | r2 bes,4 g,2.^\ppp |
c8^\mf d4. ees8 f4. g16 f ees8. r16 d8~ | d2 a4 g f2 |
\break
d4 ees16 ees16 f4 g4. ees16 g4.. |
c8. d16 ees4 f4 g2. |
c8 d8. ees16( f4) ees8 c2. | R1. |
\break
R1. | \key d\major
R1. | cis16^\mf d4. cis16 d4. cis16 d8( e4..) |
a,8^\mf^\> b,16 cis d8.^\p\melisma
fis16 cis d cis d cis d\melismaEnd fis cis8. b,4.^\pp\! |
\break
\repeat volta 2 { e,4^\pp fis,2.^\mp r2 | g,4^\pp a,2.^\mp r2 | }
e8 cis4. a,8 g,8\melisma
g,16 a, b,\melismaEnd cis( d)\melisma e fis g\melismaEnd
b4^\fermata ~ | b1.^\fermata \bar "|."
}
bassL = \lyricmode {
\override Lyrics . LyricText #'font-shape = #'italic
\override Lyrics . LyricText #'font-size = #-1
A __ quiet midnight has being struck by rain.
hatred, beloved, relieved, hardship,
sadness, worries. All of them,
Bre __ ath of life have being struck rain in a __ quiet midnight.
o o
Child -- hood days by rain.
By -- gone memo -- ries of in my heart, Cer -- tain -- ly,
there were the foot -- prints of life,
In a quiet mid -- night has being struck by rain.
All melted all sink, All darkness,
Wet in the ra __ in at night, To erase the living.
To erase the li __ vi __ ng.
}
%% get sheet music --------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" \with { \consists Ambitus_engraver}
{ \clef soprano \key d\major \time 3/2
\set Staff.instrumentName = "soprano" \soprano }
\new Lyrics \lyricsto "soprano" { \sopranoL }
\new Voice = "alto" \with { \consists Ambitus_engraver}
{ \clef alto \key d\major \time 3/2
\set Staff.instrumentName = "alto " \alto }
\new Lyrics \lyricsto "alto" { \altoL }
\new Voice = "tenor" \with { \consists Ambitus_engraver}
{ \clef tenor \key d\major \time 3/2
\set Staff.instrumentName = "tenor " \tenor }
\new Lyrics \lyricsto "tenor" { \tenorL }
\new Voice = "bass" \with { \consists Ambitus_engraver}
{ \clef bass \key d\major \time 3/2
\set Staff.instrumentName = "bass " \bass }
\new Lyrics \lyricsto "bass" { \bassL }
>>
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\layout {}
}
%% get midi music ---------------------------------------------------------
\score {
<<
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \sopranoM }
\new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \altoM }
\new Staff { \clef tenor \key d\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \tenorM }
\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 46
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \bassM }
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\midi {
tempoWholesPerMinute = #(ly:make-moment 46 4)
}
}
\markup { \line {" "} }
\markup { \line {" "} }
\markup { \line {\bold "Summary;"} }
\markup {%%column * 2
\fill-line {
\column {
\line {
\column {
"On a quiet midnight has being struck by rain."
"Be hatred, Be beloved, Be relieved, Be hardship,"
"Be sadness, Be worries. All of them,"
"Breath of life have being struck rain in a quiet midnight"
" "
" "
"Childhood days has being struck by rain."
"Bygone memories of in my heart,"
"Certainly, there were the footprints of life,"
"In a quiet midnight has being struck by rain."
" "
" "
"All melted all sink,"
"All darkness,"
"Wet in the rain at night,"
"To erase the living."
}
\hspace #6
\column {
\override #'(font-name . "Sazanami Gothic")%%Japanes language
\column {
"夜の静かさが雨に打たれている."
"憎しみと愛しさと安らぎと苦しみと"
"悲しみと悩みと, それら生命の息吹が"
"夜の静かさの中で雨に打たれている."
" "
" "
"幼かった日々が雨に打たれている."
"過ぎ去った思い出の数々が,"
"確かにあった日々が, 生命の足跡が"
"夜の静かさの中で雨に打たれている."
" "
" "
"全て溶かし, 全て流し"
"全て消して"
"雨が夜の中をぬらし"
"生きた事を消し去っている"
} }
}
}}}
---- name rainy-midnight-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}
\thispagestyle{empty}
%%\pagecolor{cornsilk}
\vspace*{2pc}
\begin{center}
{\Huge Raniy in Mindnight\par
Tune of Poem\par
}
{\it composer; Yukio Yoshida\par
poet; Yukio Yoshida\par
}
{\rm september 05 2008}\par
\end{center}
\vskip 4pc
\hspace*{10pt}\includegraphics[width=.95\linewidth]{Galaxy-NGC-1808}\par
Stars are being born in this close-up view of the center of NGC 1808. Yellow
shows older stars, blue shows areas of star birth. NGC 1808 is called a barred
spiral because of the straight lines of star formation on both sides of the
bright nucleus.\hfill {\it from} Hubblesite\par
\begin{flushright}
phot-Location;\par
{\tt http://hubblesite.org/gallery/wallpaper/pr1998012b/}
\end{flushright}
\vfill
\newpage
\pagecolor{cornsilk}
\vspace*{-2pc}
\everypar{\hspace*{-2pc}}
\includegraphics{rainy-midnight-1}\par
\includegraphics{rainy-midnight-2}\par
\includegraphics{rainy-midnight-3}\par
\vfill
\end{document}
%% In here, "Galaxy-NGC-1808.eps" is eps of "hs-1998-12-b-1280x800_wallpaper.jpg"
%% Please download an eps file from "http://hubblesite.org/gallery/wallpaper/pr1998012b/"
--- 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
copy title-eps\Galaxy-NGC-1808.eps
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
----------------------------------------------------------------------------------