\version "1.7.11"
%--------------------------------
% This test to demonstrate inter-'staff' spacing issue 
% when using HariKariStaffContext.  
%
% The layout - one whole note per system, each system should
% have the Guitar (ChordName) and Piano, but should start with 
% 0 vocals (Staff in StaffGroup) and add 1 voice per system.
%
% Note the space between the Chord 'staff' and the staff immediately
% below the chords.  It appears that the HariKari'd staves actually
% reserve vertical space.


\score {
  \notes { <

%----------
% A) StaffGroup setup ...
%
% This section sets up the 'order' of the staves to be displayed
% in the Staff Group. This is patterned after template 'satb.ly' 
% There are no notes in this part.
% It is done simultaneous (in parallel) to the actual music/score.
%
    \context ChordNames {
      \transpose c' c' \chords { a1 a:maj b b:maj c c:7 } }

    \context StaffGroup <
      \property Score.automaticMelismata = ##t

      \context Staff = SoloPart { s1 }
      \context Lyrics = SoloLyr { s1 }
      \context Staff = WomenPart { s1 }
      \context Lyrics = WomenLyr { s1 }
      \context Lyrics = MenLyr { s1 }
      \context Staff = MenPart { \clef bass s1 }

%----------
% B) StaffGroup music ...
%
% This part actually contains the music.  Since most of the music 
% is input so that I can transpose for the choir, leave the 
% \transpose c' c' in place to catch my input errors while debugging.
% 
%      \addlyrics
        \context Staff = SoloPart <
          \transpose c' c' \notes \relative c'' { s1 \break s \break s \break d \break d } >
%        \context Lyrics = SoloLyr { \lyrics Sdo }
%      \addlyrics
        \context Staff = WomenPart <
          \transpose c' c' \notes \relative c'' { s1 s c c c } >
%        \context Lyrics = WomenLyr { \lyrics { WAdo WAre } }
%      \addlyrics
        \context Staff = MenPart <
          \transpose c' c' \notes { s1 c c c c } >
%        \context Lyrics = MenLyr { \lyrics { MAdo MAre MAme } }
    >

%----------
% C) PianoStaff music ...
%
% The Piano parts go here (as does other accompaniment under it's own
% StaffGroup
%

    \context PianoStaff <
      \property PianoStaff.followVoice = ##t
      \property PianoStaff.connectArpeggios = ##t
      \context Staff = up <
        \transpose c' c' \notes \relative c'' { c1 d e f e } >
      \context Staff = down <
        \clef bass
        \transpose c' c' \notes { g1 g e d e } >
    >
  > }


%----------
% D) Paper block
%
% Controls the output ... HariKariStaffContext kills blanks lines
%

    \paper {   interscoreline = 10\mm
      textheight = 252\mm
      linewidth = 170\mm
      \translator { \HaraKiriStaffContext }
    }

}