rex.ly

    %% -*- Coding: utf-8 -*-
    %% 2011 //lilypond ver "2.12."//
    %% Time-stamp: "Wed Jun 01 02:00:31 2011"
    \version "2.20.0"
    #(set-default-paper-size "letter")
    #(set-global-staff-size 16)
    
    \paper {
            %%ragged-last-bottom = ##f
    }
    
    VoiceColorBlue = {
                       \override Staff.BarLine #'color = #blue
                       \override NoteHead #'color = #blue
                       \override Rest #'color = #blue
                       \override Stem #'color = #blue
                       \override Beam #'color = #blue
                       \override Slur #'color = #blue
                       \override Tie #'color = #blue
                       \override Voice.Dots #'color = #blue }
    
    
    \header {
     dedication = "From Réquiem-ceremony"
     title = "Rex treméndæ"
     %%subtitle = #(string-append "LilyPond version " (lilypond-version))
     subtitle = ""
     subsubtitle = \markup{\center-column {
                       "soprano; C clef on 1st line,       alto; C clef on 3rd line."
                       "       bass; F clef on 4th line,    tenor; C clef on 4th line."}}
     composer = \markup{ \line {\italic "Yukio Yoshida"}}
     arranger = \markup { \column { "May 11, 2011" "Op.60" } }
     poet = " "
     %%opus = "Op.60"
     meter = \markup { \italic "prayer(keeping mind's wither)" }
     copyright = "public Domain"
    }
    
    
    %%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
    soprano = {
       \autoBeamOff
    %% 1-4
       R1. * 4 | \break
    %% 5-8
       c''2\(-. d''-. e''-. | f''1\) r2 | e''4. r8 d''1 | c''2 b'1 | \break
    %% 9-12
       a'2.  g' | a'2\( e''1\) | r8 a'2. r8 b'2 ~ | b'2 c'' r8 d''4. ~ | \break
    %% 13-16
       d''4. e''4. f''2. | g''1 r2 | f''4. r8 e''2 d'' | c''1 b'4. r8 | \break
    %% 17-21
       a'4. r8 b'2 f'' ~ | f''2
       << \VoiceColorBlue  { g''2^\markup { \with-color #blue \tiny \italic
                      "Only; instruments" } a'' | g''1 f''2 | e''2. d'' | c''1. } \\
          \VoiceColorBlue { d''1 | | c''2 b'1 | a'2 g' f' | e' d' c' } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       c''2. d'' | g''1. | f''2. e''2 e''4 | d''2 c''1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 \VoiceColorBlue |
       c'1.^\markup { \with-color #blue \tiny \italic "Only; instruments" }
       \revert Staff.BarLine #'color \bar "|." \break
    }
    
    sopranoL = \lyricmode {
        \override Score . LyricText #'font-shape = #'italic
        \tiny
    %%Rex tre -- mén -- dæ
                           ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Rex tremén -- dæ ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    }
    
    sopranoM = {
        \autoBeamOff
    %% 1-4
       R1. * 4 | \break
    %% 5-8
       c''2\(-. d''-. e''-. | f''1\) r2 | e''4. r8 d''1 | c''2 b'1 | \break
    %% 9-12
       a'2.  g' | a'2\( e''1\) | r8 a'2. r8 b'2 ~ | b'2 c'' r8 d''4. ~ | \break
    %% 13-16
       d''4. e''4. f''2. | g''1 r2 | f''4. r8 e''2 d'' | c''1 b'4. r8 | \break
    %% 17-21
       a'4. r8 b'2 f'' ~ | f''2
       << { g''2 a'' | g''1 f''2 | e''2. d'' | c''1. } \\
          { d''1 | | c''2 b'1 | a'2 g' f' | e' d' c' } >> | \break
    %% 22-25
       c''2. d'' | g''1. | f''2. e''2 e''4 | d''2 c''1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 | c'1. \bar "|." \break
    }
    
    
    %%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
    alto = {
        \autoBeamOff
    %% 1-4
       R1. | g'2\(-. a'-. b'-. | c''1\) r2 | R1. | \break
    %% 5-8
       R1. * 2 | b'4. r8 a'1 | g'2 f'1 | \break
    %% 9-12
       e'2.  d' | e'2\( b'1\) | r4 e'2. r8 f'4. ~ | f'8 f'2 g'2 r4. | \break
    %% 13-16
       a'2. b'4. c''4. ~ | c''4. d''1 r8 | r8 c''4. b'2 a'2 | g'1 r8 f'4. | \break
    %% 17-21
       r8 e'4. f'2 c'' ~ | c''2
       << \VoiceColorBlue  { d''2^\markup { \with-color #blue \tiny \italic
                      "Only; instruments" } e'' | d''1 c''2 | b'2. a' | g'1. } \\
          \VoiceColorBlue { a'1 | g'2 f'1 | e'2 d' c' | b a g } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       g'2. a' | d''1. | c''2. b'2 b'4 | a'2 g'1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 \VoiceColorBlue |
       c'1.^\markup { \with-color #blue \tiny \italic "Only; instruments" }
       \revert Staff.BarLine #'color \bar "|." \break
    }
    
    altoL = \lyricmode {
        \override Score . LyricText #'font-shape = #'italic
        \tiny
    %%Rex tre -- mén -- dæ
                           ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Rex tre -- mén -- dæ ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    }
    
    altoM = {
         \autoBeamOff
    %% 1-4
       R1. | g'2\(-. a'-. b'-. | c''1\) r2 | R1. | \break
    %% 5-8
       R1. * 2 | b'4. r8 a'1 | g'2 f'1 | \break
    %% 9-12
       e'2.  d' | e'2\( b'1\) | r4 e'2. r8 f'4. ~ | f'8 f'2 g'2 r4. | \break
    %% 13-16
       a'2. b'4. c''4. ~ | c''4. d''1 r8 | r8 c''4. b'2 a'2 | g'1 r8 f'4. | \break
    %% 17-21
       r8 e'4. f'2 c'' ~ | c''2 << { d''2 e'' | d''1 c''2 | b'2. a' | g'1. } \\
                                     { a'1 | g'2 f'1 | e'2 d' c' | b a g } >> | \break
    %% 22-25
       g'2. a' | d''1. | c''2. b'2 b'4 | a'2 g'1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 | c'1. \bar "|." \break
    }
    
    
    %%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
    tenor = {
       \autoBeamOff
    %% 1-4
       a4.-. r8 \times 2/3 { b2\(-. c'-. d' ~ } | d'2\) r1 | R1. * 2 | \break
    %% 5-8
       R1. * 2 | c'4. r8 b1 | a2 g1 | \break
    %% 9-12
       f2. e | f2\( c'1\) | r8 f2. r8 g2 ~ | g2 a2 r8 b4. ~ | \break
    %% 13-16
       b4. c'4. d'2. | e'1 r2 | e'2 f' g' | a'1 g'2 | \break
    %% 17-21
       f' g' a' ~ | a'2
       << \VoiceColorBlue { b'2^\markup { \with-color #blue \tiny \italic
                      "Only; instruments" } c'' | b'1 a'2 | g'2. f' | e'1. } \\
          \VoiceColorBlue { f'1 | e'2 d'1 | c'2 b a | g f e } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       e'2. f' | b'1. | a'2. g'2 f'4 | f'2 e'1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 \VoiceColorBlue |
       c'1.^\markup { \with-color #blue \tiny \italic "Only; instruments" }
       \revert Staff.BarLine #'color \bar "|." \break
    }
    
    tenorL = \lyricmode {
        \override Score . LyricText #'font-shape = #'italic
        \tiny
    Rex tre -- mén -- dæ %%ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Rex tremén -- dæ ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    }
    
    tenorM = {
         \autoBeamOff
    %% 1-4
       a4.-. r8 \times 2/3 { b2\(-. c'-. d' ~ } | d'2\) r1 | R1. * 2 | \break
    %% 5-8
       R1. * 2 | c'4. r8 b1 | a2 g1 | \break
    %% 9-12
       f2. e | f2\( c'1\) | r8 f2. r8 g2 ~ | g2 a2 r8 b4. ~ | \break
    %% 13-16
       b4. c'4. d'2. | e'1 r2 | e'2 f' g' | a'1 g'2 | \break
    %% 17-21
       f' g' a' ~ | a'2 << { b'2 c'' | b'1 a'2 | g'2. f' | e'1. } \\
                                   { f'1 | e'2 d'1 | c'2 b a | g f e } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       e'2. f' | b'1. | a'2. g'2 f'4 | f'2 e'1 | \break
    %% 26-30
       r2 c'2 d' | g'1 r2 | f'2. e'2 e'4 | d'2 c'1 | c'1. \bar "|." \break
    }
    
    
    %%%%%%% bass; part %%%%%%%%%%%%%%%%
    bass = {
       \autoBeamOff
    %% 1-4
       R1. * 3 | e4.-. r8 \times 2/3 { f2\(-. g-. a ~ } | \break
    %% 5-8
       a2\) r1 | R1. | g4. r8 f1 | e2 d1 | \break
    %% 9-12
       c2. b, | c2\( g1\) | r4 c2. r8 d4. ~ | d8 e2 f2 r4. | \break
    %% 13-16
       g2. a4. b4. ~ | b4. c'1 r8 | b2 b b | b1 a2 | \break
    %% 17-21
       g2 a b ~ | b2
       << \VoiceColorBlue { c'2^\markup { \with-color #blue \tiny \italic
                      "Only; instruments" } d' | c'1 b2 | a2. g | f1. } \\
          \VoiceColorBlue { g1 | f2 e1 | d2 c b, | a, g, f, } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       f2. g | c'1. | b2. a2 a4 | g2 f1 | \break
    %% 26-30
       r2 c2 d | g1 r2 | f2. e2 e4 | d2 c1 \VoiceColorBlue |
       c1.^\markup { \with-color #blue \tiny \italic "Only; instruments" }
       \revert Staff.BarLine #'color \bar "|." \break
    }
    
    bassL = \lyricmode {
        \override Score . LyricText #'font-shape = #'italic
        \tiny
    Rex tre -- mén -- dæ %%ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Rex tre -- mén -- dæ ma -- je -- stá -- tis,
    Qui sal -- ván -- dos sál -- vas gra -- tis,
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    %%%%%
    Sál -- va me, fons pi -- e -- tá -- tis.
    }
    
    bassM = {
       \autoBeamOff
    %% 1-4
       R1. *3 | e4.-. r8 \times 2/3 { f2\(-. g-. a ~ } | \break
    %% 5-8
       a2\) r1 | R1. | g4. r8 f1 | e2 d1 | \break
    %% 9-
       c2. b, | c2\( g1\) | r4 c2. r8 d4. ~ | d8 e2 f2 r4. | \break
    %% 13-16
       g2. a4. b4. ~ | b4. c'1 r8 | b2 b b | b1 a2 | \break
    %% 17-21
       g2 a b ~ | b2 << { c'2 d' | c'1 b2 | a2. g | f1. } \\
                                     { g1 | f2 e1 | d2 c b, | a, g, f, } >> | \break
    %% 22-25
       \revert Staff.BarLine #'color
       f2. g | c'1. | b2. a2 a4 | g2 f1 | \break
    %% 26-30
       r2 c2 d | g1 r2 | f2. e2 e4 | d2 c1 \VoiceColorBlue |
       c1.^\markup { \with-color #blue \tiny \italic "Only; instruments" }
       \revert Staff.BarLine #'color \bar "|." \break
    }
    
    %%%%%%%%%% midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    %% get sheet music ---------------------------------------------------------------
    \score {
             <<
               \context ChoirStaff = "FourPartStaff" <<
               \new Voice = "soprano" { \clef soprano \key c\major \time 3/2
                            \set Staff.instrumentName = "soprano" \soprano }
                            \new Lyrics = "mainSL" \lyricsto "soprano" { \sopranoL }
    
               \new Voice = "alto" { \clef alto \key c\major \time 3/2
                            \set Staff.instrumentName = "alto   " \alto }
                            \new Lyrics = "mainAL" \lyricsto "alto" { \altoL }
    
               \new Voice = "tenor" { \clef tenor \key c\major \time 3/2
                            \set Staff.instrumentName = "tenor  " \tenor }
                            \new Lyrics = "mainTL" \lyricsto "tenor" { \tenorL }
    
               \new Voice = "bass" { \clef bass \key c\major \time 3/2
                            \set Staff.instrumentName = "bass   " \bass }
                            \new Lyrics = "mainBL" \lyricsto "bass" { \bassL }
                                                >>
    
               %%\context PianoStaff = "PianoStaff" <<
               %%\new Voice = "piano" { \clef treble \key \major \time
               %%             \set Staff.instrumentName = "piano  " \pianoUP }
               %%\new Voice = "piano" { \clef bass \key \major \time
               %%             \set Staff.instrumentName = "piano  " \pianoDown }
               %%                                   >>
    
             >>
    
      \layout {
                \context { \RemoveEmptyStaffContext
                           %%\override VerticalAxisGroup #'remove-first = ##t
                          }
               }
    }
    
    %% get midi music ----------------------------------------------------------------
    \score {
             <<
               \new Staff { \clef soprano \key c\major \time 3/2 \tempo 4 = 46
                             \set Staff.midiInstrument = "pad 2 (warm)"
                                             \unfoldRepeats       \sopranoM }
    
               \new Staff { \clef alto \key c\major \time 3/2 \tempo 4 = 46
                             \set Staff.midiInstrument = "pad 2 (warm)"
                                             \unfoldRepeats          \altoM }
    
               \new Staff { \clef tenor \key c\major \time 3/2 \tempo 4 = 46
                             \set Staff.midiInstrument = "pad 2 (warm)"
                                             \unfoldRepeats       \tenorM }
    
               \new Staff { \clef bass \key c\major \time 3/2 \tempo 4 = 46
                            \set Staff.midiInstrument = "pad 2 (warm)"
                                             \unfoldRepeats          \bassM }
    
               %%\new Staff { \clef treble \key \major \time \tempo 4 =
               %%             \set Staff.midiInstrument = "acoustic grand"
               %%                                \unfoldRepeats       \pianoUPm }
               %%\new Staff { \clef bass \key \major \time \tempo 4 =
               %%             \set Staff.instrumentName = "acoustic grand"
               %%                                \unfoldRepeats     \pianoDownm }
             >>
    
       \midi { tempoWholesPerMinute = #(ly:make-moment 46 4) }
    }
    %%
    \markup { " " }
    \markup { \vspace #4 }
    \markup { \line {\bold "Réquiem's(Rex treméndæ)"} }
    \markup {%%column * 2
    \fill-line {
     \column {
     \line { \italic
       \column {
                 "Rex treméndæ majestátis,"
                 "Qui salvándos sálvas gratis,"
                 "Sálva me, fons pietátis."
                }
    %%% Local Language;; part;; translated.
%{
    \hspace #8
          \column {
                   "助けられるべき人々を慈悲をもって"
                   "救いたもう"
                   "恐るべき威光の王よ"
                }
%}
         } }
    }}
%%%%%%%%%%%%%% End all %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%