RE: Huge gap between piano staves

[Derek]

I have tried to make a tiny example here but just shortening my file to ten
bars. I don't know if it is still too big though. I am sure that the problem
arises from my attempt to add centred dynamics to the piano score but I
don't know how to fix it. I have fiddle with every parameter I could find
but nothing seems to change it. 

I apologise in advance if this really isn't what a tiny example is supposed
to look like but in making a tiny example I don't want to inadvertently
remove the problem I have created

Any advice would be greatly appreciated.

The full file is here too just in case it would make more sense to anyone.
http://d.pr/f/2x3m


\version "2.16.0"

\language "nederlands"




\header {
  title = "Au fond du temple saint"
  
  
}
\paper {
  system-count = #29 |% 
        %  min-systems-per-page =#2
 
annotate-spacing = ##f 
   system-system-spacing #'basic-distance = #8 % adjust the value 
   score-system-spacing =
     #'((minimum-distance . 8) % be close, when needed 
        (basic-distance . 16) 
        (stretchability . 0) 
        (padding . 1))
  bottom-margin = 1\cm
  ragged-last-bottom = ##t
  left-margin =20\mm
  right-margin =20\mm


}



\layout {

}




global = {
  \key es \major
  \time 4/4

#(set-global-staff-size 17.82)
}

tenorVoice = \relative c' {
  \global
  \dynamicUp

  % Music follows here. 
  \stemNeutral
  \autoBeamOff

  r1 | %1
  r2 r4 r8 \once\override DynamicText #'extra-offset = #'( -0.0 . -1.0)f,8\p
|%2
  bes4. bes8 c4. g8 |%3
  bes2 r4 r8 bes8 |%4
  es4. es8 f4. c8 |%5
  es2 r4 r8 es16 ees |%6
  as2 g4. g8 |%7
  f4~f8 r8 r4 r8 ees8 |%8
  d4. d8 c4. c8 | %9

  
}

verseTenorVoice = \lyricmode {
  % Lyrics follow here.
  \override LyricText #'self-alignment-X = #-1

  Au
  fond du tem -- ple
  saint pa-
  ré de fleurs et
  d'or U- ne
  femme ap -- pa --
  raît __ \skip1 Je
  crois la voir en-
  cor
 

}

bassVoice = \relative c {
  \global
  \dynamicUp

  % Music follows here.
  \set Score.melismaBusyProperties = #'()
  r1 | %1
  R1 | %2
  R1 | %3
  R1 |%4
  R1 |%5
  R1 |%6
  R1 |%7 
  \autoBeamOff
  r4 r8 aes' 16 aes g 4 g8. g16 | %8
  f4 r4 r2 | %9
 
 
}

verseBassVoice = \lyricmode {
  % Lyrics follow here.
  \override LyricText #'self-alignment-X = #-1
  U- ne femme ap- pa- raît Je crois la voir en- cor2.__ \skip1


}

right = \relative c'' {
  \global
  
  % Music follows here.
  f,1
  d1
  |%2
  <f d'>8( <bes f'> <d bes'><bes f'> <g es'> <c g'> <es c'> <c g'> |%3
  <f, d'>8 <bes f'> <d bes'><bes f'> <f d'> <bes f'> <d bes'> <bes f'>)%4
  <bes g'>8 (_[<ees bes'> <g ees'><ees bes'>] <c aes'> <f c'> <aes f'> <c
f,> ) |%5
  <bes, g'>8 (_[<ees bes'> <g ees'><ees bes'>] <bes g'> <ees bes'> <g ees'>
<ees bes'> ) |%6
  \ottava #0
  \set Staff.ottavation = #"8"
  < ees, c'> (_[<aes ees'> <c aes'> <aes ees'> ] <d, bes'> _[<g d'> <bes g'>
<g d'>]) | %7
  \ottava #0
  <c aes'>( <f c'> <aes f'> <f c'> <bes, g'> <ees bes'> <g ees'> <ees bes'>)
|%8
  <aes, f'>\(<d aes'><f d'><d aes'> <g, ees'> <c g'> <ees c'> <c g'> |%9
 
 
}


