%%%%% content.ly
\version "2.12.3"
\include "english.ly"

%identifiers
TextSpan = { \override TextSpanner #'direction = #1 } 
XHead = { \override NoteHead #'style = #'cross }
NormHead = { \revert NoteHead #'style }
sfzppp = #(make-dynamic-script "sfzppp")
pf =  #(make-dynamic-script "p-f")
mff = #(make-dynamic-script "mf-f")
ftfff = #(make-dynamic-script "f-fff")
    global= {
        \time 2/4
            \key c \major
    }
smaller = {
    \set fontSize = #-2
        \override Stem #'length-fraction = #0.8
        \override Beam #'thickness = #0.384
        \override Beam #'length-fraction = #0.8
}
%for tempo change at m.10 
rhythmMarkCStaffReduce = #-4
rhythmMarkCLabelFontSize = #-2

rhythmMarkC = #(define-music-function (parser location label musicI musicII ) (string? ly:music? ly:music?)
#{
        \mark \markup
        {
        \combine

        \line {
        \hspace #0
        \translate #'(-0.1 . -3.25) \italic \fontsize #rhythmMarkCLabelFontSize $label
        } % end Line

        \line \vcenter {

        \score {                 % 1st column in line

        \new Staff \with {
        fontSize = #rhythmMarkCStaffReduce
        \override StaffSymbol #'staff-space = #(magstep rhythmMarkCStaffReduce)
        \override StaffSymbol #'line-count = #0 
        \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
        }

        \relative { \stemUp $musicI }

        \layout {
            ragged-right= ##t
                indent = 0
                \context {
                    \Staff
                        \remove "Clef_engraver"
                        \remove "Time_signature_engraver" }
        } % layout

        } % 1st score

        \hspace #-0.1            % 2nd column in line

            % 3rd column in line
            \italic \fontsize #rhythmMarkCStaffReduce "="

            \score {                 % 4th column in line

                \new Staff \with {
                    fontSize = #rhythmMarkCStaffReduce
                        \override StaffSymbol #'staff-space = #(magstep rhythmMarkCStaffReduce)
                        \override StaffSymbol #'line-count = #0 
                        \override VerticalAxisGroup #'Y-extent = #'(0 . 0)  % td
                }

                \relative {
                    \stemUp $musicII 
                }

                \layout {
                    ragged-right= ##t
                        indent = 0
                        \context {
                            \Staff
                                \remove "Clef_engraver"
                                \remove "Time_signature_engraver" }
                } % layout

            } % 2nd score end

        } % line end
        % end combine
        } % markup end
#})

rhyMarkIV = { b'4 }
rhyMarkFourTriplets = {
    % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 4) % tight
        % \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 5 32) % slighty tighter as even
        \override Score.SpacingSpanner #'common-shortest-duration = #(ly:make-moment 1 8) % even
        \times 2/3 { r8 r8 b'8 }
    \times 2/3 { b8 b8 b8 }
}

%music contents organized as identifiers

%rehearsal marks for all parts and print only once at top of full score
marks = {
    \set Score.markFormatter = #format-mark-box-letters \mark \default |
        \time 3/4 s1*3/4*4 |
        s2. \mark \default |
        s2. |
        s2. |
        s2. |
        s2. |
        \time 4/4 s1 |
        \time 3/4 
        s2. |
        s2. |
        s2. |
        s2. |
        \time 5/8 s4 s4 s8 |
        \time 4/4 s1 | s1 s1 
        s1 \mark \default |%new m66
        \time 3/4 s2. |

}

Flute = \new Voice { \relative c'{
    \set Staff.instrumentName = "Flute "
        \set Staff.shortInstrumentName = "Fl"
        \set Score.skipBars = ##t
        \time 3/4 r8 e?8( g d' cs8 b16) as32( b |
                as8) g \times 2/3 {fs8( e? ds} \times 2/3 { fs-.) ds-. e-. } |
        fs4 \times 2/3 {fs8( ds e-.)} fs4 |%m50
        r16 fs8-- \p e'16~ \f \times 2/3 {e8[ fs,-. ef'-.]} fs, d'-. |
        cs8 \p r \times 4/5 {e?16 ( \< cs' b \f gs e)} \times 4/6 {cs'16( b gs cs, e gs)}  | %ecstatic in cl
        r8. e32( gs) \times 4/6 {cs16( b)  \once \override TextScript #'padding = #1.2 gs( _\markup{less} c,) gs'( c,)} \times 4/6 {gs'( c,) gs'( c,) gs'( c,) } |
        <<
        {
            s8. s16 s4 s32 \once \override DynamicLineSpanner #'Y-offset = #-5.2 s16.\> s16. s32 \p 
        }\\
    {
        \tupletUp \times 4/6 {r4 \slurUp e16( \f gs)} \tupletNeutral \times 4/6 {cs16( b) \once \override TextScript #'padding = #1.2 gs( _\markup{less} c,) gs'( c,)} \times 4/6 {e ( \f gs cs b gs c, ) } |
            \slurNeutral }
        >> 
            r2 \times 2/3 { \once \override DynamicLineSpanner #'Y-offset = #-5.2 df'4 \f g?8} |
            \times 4/6 { \once \override TextScript #'X-offset = #2 \once \override TextScript #'padding = #1.2 df16( \p _\markup{distant} f) c?( e) b( ef) } \times 2/3 {df4 g8} \times 8/7 { \once \override TextScript #'padding = #1.2 g32 ( _\markup{more} df f c e b ef)} |
            \time 4/4 df8 r r2. |
            \time 3/4 r2 \times 4/6 { df16( \p f) c?( e) b( ef) }|%ostinato
            r4 \tupletUp \times 4/6 {r8 a,16( \f b a b)} \tupletNeutral \times 4/6 {a( b a' b a b)} |
            df,8 ( \p \times 2/3 { g16 df g) } \times 4/6{df \sf ( g df g df g) } \times 4/6{df\sf ( g df g df g )} |
            \times 4/6{ \once \override TextScript #'padding = #4 df \sf ( ^\markup{Broaden loosely but dramatically } g df g df g) } r8. af16 \f \times 4/6 {gf-- ( \> ef b gf ef b) \p }|
            \time 5/8 r1*5/8 ^\markup {\tiny \note #"8" #0.7 "= 120" } |
            \time 4/4 
            r1 |
            r2 r4 r8. b'16-. ^\markup{\center-column{\line{soft but voice}}}  |%new m63 
            \times 2/3 {g8( e d)} \XHead  a16^\markup {X click keys only} ef a df, a' df, a' df, a' df, c' b, |
            bf' a df, c' b, bf' a df, c' b, bf' a df, c' b, bf' \NormHead |
            \time 3/4 R1*3/4 |
                    \bar "|." 
}}   %*********************************

Clarinet = \new Voice { \relative c''{
    \set Staff.instrumentName = \markup {
        \column { "Clarinet"
            \line { "in B" \smaller \flat } } } 
    \set Staff.shortInstrumentName = \markup {"B" \smaller \flat "Cl"}
    \set Score.skipBars = ##t
        \time 3/4 a2. |
        a8( e' a,2 ) |
        a4.( g?8 ) \times 2/3 {fs f e } |
        a4.( ef8 ) \times 2/3 {d df c} |%old m40
        a'2.\ppp \< |%polymeter
        \set Staff.timeSignatureFraction = #'(4 . 4)
        \scaleDurations #'(3 . 4) { 
            \once \override TextScript #'padding = #2.2 a8.\f ^\markup{
                \column{
                    \line{ \tiny \note #"4" #0.7 "= 120" Ecstatic}
                    \line{polymetric against 3/4, same downbeats}
                }
            } fs'16( e4) \times 2/3 { a,8( [ cs fs ] } %|
                    e8 ) [ g32( fs16) g32 ] ( \times 2/3 {fs4-> ) ef8} \times 4/6{ ef,16 [ ( af) d8-- ef16. g32 ] ( } %|
                        \times 2/3 {fs4 ) ef16. g32(} \times 2/3 { fs4) ef8 } %|
                        \times 4/6 {ef,16 [ ( af) d8-. ef16.-- g32] ( } \times 2/3 {fs4) ef16. g32( } \times 2/3 {fs4) ef8} r4 |
                        r1 |\noBreak  %end polymeter m56
        }\unset Staff.timeSignatureFraction 
    \time 4/4
        \override Score.RehearsalMark #'self-alignment-X = #0
        \override Score.RehearsalMark #'X-offset = #-10.5
        \rhythmMarkC #"   Return to same meter" \rhyMarkFourTriplets \rhyMarkIV
        \once \override TextScript #'padding = #2 ef,8-. \p ^\markup{
            \column{
                \line{cautiously clipped }
                \line {and dry }
            }
        }
    ef'-. ef-.-> ef,-. gf8.( ef'16 \times 2/3 {df8 \f \> bf gf) \p } |
        \time 3/4 %m57
        \times 4/5 {ef16 gf bf df ef} df8. ef'16( \ff \times 2/3 {df8 bf gf)} |
        ef'4 ( \times 2/3 {df8 bf8.) a,16(} \times 2/3 { gf8 d? b?~ } |
                b8. ) ef''16 ( \times 2/3 {df8 bf8.) a,16(} \times 2/3 { gf8) d b~ }
    \times 4/5{ \once \override TextScript #'padding = #5 b16^\markup{Great flourish; broaden } gf' df' af' ef' ( } \times 2/3 {df8 bf8.) a,16(} \times 2/3 { gf8) d b~ ( }
            \time 5/8 \times 2/3 {b ^\markup{
            \column{
            \line {\tiny \note #"8" #0.7 "= 120" }
            \line {Solo; sweetly }
            }
            } ef \p gf} bf4 ) \times 2/3 {gf16( bf gf} |
                \time 4/4
                ef4) r8 b?32( ef g? d') b4 g32( b g8.~ |
                    g4 ) \times 2/3 {f a f~} f16 d'8. \glissando |%new m64
                bf1 |
                \XHead b16 \f ^\markup {X click keys only}  f b ef, b' ef, b' ef, b' ef, d' df, c' b ef, d' |
                \time 3/4 df, c' b ef, d' df, c' b ef, d' df, c' \NormHead |
                        \bar "|." 

}}   %*********************************

Bassoon = \new Voice { 
\relative c' {
    \set Staff.instrumentName = "Bassoon "
        \set Staff.shortInstrumentName = "Bsn"
        \set Score.skipBars = ##t
        \clef tenor
                                    \time 3/4 R1*3/4*9 |
                                    \time 4/4 R1 |
                                    \time 3/4 R1*3/4*4 |
                                    \time 5/8 r1*5/8 ^\markup{
                                        \line {\tiny \note #"8" #0.7 "= 120" }
                                    } |%new m62
    \time 4/4 R1*4 | %DB cue
        \transposedCueDuring #"Bass" #DOWN c' { 
            \time 3/4 << { R1*3/4}{s2.^\markup{Double Bass}}>>
        } %end cue
        \bar "|." 
}
}   %*********************************

music = {
    <<
        \tag #'score \tag #'flu \new Staff { << \global \Flute >> }
    \tag #'score \tag #'cla \new Staff { << \global \Clarinet>> }
    \tag #'score \tag #'bas \new Staff { << \global \Bassoon>> }

    >>
}