Mark Polesky wrote:
> A while back, I did exactly that. I'll look for it and
> get back to you...
Ugh. Kludge-o-rama. Ghost voices, hidden notes, clashing
note-columns, spacing nightmares... I'll see if someone
has a better idea on -devel, but in the meantime, this is
an option.
Let me know if you have any questions.
- Mark
\version "2.13.4"
\score {
\new Staff <<
\new Voice \relative c''' {
\once \override HorizontalBracket #'direction = #UP
\override HorizontalBracket #'Y-offset = #5.5
\override HorizontalBracket #'shorten-pair = #'(-1 . -0.75)
c\startGroup a f d\stopGroup
}
\new Voice \relative c''' {
\override HorizontalBracket #'direction = #DOWN
\override HorizontalBracket #'Y-offset = #-3.5
\override HorizontalBracket #'shorten-pair = #'(-1 . -0.75)
\hideNotes c\startGroup a f d\stopGroup \unHideNotes
}
>>
\layout {
\context {
\Voice
\override NoteColumn #'ignore-collision = ##t
\consists "Horizontal_bracket_engraver"
\override HorizontalBracket #'thickness = #4
\override HorizontalBracket #'bracket-flare = #'(0 . 0)
\override HorizontalBracket #'Y-extent = #'(0 . 0)
% always overlap bracket edges (just past middle line)
\override HorizontalBracket #'edge-height =
#(lambda (grob)
(let* ((Y-offset (ly:grob-property grob 'Y-offset))
(height (abs (+ 0.5 (abs Y-offset)))))
(cons height height)))
}
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