left = \relative c' {
  \global
  \tempo "Andante" 4 = 66
  % Music follows here.
  < f, f,>1   |%1 
  < d d,>1|%2
  << {r8 <d bes'>(<f d'> <d bes'> <g es'> <es c'><g es'> <es c'> } \\ { <bes
bes,>1 ~  }>>%3
  << { <d' f,>8<d, bes'><f d'> <d bes'> <f d'> <d bes'><f d'> <d bes'>)}\\
{<bes bes,>1} >>%4



  << {  r8  <g' ees'>_(<bes g'> <g ees'> <c aes'> <aes f'><c aes'> <aes
f'>)}\\{<bes,_~bes,>1~}>> |%5

  << { <bes' g'>8 _( <g ees'> <bes g'> <g ees'> <bes g'> <g ees'> <bes g'>
<g ees'>)}\\ {<bes, bes,>1}>> | %6

  << {r8  \clef treble < c' aes'>_( <ees c'> <c aes'> <d bes'> <bes g'> <d
bes'> <bes g'>)}\\{<bes,  bes,>1    }>> |%7

  <<{}\\{  <c' aes'>8  (^[<aes f'> <c aes'> <aes f'>] <bes g'> ^[<g
ees'><bes g'> <g ees'>])  \clef bass}>> |%8

  <bes,, bes'>  <f'' d'> (<aes f'> <f d'> <g ees'> <ees c'>  <g ees'> <ees
c'> | %9





}

pedal = {

  s1|%1
  s1|%2
  s1 \sustainOn |%3
  s4 s4 s4  s8 s16 s16 \sustainOff |%4
  s1 \sustainOn |%5
  s4 s4 s4  s8 s16 \sustainOff s16 |%6
  s1 \sustainOn |%7
  s4 s4 s4  s8 s16 \sustainOff  s16 |%8
  s4 \sustainOn s4 s4  s8 s16  \sustainOff s16 |%9
  s1 \sustainOn  |%10
  



}

dynamics = {


  \once\override DynamicText #'extra-offset = #'( -6.1 . 1.7) s16\ppp s16 s8
s4 \once\override DynamicText #'X-offset = #-3 s4\unaCorda s4 % |1
  s1 %|2
  s1%|3
  s1%|4
  s1%|5
  s1%|6
  s1%|7
  s1%|8
  s1%|9


}


tenorVoicePart = \new Staff \with {
   \override VerticalAxisGroup #'default-staff-staff-spacing =
      #'(
         (padding . 8))
  instrumentName = "Nadir"
  shortInstrumentName = "N."
  midiInstrument = "choir aahs"
} { \clef "treble_8" \tenorVoice }
\addlyrics { \verseTenorVoice  }

bassVoicePart = \new Staff \with {
  \override VerticalAxisGroup #'default-staff-staff-spacing =
      #'(
         (padding . 8))
  instrumentName = "Zurga"
  shortInstrumentName = "Z."
  midiInstrument = "choir aahs"
} { \clef bass \bassVoice }
\addlyrics { \verseBassVoice }

pianoPart =

\new PianoStaff \with { instrumentName = "Piano"  shortInstrumentName = "" }
<<
  \new Staff = "right" \with { midiInstrument = "acoustic grand"} \right
  \new Dynamics = "Dynamics_pf" \dynamics
  \new Staff = "left" \with { midiInstrument = "acoustic grand" } { \clef
bass \left }
  \new Dynamics = "pedal" \pedal

>>



\score {

  <<
    \tenorVoicePart
    \bassVoicePart
    \pianoPart


  >>
  \layout {

    % define Dynamics context
    \context {
      \type "Engraver_group"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver"
      \consists "Piano_pedal_engraver"
      \consists "Script_engraver"
      \consists "New_dynamic_engraver"
      \consists "Dynamic_align_engraver"
      \consists "Text_engraver"
      \consists "Skip_event_swallow_translator"
      \consists "Axis_group_engraver"

      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      \override DynamicLineSpanner #'Y-offset = #0
      \override TextScript #'font-size = #0
      \override TextScript #'font-shape = #'italic
     



    }
    % modify PianoStaff context to accept Dynamics context
    \context {
      \PianoStaff
      \accepts Dynamics
    }
   
  }



}




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Huge-gap-between-piano-staves-tp146457p147881.html
Sent from the User mailing list archive at Nabble.com.