%% 13:05 Friday, February 20, 2026
%% 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-17
   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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
