Yes, I did try \partCombineChords, but it doesn't seem what I expect.
Expectation is 2 notes on same stem, one upper, one lower, not on
separate
stems.
Below is the test and attached result (2 notes have separate stems)
\version "2.22.1"
localFontSize =
#(define-music-function (font-size music) (number? ly:music?)
(for-some-music
(lambda (m)
(if (music-is-of-type? m 'rhythmic-event)
(begin
(set! (ly:music-property m 'tweaks)
(cons `(font-size . ,font-size)
(ly:music-property m 'tweaks)))
#t)
#f))
music)
music)
soprano = { f'4 g'4 a'4 b'4 c''2 }
basso = { d'4 e' f'' g' a'2 }
alto = { d'4 e' \stemUp f'' g' a'2 }
tenor = { d'4 e' f'' g' a'2 }
\new Score { \new Staff << \partCombineChords \soprano \basso >> }
\new Score { \new Staff << \partCombineChords \soprano \alto >> }
\new Score { \new Staff << \partCombineChords \soprano \localFontSize
-3
\tenor >> }
Please advice if any mistake or missing.