% to do
% volta 2 repeats in spin
%%%%% content.ly
\version "2.10.10"

%identifiers
TextSpan = { \override TextSpanner #'direction = #1 } 
Left = {\set stemLeftBeamCount = #1 }
Lefttwo = {\set stemLeftBeamCount = #2 \set stemRightBeamCount = #1 }
Leftboth = {\set stemLeftBeamCount = #2 \set stemRightBeamCount = #2 }
Right = {\set stemRightBeamCount = #1 }
Righttwo= {\set stemLeftBeamCount = #1 \set stemRightBeamCount = #2 }
Rightboth= {\set stemLeftBeamCount = #2 \set stemRightBeamCount = #2 }
ssp = {\set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 }
ss = {\set stemLeftBeamCount = #1 \set stemRightBeamCount = #1 }
Rests = {\override Rest #'transparent = ##t}
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")
    %This allows manual adjustment of dynamic marker to avoid collision with octavation or other spanner markup
    dynamicsXY = #(define-music-function (parser location offsetX offsetY)
            (number? number?)
#{
            \once \override DynamicText #'X-offset = $offsetX
            \once \override DynamicLineSpanner #'Y-offset = $offsetY
#})


    %see violaduets/144.ly for examples
    OctA = {#(set-octavation 1) }%\set Staff.middleCPosition = #-13 
    OctAA = {#(set-octavation 2) }%\set Staff.middleCPosition = #-20
    OctBass = {#(set-octavation -1) \set Staff.middleCPosition = #13 }
    EndOct = {#(set-octavation 0)}
    EndBass = {#(set-octavation 0)\set Staff.middleCPosition = #6 }
    OttBrakY = #(define-music-function (parser location padOtt)
            (number?)
#{\once \override Staff.OttavaBracket #'padding = $padOtt #})
    OttPadY = #(define-music-function (parser location padOtt)
            (number?)
#{\override Staff.OttavaBracket #'padding = $padOtt #})
    %This allows manual adjustment of dynamic marker to avoid collision with octavation or other spanner markup
    dynamicsXY = #(define-music-function (parser location offsetX offsetY)
            (number? number?)
#{
            \once \override DynamicText #'X-offset = $offsetX
            \once \override DynamicLineSpanner #'Y-offset = $offsetY
#})

    global= {
    }
%for cues
smaller = {
    \set fontSize = #-2
        \override Stem #'length-fraction = #0.8
        \override Beam #'thickness = #0.384
        \override Beam #'length-fraction = #0.8
}
%rehearsal marks for all parts and print only once at top of full score
marks = {
}
%music contents organized as identifiers
smel = {
    \relative c'' {
        \set Staff.instrumentName = "Soprano Sax "
            \set Staff.shortInstrumentName = "S"
            \set Staff.midiInstrument = "soprano sax" 
            \set Score.skipBars = ##t
            \once \override TextScript #'padding = #0.2
            \time 4/4
            df4-.\p ^\markup{
                \tiny \note #"4" #0.7 "= 60 Tentatively "
            } r df8 bf r bf|
        c4 r2 df8^\markup{Gradually accel. and strengthen} bf |
            \time 2/4
            \times 2/3{c4 r8} \times 2/3{r4 df16( bf)} |
            \time 4/4
            c4 \times 2/3{r4 df16( bf)} c4 \times 2/3{r4 bf8} |
            \once \override TextScript #'padding = #1.2 bf2 ^\markup{
                \tiny \note #"4" #0.7 "= 80 Meandering lightly "
            }\times 2/3 {df16( ef) df8 bf} c4 |
        \times 2/3{c4 df16( bf)} c4 \times 2/3{c4 df16( bf)} \times 2/3 {c4^\markup{Brighten} e?8} |
            e2 \times 2/3 {r4 bf8} c4 |
            \time 5/4 
            bf2\p^\markup{Open slightly} c4 df2 |
            \time 6/4
            ef8(^\markup{\italic{mosso}} ff) gf4^\markup{\italic{riten}} ff \once \override TextScript #'padding = #2.2 df8 ^\markup{\italic{mosso}} af'( gf4)^\markup{\italic{riten}} ff |
            \time 4/4
            gf1 ^\markup{Recover tempo, gently} |
            \time 2/4
            R1*2/4 |
            \time 4/4
            R1*2 |
            \time 5/4
            R1*5/4 |
            \time 4/4
            f8-. f-. f-. df( ef4) r16 ef( d) f  |%E
            ef4 r bf8 a16( gs) ef8\sf eff'16( df) |
            a4 \once \override TextScript #'padding = #2 ef'16^\markup{Increasingly manic } ef, ef' d? cs8 d16 cs af'16( bf) ef( df) |
            bf4 bf,16 ef( f-.) df-. af df( ef-.) c-. g g \acciaccatura af g8 |
            f16( g) bf c d( df) a( bf) d4 d8( a16 bf) |
            ef16( d) f( c) ef( d) b?( as) r4 \times 4/6{ef'16( \Leftboth df \Lefttwo a bf) d8~(} |
                    \times 4/6{ d16 \Leftboth df \Lefttwo a bf) d8~} d4 \times 4/6{d16( \f df c b bf a) } 
        <<
        {
            r4}
            {
                s8 \once \override TextScript #'padding = #5 s8^\markup {
                    \tiny \note #"8" #0.7 "= "

                }
            }
            >> |

    }%end smel
}
sspin = {
    \relative c''' {
        \time 21/16
            \once \override TextScript #'padding = #2 d16([ \f ^\markup
                    {
                    \tiny \note #"8" #0.7 "= 160 Dizzying blend "

                    } df c b bf a)] af([ g f fs b,?)] fs'([ df b df g, fs)] e([ \p c?) e( c) ] |
        %15/16 
            \time 15/16
            f'16[(\f gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] | %m25
            f[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
            %% original beginning
            \time 21/16
            \once \override TextScript #'padding = #2 d'16([ df c b bf a)] 
            af([ g f fs b,?)] 
            fs'([ df b df g, fs)] 
            e([ \p c?) e( c) ] |
            \time 15/16
            r4 r8. %sopdesc2
            g''16[(\p gf f e ef] d[ e f~] |%m25
                    f[) gf (\f f e ef d f]) df[( c e b bf]) r8. |
            %2nd time start
            \time 21/16
            \once \override TextScript #'padding = #2 d'16([ df c b bf a)] 
            af([ g f fs b,?)] 
            fs'([ df b df g, fs)] 
            e([ \p c?) e( c) ] |
            \time 15/16
            r4 r8. %sopdesc2
            g''16[(\p gf f e ef] d[ e f~] |%m25
                    f[) gf (\f f e ef d f]) df[( c e b bf]) r8. |%3rd time
            \time 21/16
            \once \override TextScript #'padding = #2 d'16([ df c b bf a)] 
            af([ g f fs b,?)] 
            fs'([ df b df g, fs)] 
            e([ \p c?) e( c) ] |
            \time 15/16
            r4 r8. %sopdesc2
            g''16[(\p gf f e ef] d[ e f~] |%m25
                    f[) gf (\f f e ef d f]) df[( c e b bf]) r8. |
            \time 21/16 %sopdesc1
            d'16([ \f df c b bf a)] af([ g f fs b,?)] fs'([ df b df g, fs)] e([ \p c?) e( c) ] |
            \time 15/16
            f'16[(\f gf f e ef d f]) g16[( gf f e ef] d[e f~] |%m25
                    f[) gf (\f f e ef d f]) df[( c e b bf]) r8. |%duplicate
            \time 21/16 %sopdesc1
            d'16([ \f df c b bf a)] r4 r16 r4. e,16([ \p c?) e( c) ] |
            \time 15/16
            r4 r8. g''16[( gf f e ef] d[) df c] |%MOVEtoAlt:
            r16 gf'[( f e ef d f]) df[( c ef b bf]) r8. |
            \time 21/16%sopdesc4
            r8. d'16[( df c] b[ bf a) af( g] fs[ cs b)] \ss r8. r8 b32[ b b16] |%sopdesc3
            \time 15/16 %too parallel?
            b8 g'16[( gf f e ef]) r f[( df c e]) d[( df c]) | 
            r df[(\f \Lefttwo c b8 \Righttwo a16 af]) g8.([ bf16 fs)] d'[( e f)] |%trunc
            \time 21/16
            af4. r16 g([ f fs b,?)] 
            fs'([ df b)] r8. 
            e,16([ \p c?) e( c) ] |%m35
            \time 15/16 %[c] bracket
            d''[(\f df c b bf a c]) af[( g d f e]) c[( g a?]) |
            r8 g'16[( gf f e ef]) d[( f df c \TextSpan \override TextSpanner #'edge-text = #' ("cresc. poco a poco " . "") e])\startTextSpan  d[( df c]) | 
            \time 21/16
            r4. g'16[( gf f e ef]) d[( f df c e b] bf[) \stopTextSpan f(\ff\> e d?)\f] |
            \time 15/16
            d''[( df c b bf a af] g16[( gf f e ef] d[) df c] |
                    as[( b e,) as ( fs e fs] c[ b8]) r d'16[(\f df c)] |%m35
                    \time 21/16
                    as[(\p b e) d'16( df c] b[ bf a) af( g] fs[ \> cs b cs g fs)] e8[ \p e32 as b16] |
                    \time 15/16
                    f'8[ g16( gf f e ef]) d[( f df c e]) d[( e f~] |
                        f[( gf f e ef d f]) df[( c ef b bf]) cs[( bf a] |
                            \time 21/16
                            af8)[ \ss r16 \Left  d'16[( df c] b[ bf a) af( g] fs[ cs b cs g fs)] e[(\p c) e( c)] |
                        \time 15/16
                        r4.. g''16[( gf f e ef] d[) df c] |
                        as[( b e,) as ( fs e fs] c b4) r8. |

                        %end relative
                        }%end sspin
                        }
                        sblk = {
                        \repeat volta 2{
                        \time 21/16
                        s4. ^\markup{ Stay in cycles with Alto using any beat combination from mm. 22-38 } s4 s16 s4. s4 | 
                        \time 15/16
                        s4.. s4 s16 s8.  %end volta
                        }
                        \alternative {
                        {s4.. s4 s16 s8.}
                        {r4.. r4 r16 r8.}
                        }%4/4
                        \time 4/4
                            r1^\markup{Wander offstage, cutting out at will} |
                            %end sblk
                        }
amel = {
    \relative c''{
        R1*2 |
            r2 |
            \tupletUp \times 2/3{r4 df16(\p bf) } c4 \times 2/3 {r4 df16(\p bf) } \tupletNeutral c4  |
            bf2 r4 \times 2/3 {r4 df16( bf)} |
            c4 \times 2/3{r4 df16( bf)} c4 \times 2/3{c4^\markup{Brighten} e8} |
            e4~ \times 2/3{e4 df8} e4 \times 2/3{c4 bf16( df)} |%5/4
            e4^\markup{Open slightly} d2 c4 af |%6/4
            gf8(^\markup{\italic{mosso}} ff) gf4^\markup{\italic{riten}} ff \once \override TextScript #'padding = #2.2 df8 ^\markup{\italic{mosso}} af'( gf4)^\markup{\italic{riten}} ff |%c
            gf4^\markup{Recover tempo, sweetly} df'8( c) c( bf) c( df) |%2/4
            ef,( d?) f? g?16( af) | %c
            af2. bf8( c) |
            df ef~ ef2 r8 ef( |%5/4
                    bf8) c ef df ef2 bf4~|
            bf1 |
            r4 cs16 as( b) e, as4 ds,\sf |
            fs16( \pp es ds8) ds'\f ds, \times 2/3 {cs c f} as4 |
            r4 df,2~( \p\< ^\markup{Smooth, cloying} df8\f c16(\> b? |
                        bf16^\markup{tumble, thunk!} a af) f--\! df'4~ (\f df8 c16(\> b a? af) f8--\! |
                            df'8\f c16( b? a af) f8--\sf r8. a16 g16( fs) ef8 |
                            df8.-> a'16 g16( fs) ef8 d4 c'16( b? a af) |
                            %c4~ c16 ef8 df16 bf4 \acciaccatura af8 g^\markup{Driving} g16 g ~ |
                            %g8 f~ c'4 g16 g d' df r16 as( b) e,? |
                            %as4 r4 c16( as) b( e,) as4 | 
                            %as4\p\< \times 4/6{ f'16 ef \Leftboth bf \Lefttwo a d8~\f } d4 r4  |
                            %end relative
                            }
                            }
                            aspin = {
                            \relative c'''{
                            \once \override TextScript #'padding = #2 d16([ \f ^\markup
                                {
                                \tiny \note #"8" #0.7 "= 160 Dizzying blend "

                                } df c b bf a)] 
                            af([ g f fs b,?)] 
                            fs'([ df b df g, fs)] 
                            e([ \p c?) e( c) ] |
                            %15/16 %altdesc2
                            f'[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
                            f[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
                            %21/16       original m22 beginning 
                            d16([ \p e f) d( e f)] g ([ \f gf f e ef)] d([ f df c e b] as)[ d,?( e f)] |
                            %15/16 %altdesc2
                            f'[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
                            gf8--[ e16 as ( fs e fs] c b4) d'16[(\f e f~] |%m25
                                    %2nd time start 21/16       original m22 beginning 
                                    d16([ \p e f) d( e f)] g ([ \f gf f e ef)] d([ f df c e b] as)[ d,?( e f)] |
                                    %15/16 %altdesc2
                                    f'[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
                                    gf8--[ e16 as ( fs e fs] c b4) d'16[(\f e f~] |% 3rd time start
                                        d16([ \p e f) d( e f)] g ([ \f gf f e ef)] d([ f df c e b] as)[ d,?( e f)] |
                                        %15/16 %altdesc2
                                        f'[( gf f e ef d f]) df[( c e b bf]) d16[\p df^\markup{Dry} c] |
                                        gf8--[ e16 as ( fs e fs] c b4) d'16[(\f e f~] |%
                                            %21/16
                                            f4.) %altdesc1
                                        r4 r16 r4. r16 f,([\ff\> e d?)\f] | %altdesc2
                                        %15/16
                                        r4 r8. df'16[( c ef b bf]) d16[\p df c] |
                                        gf8--[ e16 as(\p fs e fs] c b4) d'16[(\f e f~] 
                                            %21/16
                                            f4. g16[( gf f) e^\markup{Dry} ef] d[( f df c e b] bf) f[( e d)] |
                                            %15/16
                                            f'16[( gf f e ef d f]) df[( c ef b bf]) d[( e f] |%REPLACESophere m30
                                                as,[(\pp b) e,16\p as( fs e fs] c b4) d'16[(\f e f~] 
                                                    %21/16
                                                    f16[( e\p f g gf f)] e[( ef d f df)] c[( e b as b e,)] r16 d[( e f)] |
                                                    %15/16
                                                    d'[ \ssp r \Left d32 d ] r4 d8 r8. b16[( as f]) |
                                                    f[(\f gf f e ef d f]) df[( c e b bf]) cs'[( bf a]) | 
                                                    %21/16
                                                    e'[(\p\< f a\f\> f ef d])\p g16[(\f gf8. ef16]) d8.[( c16 ef b] bf[) f(\ff\> e? d?)\f] | %m30
                                                    %15/16
                                                    f'16[( gf f e ef d f]) df[( c ef b bf]) d[( e f~] |
                                                        f[( gf f e ef d f]) df[( c ef b bf]) d[( df c)] |
                                                        %21/16 
                                                        d16([ df c b bf a)] 
                                                        af([ g f fs b,?)] 
                                                        fs'([ df b df g fs)] 
                                                        e([ c?) e( c) ] \stopTextSpan \f |
                                                        %15/16
                                                        f'16[( gf f e ef d f]) df[( c ef b bf]) d[( e f~] |
                                                            f[( gf f e ef d f]) df[( c ef b bf]) d,[(\f e f] |%m35
                                                                %21/16 %parallel
                                                                f'[(\p df c) as( b e)] f8.[( e16 ef]) d[( f df c e b] bf[) f(\ff\> e d?)\f] |
                                                                %15/16
                                                                e'16[( gf f e ef d f]) df[( c ef b bf]) d[( df c]) | 
                                                                d?[( \Right df) \ssp r \Left b32 b bf16 a af] g([ f fs bf fs)] d[( e f?)] | 
                                                                %21/16
                                                                f8[ df' ef,] r4 r16 r4 r16 fs16~->\sfz^\markup{Drop like a weight} fs4~ |
                                                                %15/16
                                                                fs4.. r16 fs4~-> fs8. |
                                                                r16 fs4~-> fs16[ fs~->] fs8[ fs8-> fs16->] fs->[ fs->] r |

                                                                %end relative
                                                                }%end aspin
                                                                }
                                                                ablk = {
                                                                \relative c''{
                                                                %\repeat volta 2{
                                                                s4. ^\markup{ Stay in cycles with Soprano using any beat combination from mm. 22-38 } s4 s16 s4. s4 | 
                                                                s4.. s4 s16 s8.  %end volta
                                                                %}
                                                                %\alternative {
                                                                    {s4.. s4 s16 s8.}
                                                                    {s4.. s4 s16 d16([ df c ]}
                                                                            %            } 
                                                                            %recuperation 4/4
                                                                            af4) \times 2/3 {r4 df16( bf)} c4 \times 2/3 {r4 df16( bf)} |%5/4 time
                                                                        \time 5/4
                                                                        c4 r d ef2 |%6/4
                                                                        \time 6/4
                                                                        f2 ef8 gf ef2 ef8 gf |
                                                                        \time 4/4
                                                                        af2. \times 2/3{r4 df,16( bf)} |
                                                                        c2 df4( bf) |
                                                                        c1\< ^\markup{Take up more space}|
                                                                        d2 ^\markup{Magestically follow Tenor offstage; overdo it} ef |
                                                                        f1\ff %end relative
                                                                }%end ablk
                                                                }
tmel = {
    \relative c' {

        R1*2 |
            R1*2/4 |
            R1*4
            R1*5/4|
            R1*6/4
            R1
            R1*2/4|
            R1*2 |
            R1*5/4 |
            R1*7 |


    }
}
tspin = {
    \relative c' { %21/16        
        R1*21/16
            %15/16
            R1*15/16*2
            %21/16 
            R1*21/16
            %15/16
            R1*15/16*2
            %21/16  2nd time start
            R1*21/16
            %15/16
            R1*15/16*2 %21/16 3rd time
            r4.^\markup{From offstage} r4 r16 r4. as4~ \p\< |
            %15/16
            as4~ as8. df,16-.\f [ df8-. df-.] c8.~\>^\markup{Casually walk onstage} |
            c8[\p c c8.] r4^\markup{Briefly pause, listening} r16 r8.
            %21/16 
            d16([^\markup{Continue, arriving near Soprano} e f)] r8. d16\p[ d d8 d16] d16 [ \Lefttwo df ef'8-- d,] bf'16[( \f\> af g f\p)] |%tendesc
            %15/16
            df'16([ \Rightboth c \Lefttwo as) b8-- e,--] es16([ fs e) c\f ^\markup{Grainy} b] e([\> c b)]\p |
            c8[\p c c8.] d'16([ \f df c b bf]) a?([ g f)] |
            %21/16 
            d16([ e f)] r8. d16\p[ d d8 d16] d16 [ \Lefttwo df ef'8-- d,] bf'16[( \f\> af g f\p)] |%tendesc
            %15/16
            df'16([ \Rightboth c \Lefttwo as) b8-- e,--] es16([ fs e) c\f ^\markup{Grainy} b] e([\> c b)]\p |
            df'16([ \Rightboth c \Lefttwo as) b8-- e,--] as16([ fs e) c\f b] e([\> c b)] |
            %21/16
            a4.\p a16[^\markup{firm} a8 a16-.] r16 a16[ a8 a-. a16-. ] r8. f''16( \f|
                    %15/16
                    e16[ ef d f) df ( c e?] b [ bf) d ( e f)] r f[( e] |
                        ef[ d df c) b?( bf af] b [ e,) a( e ds)] bf8. |
                    %21/16
                    r8. af'32[ af af16 af] r16 a([ e ds e)] r a([ e ds e g]) r a([ e ds ]) |
                    %15/16
                    cs'16([ bs as) b8-- e,--] es16([ fs e) c( b)] e([ c b)] |
                    cs'16([ bs as) b8-- e,--] as16([ fs e) c( b)] e([\> c b)]\p |
                    %21/16 %put alto here
                    b[\f cs8. a?8] r4 r16 r4. r4 |
                    %15/16
                    r8. r4 f'2->\sfz^\markup{Drop like a weight} | 
                    r4 r16 f8->~ f4~ f16 
                    r16 f8~-> |
                    %21/16
                    f8.[ f8.->] f8->[ f16-> f->] r r4. r4 |
                    %15/16
                    R1*15/16 |
                    r16 f4.~-> f4~ f16 r8 f16~-> |
                    %21/16
                    f4. r16 f4-> r16 f8.->[ f8->] f16->[ f-> f-> f->] |
                    %15/16
                    f[^\markup{\italic{sim.}} f f f f f f] f[\p f f] r8 f16[ f f] | 
                    f8[ r8 f16 f f] r bf[( a16\f af g] f[ fs) bf]  |
                    %end relative
    } %end tspin

}
tblk = {
    \relative c{
        \repeat volta 2{
            s4. ^\markup{
                \column{
                    \line{Walk, insect-like, to and along the walls of the entire space improvising }
                    \line{on anything you heard in past minute of Soprano and Alto, }
                    \line {free meter and tempo, even more painful and humiliating } 
                }
            }s4 s16 s4. s4 | 
            s4.. s4 s16 s8.%end volta
        }
        \alternative {
            {s4.. s4 s16 s8.}
            {s4.. s4 s16 s8.}
        } %4/4
        r1 |%5/4
            fs'4 e r d bf|%6/4
            af2 af8 gf ef bf'( af4)^\markup{\italic{riten.}} gf |
            af^\markup{\italic{mosso}} ef'8( d) d( c) d( ef) 
            f,4 f8( ef) ef( d) a'( bf) |
            f c a16( g)  c8 r4 d~ ^\markup{Gradually exit offstage as if escaping Alto's crescendo}|
            d2. r4 |
            r1

            %end relative
    }%end tblk
}

bmel = {
    \relative c' {
        R1*2 |
            R1*2/4 |
            R1*4
            R1*5/4|
            R1*6/4
            R1
            R1*2/4|
            R1*2 |
            R1*5/4 |
            R1*7 |
            %            g g g g g g g g g g g g g g g g |
            %    af4  r8 g16 g r4 g16 g g g |
    }
}
bspin = {
    \relative c { %21/16        
        R1*21/16
            %15/16
            R1*15/16*2
            %21/16 
            R1*21/16
            %15/16
            R1*15/16*2
            R1*21/16
            %15/16
            R1*15/16*2
            %21/16
            R1*21/16 |
            %15/16
            R1*15/16*2 |
            %21/16
            R1*21/16 |
            %15/16
            R1*15/16*2 |
            %21/16 
            R1*21/16
            %15/16
            R1*15/16
            r8^\markup{Offstage; drop like an iron weight} f2~->\sfz f16~ f4~ |
            %21/16
            f4. r4^\markup{Walk with severe purpose until very close to Alto} r16 r4. r4
            %15/16
            R1*15/16 |
            r4. f2~-> \sfz f16~ |
            %21/16
            f4. r4 r16 r4. r4 |
            %15/16
            r4 f8.~->\sfz f4~ f16 r8. |
            r4 r8. r8. f8~->\sfz f8. |
            %21/16
            r4. r8 f8.~->\sfz f4 r16 f16->~ f4 |
            %15/16
            f8.->\sfz [ f8-> f16-> f->] r4 r16 r8. |
            R1*15/16 |
            %21/16
            r4. f4~-> f16~ f4. r8 f~-> |
            %15/16
            f4.~-> f16~-> f4 f16~-> f8[ f16~->] |
            f8[ f16-> f->] r8. r4 r16 r8. |
            %21/16
            f4.~-> f4 r16 r8 f16~-> f4.. |
            %15/16
            f4~-> f16 f8~-> f16[ f8-> f16-> f->] f->[ f-> f->] 
            r^\markup{\italic{sim.}} f32\>[ f f16 f8 f16\pp f] f[ f f f f] f[ f f] |

            %end relative
    }%end bspin
}
bblk = {
    \relative c { 
        \repeat volta 2{

            s4. ^\markup{
                \column{
                    \line{Walk, insect-like, to and along the walls of the entire space improvising }
                    \line{on anything you heard in past minute of Soprano and Alto, }
                    \line {free meter and tempo, even more painful and humiliating } 
                }
            }s4 s16 s4. s4 | 
            s4.. s4 s16 s8.%end volta
        }
        \alternative {
            {s4.. s4 s16 s8.}
            {s4.. s4 s16 s8.}
        } %4/4
        r1^\markup{Wander offstage, cutting out at will} |


            %end relative
    }%end bblk
}

%rehearsal marks for all parts and print only once at top of full score
marks = {
}

Soprano = \new Voice { 
    \override Score.MetronomeMark #'transparent = ##t
        \smel
        \tempo 8=160
        \sspin
        \sblk
        %end sop
}   %*********************************

Alto = \new Voice { 
    \set Staff.instrumentName = \markup { "Alto Sax" }  
    \set Staff.shortInstrumentName =  "A"
        \set Staff.midiInstrument = "alto sax" 
        \set Score.skipBars = ##t
        \amel
        \aspin
        \ablk
        %end alt
}   %*********************************

Tenor = \new Voice { 
    \set Staff.instrumentName = "Tenor Sax "
        \set Staff.shortInstrumentName = "T"
        \set Staff.midiInstrument = "tenor sax" 
        \set Score.skipBars = ##t
        \clef bass

        \tmel
        \tspin
        \tblk
}   %*********************************

Baritone = \new Voice { 
    \set Staff.instrumentName = "Baritone Sax "
        \set Staff.shortInstrumentName = "B"
        \set Staff.midiInstrument = "baritone sax" 
        \set Score.skipBars = ##t
        \clef bass
        \bmel
        \bspin
        \bblk
}   %**********************************

music = {
    <<
        \tag #'score \tag #'flu \new Staff { << \global \Soprano >> }
    \tag #'score \tag #'cla \new Staff { << \global \Alto>> }
    \tag #'score \tag #'bas \new Staff { << \global \Tenor>> }
    \tag #'score \tag #'dbs \new Staff { << \global \Baritone>> }
    >>
}