Mark_engraver in PianoStaff?

[Alexander Kobel]

Hi, all,

I want to typeset a piano reduction where the RehearsalMarks,
MetronomeMarks and some TextSpanners (like rit. etc.) are shown once in
the Score context, but are additionally doubled above the PianoStaff for
the piano player.
Just adding the according engravers to the PianoStaff puts the output
above the whole system, as with the default Score engraver. Any ideas
how to have them below? (Example attached, what I want is sketched below.)

      A..
 |========
 |
[|========
[|
[|========
 |
 |    A..
{|========
{|
{|========


Cheers,
Alexander

\version "2.11.56"
#(ly:set-option 'point-and-click #f)
#(set-global-staff-size 15)

marks = {
        s1*7 \mark \default
        s1*8 \mark \default
        s1*4 \tempo 4 = 80
        s1*4 \mark \default
        s1*4
        \once \override Score.TextSpanner #'bound-details #'left #'text = 
"sostenendo"
        \once \override Score.TextSpanner #'bound-details #'right #'attach-dir 
= #RIGHT
        s1\startTextSpan s1*2 s1\stopTextSpan \bar "|."
}

\score {
        <<
                \new Staff = "soloStaff" \with {
                        fontSize = #-2
                        \override StaffSymbol #'staff-space = #(magstep -2)
                } <<
                        \context Voice = "solo" { \repeat unfold 31 { c''1 } }
                >>
                
                \new ChoirStaff <<
                        \new Staff = "womenStaff" <<
                                \context Voice = "women" \marks
                                \context Voice = "women" { \repeat unfold 31 { 
g'1 } }
                        >>
                        \new Staff = "menStaff" { \clef bass \repeat unfold 31 
{ c1 } }
                >>
                
                \new PianoStaff <<
                        \new Staff = "upperStaff" <<
                                \context Voice = "upper" \marks
                                \context Voice = "upper" { \repeat unfold 31 { 
<c'' g' e' c'>1 } }
                        >>
                        \new Staff = "lowerStaff" { \clef bass \repeat unfold 
31 { <g c>1 } }
                >>
        >>
        
        \layout {
                \context {
                        \Score
                        \consists Text_spanner_engraver
                }
                \context {
                        \Voice
                        \remove Text_spanner_engraver
                }
                \context {
                        \PianoStaff
                        \consists Text_spanner_engraver
                        \consists Mark_engraver
                        \consists Metronome_mark_engraver                       
                }
        }
}

MarksInPianoStaff.ly.pdf
Description: Adobe PDF document