Road-6.ly

%% -*- Coding: utf-8 -*-
%% Yukio Yoshida.
%% Time-stamp: "2014/01/03 21:19"
\version "2.20.0"
#(set-default-paper-size "letter")
#(set-global-staff-size 18)
VoiceColorBlue = {
                   \override Staff.StaffSymbol #'color = #blue
                   \override Staff.LedgerLineSpanner #'color = #blue
                   \override Staff.Clef #'color = #blue
                   \override Staff.TimeSignature #'color = #blue
                   \override Staff.KeySignature #'color = #blue
                   \override Staff.BarLine #'color = #blue %%Don't use Score.BarLine!
                   \override Voice.NoteHead #'color = #blue
                   \override Voice.Rest #'color = #blue
                   \override Voice.Stem #'color = #blue
                   \override Voice.Flag #'color = #blue
                   \override Voice.Beam #'color = #blue
                   \override Voice.Slur #'color = #blue
                   \override Voice.PhrasingSlur #'color = #blue
                   \override Voice.Tie #'color = #blue
                   \override Voice.Dots #'color = #blue
                   \override Voice.Script #'color = #blue
                   \override Voice.TupletNumber #'color = #blue
                   \override Voice.TupletBracket #'color = #blue
                   \override Voice.BreathingSign #'color = #blue
}

