Re: satb and pianoreduction

[Martial]

write this :

\new PianoStaff
        \with { fontSize = #-4 \override StaffSymbol #'staff-space = 
#(magstep -4)%  for small
         \override VerticalAlignment #'forced-distance = #5
         }

view the attached file
--
Martial
http://cathemline.org

\version "2.8.0"

% Titel und Fußzeile:

\header {
%     title = \markup { \column {"Choral" " "} }
%     composer = "J. S. Bach"
    tagline = "gesetzt mit LilyPond"
}

% Einstellungen für alle Stimmen:

global = {
  \key f \minor  % Tonart
  \time 4/4      % Metrum
%  \partial 4     % Auftakt 1 Viertelnote
}

%Musik:

SopranNoten = \relative c'' {
  c2 des | c2. f4~ | f4 bes, es2 
}

AltNoten = \relative c' {
 r4 f2 bes4~ | bes4 as8 g as4 g8 f | g2. as8 g f4
}

TenorNoten = \relative c' {
r1 r r r
}

BassNoten = \relative c {
r1 r r r
}


\score {

% Die oberen vier Einzelsysteme:

    <<
      \context ChoirStaff
      <<
        \new Staff {
          \clef soprano
%      \clef G
      \set Staff.instrument = \markup { "Sopran" \hspace #2 }
      \context Voice =
      sopranos { << \global \SopranNoten >> }
    }

    \new Staff {
      \set Staff.instrument = \markup { "Alt" \hspace #2 }
      \clef alto
%      \clef G
      \context Voice =
      altos {  << \global \AltNoten >> }
    }

    \new Staff {
      \set Staff.instrument = \markup { "Tenor" \hspace #2 }
      \clef tenor
%      \clef "G_8"
      \context Voice =
      tenors { <<\global \TenorNoten >> }
    }

    \new Staff {
      \set Staff.instrument = \markup { "Bass" \hspace #2 }
      \clef bass
      \context Voice =
      basses { <<\global \BassNoten >> }
    }

  >>

%% Das Klaviersystem mit den zusammengefassten Stimmen:

       \new PianoStaff                 
        \with { fontSize = #-4 \override StaffSymbol #'staff-space = #(magstep 
-4)%  for small 
         \override VerticalAlignment #'forced-distance = #5
         } 
       <<
         \new Staff 
         << 
               \set PianoStaff.instrument = \markup { "Klavier" \hspace #2 }
            
               
%                minimumVerticalExtent = #'(-15 . 15) 
           \set Staff.printPartCombineTexts = ##f
           \partcombine
           << \global \SopranNoten >>
           << \global \AltNoten >>
         >>
         \new Staff <<
           \clef bass
           \set Staff.printPartCombineTexts = ##f
           \partcombine
           << \global \TenorNoten >>
           << \global \BassNoten >>
         >>
       >>
>>

% Definition des Layouts
    \layout {
      raggedright = ##t
      \context {
% a little smaller so lyrics
% can be closer to the staff
        \Staff 
                minimumVerticalExtent = #'(-3 . 3)
  }
  
}
  \midi {
    \tempo 4 = 94
  }
}