Hello,
I made a chord version of the first Praeludium of the Wohltemperierte Klavier
(in which the chords were programmaticall reconstructed from the liste of notes)
As the chords extend on 2 and a half octaves,
I wanted to get them on a normal piano staff
and adjust the distance of staffs so that the would be like one staff with one space for an A3 note.Then the chords can be placed on the upper staff with notes automatically appearing at they right place on the lower staff.
I found a nice way to do it, using Lilypond 20, by specifying staff-staff-spacing.padding with a negative value
\new PianoStaff \with {% midiInstrument = "tenor sax"\override StaffGrouper.staff-staff-spacing = #'((basic-distance . 0)(padding . 0)) % s0 for first exemple ; second example : (padding . -3.09)}The result was this
with padding=0
with the negative adjustment (padding = -3.06)
Unfortunately, this adjustment no longer works in LilyPond 22
It looks like the property was broken, or no longer function this way?
Whatever the value, the distance is not affected.
You can see the complete LilyPond and PDF files in this NextCloud folder
Thank you in advance if you can sort this problem out.
Sincerely
Silvain
--
Silvain Dupertuis
Route de Lausanne 335
1293 Bellevue (Switzerland)
tél. +41-(0)22-774.20.67
portable +41-(0)79-604.87.52
web: silvain-dupertuis.org
"Return a pair of lists, containing the pitches of @var{chord}, splitted at
a reference pitch. The reference pitch is derived from @var{ref-pitch}.
If @var{ref-pitch} is empty, @code{c'} is regarded as reference.
"
(define ref-pitch-steps
(if (and (pair? ref-pitch) (car ref-pitch))
(ly:pitch-steps (car ref-pitch))
0))
(call-with-values
(lambda ()
(partition
(lambda (note)
(> (ly:pitch-steps (ly:music-property note 'pitch))
ref-pitch-steps))
(event-chord-notes chord)))
cons))
autoSplitChord =
#(define-music-function (stem-dir staff-names pitch chord)
((ly:dir? 0) (pair? '("up" . "down")) (ly:pitch?) ly:music?)
(_i "Split @var{chord} at optional @var{pitch}. The default of @var{pitch} is
@code{#f}, which is interpreted by the called procedure
@code{make-autosplit-chord} as @code{c'}.
The splitted chords are distributed to named staves, relying on optional
@var{staff-names}.
The optional @var{stem-dir}, determines the direction of the stems and whether
the chords may be connected by a cross-staff stem.
The default results in unconnected chords.
If the @code{Span_stem_engraver} is consisted, the chords may be connected by a
cross-staff stem.")
(if (music-is-of-type? chord 'event-chord)
(let* ((skip (make-duration-of-length (ly:music-length chord)))
(devided-pitches (make-autosplit-chord chord pitch))
(upper-chord
(if (pair? (car devided-pitches))
(make-event-chord (car devided-pitches))
(make-skip-music skip)))
(lower-chord
(if (pair? (cdr devided-pitches))
(make-event-chord (cdr devided-pitches))
(make-skip-music skip))))
#{
<<
\context Staff = #(car staff-names)
\context Voice {
$(if (negative? stem-dir)
#{
\once \override Stem.cross-staff = #cross-staff-connect
\once \override Flag.style = #'no-flag
<>\noBeam
#})
$(if (not (zero? stem-dir))
#{ \once \override Stem.direction = #stem-dir #})
#upper-chord
}
\context Staff = #(cdr staff-names)
\context Voice {
$(if (positive? stem-dir)
#{
\once \override Stem.cross-staff = #cross-staff-connect
\once \override Flag.style = #'no-flag
<>\noBeam
#})
$(if (not (zero? stem-dir))
#{ \once \override Stem.direction = #stem-dir #})
#lower-chord
}
>>
#})
#{ \context Staff $chord #}))
autoSplitChordsInMusic =
#(define-music-function (mus) (ly:music?)
(map-some-music
(lambda (m)
(and (music-is-of-type? m 'event-chord)
(autoSplitChord m)))
mus))
\score {
\new PianoStaff
<<
\context Staff = "up"
\autoSplitChordsInMusic \crossStaff {
<g c' e' g'>4 <c bes g' e''> <f, a f' c''> <g, g d' b'>
\break
<c g e' c''> \autoChange { a8 c' d' e' c'4 }
}
\context Staff = "down" \crossStaff {
\clef "bass"
\once \stemUp s1 \once \stemUp s1
}
>>
\layout {
\context {
\PianoStaff
\consists "Span_stem_engraver"
}
\context {
\Score
\override NonMusicalPaperColumn.line-break-system-details =
#'((alignment-distances . (6)))
}
}
}