%% 1:31 AM Sunday, July 2, 2023
%% Yukio Yoshida
\version "2.24.0"
#(set-default-paper-size "letter")
#(set-global-staff-size 20)
\header {
dedication = \markup { \center-column { " " " " " " "The Story of A Lady" } }
title = " #? Instruments #? "
%%subtitle = #(string-append "LilyPond version " (lilypond-version))
subtitle = \markup { d major(\italic "cis d e fis g a b") }
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."
\teeny " Some of Instruments; there is a difference between writing-note and real-note." }}
composer = \markup{ \line {\italic "Yukio Yoshida"}}
arranger = "July 18, 2013"
poet = ""
opus = "Op.76"
meter = " "
copyright = "public Domain"
%% tagline = " "
}
%%
%%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
soprano = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa | } \break
\set Score.currentBarNumber = 9
%% 9-12
\time 3/2
a'8[ b' cis''] d''4. e'8[ fis' g'] a'4. |
r8 a'4 g'8[ fis' e'] r8 d''4 cis''8[ b' a'] |
r8 <g' e''>8-. <fis' fis''>-. g''2-. <e'' b'>8-. <d'' a'>-. g'4. ~ |
g'4 <fis' a'>8-. <e' b'>-. <d' cis''>-. r8 fis'4.-. d'-. | \break
%% 13-17
g'4. cis'' fis'' b' | <cis'' fis''>2 <fis'' b''>2. <b' e''>4 ~ |
<b' e''>4 <a' fis'>4 <e' cis'> ~ cis'2. ~ |
<cis' fis'>4. ~ <cis' b'> ~ <cis' e''>_~ <cis' a''> | <g' d''>2 b'1 | \break
%% 18-25
\repeat volta 2 { \time 4/1
g'\breve <cis' fis'>\breve | g'\breve <cis' fis'>\breve ~ |
<cis' fis'>\breve d'\breve | <cis' fis'>\longa } \bar ".|-|" \break
}
sopranoM = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa | } \break
%% 9-12
\time 3/2
a'8[ b' cis''] d''4. e'8[ fis' g'] a'4. |
r8 a'4 g'8[ fis' e'] r8 d''4 cis''8[ b' a'] |
r8 <g' e''>8-. <fis' fis''>-. g''2-. <e'' b'>8-. <d'' a'>-. g'4. ~ |
g'4 <fis' a'>8-. <e' b'>-. <d' cis''>-. r8 fis'4.-. d'-. | \break
%% 13-17
g'4. cis'' fis'' b' | <cis'' fis''>2 <fis'' b''>2. <b' fis'>4 ~ |
<b' fis'>4 <a' fis'>4 <e' cis'> ~ cis'2. ~ |
<cis' fis'>4. ~ <cis' b'> ~ <cis' e''> ~ <cis' a''> | <g' d''>2 b'1 | \break
%% 18-25
\repeat volta 2 { \time 4/1
g'\breve <cis' fis'>\breve | g'\breve <cis' fis'>\breve ~ |
<cis' fis'>\breve d'\breve | <cis' fis'>\longa } \bar ".|-|" \break
}
%%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
alto = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1
<b e'>\breve ~ <b e' a'>\breve ~ | <b e' a'>\breve ~ <b e'>\breve ~ |
<b e'>\breve ~ <b e' a'>\breve ~ | <b e' a'>\breve ~ <b e'>\breve ~ | } \break
%% 9-12
\time 3/2
b2\repeatTie e'1^\markup { \teeny \dynamic{ ppp } } |
e'8[ d' cis'] b4. a'8[ g' fis'] ~ fis'4. |
g16[ a b cis'8] r16 a16[ b cis' d'8] r16 d'8[ cis'16 b a] r8
g8[ a16 b cis'] ~ |
cis'4 <b d'>8-. <a e'>-. <g fis'>-. b4..-. g-.| \break
%% 13-17
<fis b>4 <fis cis'>8[ <fis d'> <fis e'>] <fis fis'>2.. |
cis'1 \times 2/3 {b4 a g} | <fis b>4.-. <fis a>-. g-. fis-. |
<fis b>4. ~ <fis e'> ~ <fis a'>_~ <fis d''> | <cis' g'>2 e'1 | \break
%% 18-25
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa }
\bar "|." \break
}
altoM = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1
<b e'>\breve ~ <b e' a'>\breve ~ | <b e' a'>\breve ~ <b e'>\breve ~ |
<b e'>\breve ~ <b e' a'>\breve ~ | <b e' a'>\breve ~ <b e'>\breve ~ | } \break
%% 9-12
\time 3/2
b2\repeatTie e'1 | e'8[ d' cis'] b4. a'8[ g' fis'] ~ fis'4. |
g16[ a b cis'8] r16 a16[ b cis' d'8] r16 d'8[ cis'16 b a] r8
g8[ a16 b cis'] ~ |
cis'4 <b d'>8-. <a e'>-. <g fis'>-. b4..-. g-. | \break
%% 13-
<fis b>4 <fis cis'>8[ <fis d'> <fis e'>] <fis fis'>2.. |
cis'1 \times 2/3 {b4 a g} | <fis b>4.-. <fis a>-. g-. fis-. |
<fis b>4. ~ <fis e'> ~ <fis a'> ~ <fis d''> | <cis' g'>2 e'1 | \break
%% 18-25
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa }
\bar "|." \break
}
%%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
tenor = {
\autoBeamOff
%% 1-4
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa | } \break
%% 9-12
\time 3/2
fis16[ g a b] cis'2 cis16[ d e fis] g2 |
r8 g4. fis16[ e d cis] r8 cis'4. b16[ a g fis] |
<cis g>2 <d g>2 <e a> ~ | a4 <g b>8-. <fis cis'>-. <e d'> r8 <g b>2.-. | \break
%% 13-
r4 <g b>2 <fis cis'>2. | r2 e4 d r4 e4 ~ |
e4 fis e fis2. ~ | <cis fis>4. ~ cis ~ <cis fis> ~ fis |
\tupletUp \times 2/3 {d4 a e'} a1_\markup { \teeny \dynamic{ pppp } } | \break
%% 18-25
\repeat volta 2 { \time 4/1
a\breve <d g>\breve | a\breve <d g>\breve ~ |
<d g>\breve e\breve | <d g>\longa } \bar ".|-|" \break
}
tenorM = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa | } \break
%% 9-12
\time 3/2
fis16[ g a b] cis'2 cis16[ d e fis] g2 |
r8 g4. fis16[ e d cis] r8 cis'4. b16[ a g fis] |
<cis g>2 <d g>2 <e a> ~ | a4 <g b>8-. <fis cis'>-. <e d'> r8 <g b>2.-. | \break
%% 13-17
r4 <g b>2 <fis cis'>2. | r2 e4 d r4 e4 ~ |
e4 fis e fis2. | <cis fis>4. ~ cis ~ <cis fis> ~ fis |
\times 2/3 {d4 a e'} a1 | \break
%% 18-25
\repeat volta 2 { \time 4/1
a\breve <d g>\breve | a\breve <d g>\breve ~ |
<d g>\breve e\breve | <d g>\longa } \bar ".|-|" \break
}
%%%%%%% bass; part %%%%%%%%%%%%%%%%
bass = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1
<cis fis>\breve ~ <g, cis fis>\breve ~ |
<g, cis fis>\breve ~ <cis fis>\breve ~ |
<cis fis>\breve ~ <g, cis fis>\breve ~ |
<g, cis fis>\breve ~ <cis fis>\breve ~ | } \break
%% 9-12
\time 3/2
cis1\repeatTie fis2 |
<cis g,>8[ <b, fis,> <a, e,>] <g g,>4. <cis fis>8[ <b, e> <a, d>] <g, g>4. ~ |
<g, g>2. <a, fis>8 <b, e> cis4 d ~ |
d4 <g, a>8-. <a, g>-. <b, fis>-. <cis e>-. d2.-. | \break
%% 13-17
<g, cis>2 <a, d>1 | <g, cis>2 <fis, b,> g, ~ |
g,4. ~ <g, b,>4. ~ <g, d> r4. |
<fis, b,>4. ~ fis, ~ <fis, b,> ~ b, |
\tupletUp \times 2/3 {g,4 d a} d1_\markup { \teeny \dynamic{ pppp } } | \break
%% 18-
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa }
\bar "|." \break
}
bassM = {
\autoBeamOff
%% 1-4(5-8)
\repeat volta 2 { \time 4/1
<cis fis>\breve ~ <g, cis fis>\breve ~ |
<g, cis fis>\breve ~ <cis fis>\breve ~ |
<cis fis>\breve ~ <g, cis fis>\breve ~ |
<g, cis fis>\breve ~ <cis fis>\breve ~ | } \break
%% 9-12
\time 3/2
cis1\repeatTie fis2 |
<cis g,>8[ <b, fis,> <a, e,>] <g g,>4. <cis fis>8[ <b, e> <a, d>] <g, g>4. |
<g, g>2. <a, fis>8 <b, e> cis4 d ~ |
d4 <g, a>8-. <a, g>-. <b, fis>-. <cis e>-. d2.-. | \break
%% 13-17
<g, cis>2 <a, d>1 | <g, cis>2 <fis, b,> g, |
g,4. ~ <g, b,>4. ~ <g, d> r4. |
<fis, b,>4. ~ fis, ~ <fis, b,> ~ b, |
\times 2/3 {g,4 d a} d1 | \break
%% 18-
\repeat volta 2 { \time 4/1 R\longa | R\longa | R\longa | R\longa }
\bar "|." \break
}
%%%%%%%%%% midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" { \clef soprano \key d\major \time 3/2
\set Staff.instrumentName = "soprano" \soprano }
\new Voice = "alto" { \clef alto \key d\major \time 3/2
\set Staff.instrumentName = "alto " \alto }
\new Voice = "tenor" { \clef tenor \key d\major \time 3/2
\set Staff.instrumentName = "tenor " \tenor }
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.instrumentName = "bass " \bass }
>>
%%\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 { %%\Staff \RemoveEmptyStaves
%%\override VerticalAxisGroup.remove-first = ##t
}
}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
%% soprano class
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 52
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \sopranoM }
%% alto class
\new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 52
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \altoM }
%% tenor class
\new Staff { \clef tenor \key d\major \time 3/2 \tempo 4 = 52
\set Staff.midiInstrument = "pad 2 (warm)"
\unfoldRepeats \tenorM }
%% bass class
\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 52
\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 52 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, playing of \"longa and breve\" do in the members alternating(But, like Don't stand out). " } } }
\markup { " " }
\markup { \vspace #2 }
\markup { \hspace #20 \huge "INSTRUMENT RANGES" }
\markup { \italic "About;" \teeny\italic
"Some of Instruments; there is a difference between writing-note and real-note."
\italic "for instance:" }
\markup { \column { \line { \bold "WOODWINDS;" " "Piccolo(in C)--\tiny "like this"-- }
\line { \score { {
\clef treble \key c\major \time 4/1
d'1^\markup {\italic "written" } s1 g'''1 s1 \bar"||"
s2 d''1_\markup { \hspace #-8 \italic "sounds one octave higher" }
s1 g''''1 s2 | \break
}
\layout { \context { \Staff
\override ClefSignature.transparent = ##t
\override TimeSignature.transparent = ##t }
indent = 20.00\mm line-width = 160.00\mm }
} }
}}
\markup { " " }
\markup { \vspace #1 }
\markup { \column { \line { \hspace #18.4 Bass Flute--\tiny "like this"-- }
\line { \score { {
\clef treble \key c\major \time 4/1
c'1^\markup {\italic "written" } s1 a'''1 s1 \bar"||"
\clef bass s2 c1_\markup { \hspace #-8 \italic "sounds one octave lower" }
s1 \clef treble a''1 s2| \break
}
\layout { \context { \Staff
\override ClefSignature.transparent = ##t
\override TimeSignature.transparent = ##t }
indent = 20.00\mm line-width = 160.00\mm }
} }
}}
\markup { " " }
%%%%%%%%%%%%%%%%%%%% All End %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%