On 2020-10-26 10:54 pm, Aaron Hill wrote:
On 2020-10-26 7:37 pm, 98123981293 1293812397123 wrote:
Hi list,
I usually use the following snippet to handle glissandi across hidden
noteheads:
glissandoSkipOn = {
\override NoteColumn.glissando-skip = ##t
\hide NoteHead
\override Accidental.transparent = ##t
\override NoteHead.no-ledgers = ##t
}
is it possible to implement something similar for bendAfter? A quick
check
of the archives did not reveal anything relevant but please link me if
this
has already been covered. Pic attached with the line as I want it to
look
in green.
Thank you,
Kyle
The Glissando_engraver knows to look for glissando-skip, however no
such logic exists for Bend_engraver. It would be possible to re-write
the engraver and introduce a new bend-skip context property, however a
perhaps simpler option is to change the stencil for a glissando to
look like a bend:
[...]
Sorry, I pasted an old version of the code that did not handle the
vertical alignment properly:
%%%%
\version "2.20.0"
bend-glissando-print =
#(lambda (grob)
(let* ((lnh (ly:spanner-bound grob LEFT))
(rnh (ly:spanner-bound grob RIGHT))
(lsp (ly:grob-staff-position lnh))
(rsp (ly:grob-staff-position rnh))
(dy (/ (- rsp lsp) 2))
(dot (ly:grob-object lnh 'dot))
(acc (ly:grob-object rnh 'accidental-grob))
(th (* (ly:grob-property grob 'thickness 1)
(ly:output-def-lookup (ly:grob-layout grob)
'line-thickness)))
(pad (ly:grob-property grob 'padding 0.5))
(cmx (ly:grob-common-refpoint
(ly:grob-common-refpoint grob lnh X) rnh X))
(cmy (ly:grob-common-refpoint grob lnh Y))
(lx (+ pad (max (interval-end (ly:generic-bound-extent lnh
cmx))
(if dot
(interval-end
(ly:grob-robust-relative-extent dot cmx
X))
(- INFINITY-INT)))))
(rx (- (min (interval-start (ly:generic-bound-extent rnh cmx))
(if acc
(interval-start
(ly:grob-robust-relative-extent acc cmx X))
INFINITY-INT))
pad))
(dx (- rx lx))
(sx (ly:grob-relative-coordinate grob cmx X)))
(ly:make-stencil
(list 'path th
`(quote
(rmoveto ,(- lx sx) ,(/ lsp 2)
rcurveto ,(/ dx 3) 0 ,dx ,(* dy 2/3) ,dx ,dy)))
(cons (- lx sx) (- rx sx))
(cons (+ (/ lsp 2) (min 0 dy)) (+ 0.5 (max 0 dy))))))
bendGlissando =
\tweak thickness #2
\tweak stencil #bend-glissando-print
\glissando
{ c''2. \bendGlissando
\once \override NoteColumn.glissando-skip = ##t
e'4 gis'1 }
%%%%
-- Aaron Hill
