Re: How to catch extent of AccidentalPlacement?

[David Nalesnik]

Hi Harm,


On Sun, Mar 16, 2014 at 7:06 AM, Thomas Morley <address@hidden>wrote:

> 2014-03-12 1:27 GMT+01:00 Thomas Morley <address@hidden>:
> > Hi,
> >
> > for some function I need to know the extent/length of the
> AccidentalPlacement.
> >
> > With 2.16.2 I used to do something like:
> >
> > info =
> > \override Staff.AccidentalPlacement #'after-line-breaking =
> >  #(lambda (grob)
> >    (display (interval-length (ly:grob-extent grob grob X)))
> >    (newline))
> >
> > \relative c' {
> >     \info
> >     <c d>
> >     <cis d>1
> >     <cis dis>
> >     <cis dis eis>
> >     <cis dis eis fis>
> >     <cis dis eis fis gis>
> > }
> >
> > and got different values.
> >
> > With 2.18.0 and 2.19.1 it always returns the same: 1.1
> > Looks like a bug to me.
> > How to do it different?
> >
> > Cheers,
> >   Harm
>
> Noone with an idea?


Forgive the late reply...

What about something like this?

\version "2.19.3"


info =

\override Staff.AccidentalPlacement #'after-line-breaking =

#(lambda (grob)

  (let* ((accs (map cadr (ly:grob-object grob 'accidental-grobs)))

          (sys (ly:grob-system grob))

          (X-exts (map (lambda (x) (ly:grob-extent x sys X)) accs))

          (un (reduce interval-union '() X-exts)))

    (display (interval-length un))

    (newline)))


\relative c' {

  \info

  <c d>

  <cis d>1

  <cis dis>

  <cis dis eis>

  <cis dis eis fis>

  <cis dis eis fis gis>

}


--David