Incipit

[Amélie Aubut]

Hello everyone!
I have a little Incipit problem.  Transcribing Renaissance music, I recently got some nice Incipits thanks to the "instrument name method".  This time, I have a problem of alignment of the staff of the incipit and the staff of the music itself.  That seems to happen when the clef or the alteration are "too high" on the incipit staff.  Since I want the real instrument name to be right over the staff (as it is in most of the paper editions I encountered), that markup seems to have the priority on my incipit.  Well, I have a hard time explaining it (and I'm still a bit of a newbie too!), so here is the music, if anyone have an idea of how I could get the staves nicely aligned...
Thank you! / Merci!
Amélie




\version "2.11.48"

coupletun = \lyricmode { \set stanza = "1. " Re- }

%%%****************************************************  SOPRANO  ******************************************************
notessuperius = {  \clef "treble"        \key f \major       bes'4          } 
 
incipitsuperius = \markup{  \score{  { \set Staff.instrumentName = "          "
                               \override NoteHead   #'style = #'neomensural
                               \override Rest #'style = #'neomensural
                               \override Staff.TimeSignature #'style = #'mensural
                               \clef "neomensural-c1" \mark \markup { \tiny  "           Superius    "  } 
                                       \key f \major
                               \time 2/2 
                               bes'4 s8  }

                                 \layout {  \context {\Voice
                                              \remove Ligature_bracket_engraver
                                              \consists Mensural_ligature_engraver  }

                                        line-width=4.5\cm                              } } } 

%%%****************************************************  TENOR  ******************************************************
notestenor = { \clef "treble_8"       \key f \major        d'4 }
 
incipittenor = \markup{ \score{   
                                  {  \set Staff.instrumentName = "          "
                                     \override NoteHead   #'style = #'neomensural
                                 \override Rest #'style = #'neomensural
                                 \override Staff.TimeSignature #'style = #'mensural
                                 \clef "neomensural-c3" \mark \markup { \tiny "         Tenor         "  } 
                             \time 2/2 
                                     \key f \major
                                      d'4 s8   }
 
                                  \layout {   \context {\Voice
                                            \remove Ligature_bracket_engraver
                                            \consists Mensural_ligature_engraver  }

                                       line-width=4.5\cm                             }  }  } 

%%%****************************************************  BASSE  ******************************************************
notesbassus = {   \key f \major     \clef "bass"        g8  }

incipitbassus = \markup{ \score{
                                {  \set Staff.instrumentName = "         "
                                   \override NoteHead   #'style = #'neomensural
                               \override Rest #'style = #'neomensural
                               \override Staff.TimeSignature #'style = #'mensural
                               \clef "petrucci-f4" \mark \markup { \tiny "           Bassus      "  } 
                                   \key f \major
                            \time 2/2 
                                   g8 s8 %\override Rest #'transparent = ##t f1\rest 
}
     
                                  \layout {   \context {\Voice
                                           \remove Ligature_bracket_engraver
                                           \consists Mensural_ligature_engraver }

                                       line-width=4.5\cm                              }  }  } 

%%%****************************************************  PARTITION  ******************************************************
#(set-global-staff-size 16)

\score{  \new ChoirStaff <<  \new Voice =   "notessuperius" << \set Staff.instrumentName=\incipitsuperius   
                                                               \notessuperius  >>
                             \new Lyrics =    "textesuperius" \lyricsto notessuperius { \coupletun }

                             \new Voice =   "notestenor" << \set Staff.instrumentName=\incipittenor 
                                                            \notestenor  >>
                             \new Lyrics =  "textetenor" \lyricsto notestenor { \coupletun }

                             \new Voice =  "notesbassus" << \set Staff.instrumentName=\incipitbassus 
                                                            \notesbassus >>                             
                             \new Lyrics =  "textebassus" \lyricsto notesbassus { \coupletun }   >>


         \layout {   indent= 2\cm
                     incipit-width = 5\cm   }   }