RedHead = { \override Voice.NoteHead #'color = #red
            \override Voice.Stem #'color = #red
            \override Voice.Flag #'color = #red
            \override Voice.Dots #'color = #red
            \override Voice.Slur #'color = #red
            \override Voice.Tie #'color = #red }
RedOff = { \revert Voice.NoteHead #'color
           \revert Voice.Stem #'color
           \revert Voice.Flag #'color
           \revert Voice.Dots #'color
           \revert Voice.Slur #'color
           \revert Voice.Tie #'color }

\include "sub-soprano-6.ly"
\include "sub-alto-6.ly"

\paper {
        %%ragged-last-bottom = ##f
}

\header {
 dedication = " To Dear your's Daughters "
 title = "Road; Sorrow of the night"
 subtitle = \markup{ \center-column {\italic "d major; cis d e fis g a b" } }
 %% subsubtitle = #(string-append "LilyPond version " (lilypond-version))
 subsubtitle = \markup{\center-column {
                    "Baritone; C clef on 5th line"
                   "soprano; C clef on 1st line,       alto; C clef on 3rd line."
                   }}
 composer = \markup{ \line {\italic "Yukio Yoshida"}}
 arranger =  "March 2, 2013"
 poet = \markup { \tiny \italic "Text(Soprno and Alto) from Requiem-ceremony;" }
 opus = "Op.74"
 meter = \markup{ \column { "soprano,alto; Animato" "bariton; Con anima" } }
 copyright = "public Domain"
}


%%%%%%%% baritone part %%%%%%%%%%%%%%%%%%%%%%%
bariton = {
           %%\revert Score.BarLine #'color %%Don't need
     \autoBeamOff
\partial 2 \RedHead <cis e g>2^\markup {\with-color #red \italic "(only;instruments)"} |
%% 1-4
   <e g b>1.\RedOff | cis2 cis'2 b16( g e8) cis4 ~ | cis4 d8 d r8 fis2.. ~ |
   fis4 r4 cis2 cis'8( a fis e) | \break
%% 5-9
   d4. b, e8 a d'2 ~ | d' r2 cis'2 | b a8 g fis r8 cis2 |
   b,2 r4 fis2. | a,1. | \break
%% 10-14
   \RedHead <a, e b>1^\markup {\with-color #red \italic "(only;instruments)"} ~
   <e g b>2\RedOff |
   a,2 a1 | fis2 a1 | fis2 e8( d) cis2. | d16 e8 fis4.. cis'2.. | \break
%% 15-20
   R1. * 6
%% 21-24
   r1. | fis2 g4 a2. | a8 b4. cis'2 cis' | d' a8 g fis4 e2( | \break
%% 25-29
   d1) r4 cis4 | d r8 e4 fis8 g2 r4 | g8 a4 a8 b2 a8 g fis4 |
   e d fis4. e4 d fis8 | a2.( cis') | \break
%% 30-34
   cis'4. d'8 e'2. fis'4 | fis2 d4 cis2. | r4 b,2. a,2 | b,4. cis8 fis1 |
   b,4. cis8 fis1 | \break
%% 35-39
   \RedHead <a, e b>1^\markup {\with-color #red \italic "(only;instruments)"} ~
   <e g b>2\RedOff |
   a,2 a1 | fis2 a1 | fis2 e8( d) cis2. | d16 e8 fis4.. cis'2.. | \break
%% 40-41
   \time 4/1 cis'4. d'8 e'2 fis'4 fis2 d4 cis2 b,2 a,2 b,4. cis8 |
   \time 3/2 fis1^\fermata \bar "|." \break
}

baritonL = \lyricmode {
    \override Score . LyricText #'font-shape = #'italic
    \tiny
\skip 2 | \skip 1
No one every -- body on the road,
No any -- thing lights on the road,
All around is in the dark -- ness, dark -- ness,
\skip 1. |
I can't see, can't look any -- thing in the dar -- kness.
But, The stars are twin -- kling dia -- monds in the night sky,
Ra -- ther than the current, it's showing
the world of the past hun -- dreds of mil -- lions of light-years.
Where is now? I can't know that, I've been in the dark,
%%% add letters
in the dark. \skip 1.
I can't see, can't look any -- thing in the dar -- kness.
Where is now? I can't know that, I've been in the dark.
}

baritonM = {
     \autoBeamOff
\partial 2 <cis e g>2 |
%% 1-4
   <e g b>1. | cis2 cis'2 b16( g e8) cis4 ~ | cis4 d8 d r8 fis2.. ~ |
   fis4 r4 cis2 cis'8( a fis e) | \break
%% 5-
   d4. b, e8 a d'2 ~ | d' r2 cis'2 | b a8 g fis r8 cis2 |
   b,2 r4 fis2. | a,1. | \break
%% 10-14
   \RedHead <a, e b>1^\markup {\with-color #red \italic "(only;instruments)"} ~
   <e g b>2\RedOff |
   a,2 a1 | fis2 a1 | fis2 e8( d) cis2. | d16 e8 fis4.. cis'2.. | \break
%% 15-20
   R1. * 6
%% 21-24
   r1. | fis2 g4 a2. | a8 b4. cis'2 cis' | d' a8 g fis4 e2 |
%% 25-29
   d1) r4 cis4 | d r8 e4 fis8 g2 r4 | g8 a4 a8 b2 a8 g fis4 |
   e d fis4. e4 d fis8 | a2.( cis') | \break
%% 30-34
   cis'4. d'8 e'2. fis'4 | fis2 d4 cis2. | r4 b,2. a,2 | b,4. cis8 fis1 |
   b,4. cis8 fis1 | \break
%% 35-39
   \RedHead <a, e b>1^\markup {\with-color #red \italic "(only;instruments)"} ~
   <e g b>2\RedOff |
   a,2 a1 | fis2 a1 | fis2 e8( d) cis2. | d16 e8 fis4.. cis'2.. | \break
%% 40-41
   \time 4/1 cis'4. d'8 e'2 fis'4 fis2 d4 cis2 b,2 a,2 b,4. cis8 |
   \time 3/2 fis1^\fermata \bar "|." \break
}


%%%%%%%%%% sheet and midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% get sheet music ---------------------------------------------------------------
\score {
  \context ChoirStaff <<
           \new Voice = "soprano" { \clef soprano \key d\major \time 3/2
                   \set Staff.fontSize = #-4
                   \override Staff.StaffSymbol #'staff-space = #(magstep -4)
                   \override Staff.StaffSymbol #'thickness = #(magstep -4)
                        \set Staff.instrumentName = "soprano" \soprano }
                        \new Lyrics = "mainSL" \lyricsto "soprano" { \sopranoL }

           \new Voice = "alto" { \clef alto \key d\major \time 3/2
                   \set Staff.fontSize = #-4
                   \override Staff.StaffSymbol #'staff-space = #(magstep -4)
                   \override Staff.StaffSymbol #'thickness = #(magstep -4)
                        \set Staff.instrumentName = "alto  " \alto }
                        \new Lyrics = "mainAL" \lyricsto "alto" { \altoL }

           \new Voice = "bariton" { \clef baritone \key d\major \time 3/2
                        \set Staff.instrumentName = "baritone" \bariton }
                        \new Lyrics = "mainBL" \lyricsto "bariton" { \baritonL }

           %%\context PianoStaff = "PianoStaff" <<
           %%\new Voice = "piano" { \clef treble \key \major \time 3/2
           %%             \set Staff.instrumentName = "piano  " \pianoUP }
           %%\new Voice = "piano" { \clef bass \key \major \time 3/2
           %%             \set Staff.instrumentName = "piano  " \pianoDown }
           %%                                   >>

         >>

  \layout {
            \context { \RemoveEmptyStaffContext
                       %% \override VerticalAxisGroup #'remove-first = ##t
                      }
           }
}

%% get midi music ----------------------------------------------------------------
\score {
         <<
           \new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 56
                         \set Staff.midiInstrument = "pad 2 (warm)"
                         \set Staff.midiMinimumVolume = #0.3
                         \set Staff.midiMaximumVolume = #0.7
                                         \unfoldRepeats       \sopranoM }

           \new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 56
                         \set Staff.midiInstrument = "pad 2 (warm)"
                         \set Staff.midiMinimumVolume = #0.3
                         \set Staff.midiMaximumVolume = #0.7
                                         \unfoldRepeats          \altoM }

           \new Staff { \clef baritone \key d\major \time 3/2 \tempo 4 = 56
                         \set Staff.midiInstrument = "pad 2 (warm)"
                                         \unfoldRepeats       \baritonM }

           %%\new Staff { \clef treble \key \major \time 3/2 \tempo 4 = 56
           %%             \set Staff.midiInstrument = "acoustic grand"
           %%                                \unfoldRepeats       \pianoUPm }
           %%\new Staff { \clef bass \key \major \time 3/2 \tempo 4 = 56
           %%             \set Staff.instrumentName = "acoustic grand"
           %%                                \unfoldRepeats     \pianoDownm }
         >>

   \midi { tempoWholesPerMinute = #(ly:make-moment 56 4) }
}

\markup { " " }
%{
\markup { \column { \line {
About location \hspace #3 \musicglyph #"noteheads.uM2"(longa) \hspace #2 and \hspace #3 \musicglyph #"noteheads.sM1"(breve) }
\line { \italic " Please, Breath of longa and breve do in the members alternating(But, like Don't stand out). " } } }
%}
\markup { " " }
\markup { " " }
\markup { " " }
\markup { " " }
\markup { " " }
\markup { " " }
\markup { \line {\bold "Road; Sorrow of the night"} }
\markup { \fill-line { \tiny \italic
   \column {
"No one everybody on the road,"
"No anything  lights on the road,"
"All around is in the darkness, darkness,"
"I can't see, can't look anything in the darkness."
" "
"But, The stars are twinkling in the night sky,"
"Rather than the current, it is showing"
"   the world of the past one hundred million light-years."
"Where is now? I can't know that, I'm in the dark."}
}}