compress full bar rests

[Flaming Hakama by Elaine]

Somehow, through this framework, I cannot get full bar rests to compress when I use a globals treatment.

Does anyone have a clue as to how to get them to compress?

Thanks.

\version "2.19.15" 

structure = \relative c { 

    \compressFullBarRests

    \override MultiMeasureRest.expand-limit = #2   

    \override Score.RehearsalMark.self-alignment-X = #LEFT

    \mark "Globally Uncompressed"

    s1 | 

    s1 | s | s | s \bar "||" 

}

globals = #(define-music-function (parser location mus) (ly:music?) #{ << \structure \relative { $mus } >> #})

melody = \relative c'' {

    \compressFullBarRests

    \override MultiMeasureRest.expand-limit = #2

    c1 | R1*4 || 

}        

melodyGlobal = \globals { \melody }

<<

    \new Staff { 

        \compressFullBarRests

        \override MultiMeasureRest.expand-limit = #2

        \override Score.RehearsalMark.self-alignment-X = #LEFT

        \mark "Simple and Compressed"

        \melody

    }

>>

<<

    \new Staff { 

        \compressFullBarRests

        \override MultiMeasureRest.expand-limit = #2

        \melodyGlobal

    }

>>

David Elaine Alt

415 . 341 .4954                                           "Confusion is highly underrated"

address@hidden

self-immolation.info
skype: flaming_hakama
Producer ~ Composer ~ Instrumentalist
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-