Re: Code pointer from end-BarLine to previous NoteHead.?

[Jean Abou Samra]

Le 17/07/2022 à 01:25, Thomas Morley a écrit :
> Thanks for your explanations, right now I had only a quick glance over 
> them.
> I'll hopefully have some time soon to dive into it...
> Nevertheless, before I posted the problem I searched for an
> 'original'-BarLine-grob, as we have for broken spanners.
> For (maybe broken) spanners I sometimes switch to that
> 'original'-grob, would it improve the situation if we had some
> 'original' for items as well?



D'oh, why didn't think about that? It does solve the problem too
(and more elegantly):


\version "2.23.11"

tst =
#(lambda (ctx)
  (let ((nhd #f)
        (previous-nhd #f)
        (bar #f))
  (make-engraver
    (acknowledgers
      ((bar-line-interface engraver grob source-engraver)
        (set! bar grob))
      ((note-head-interface engraver grob source-engraver)
        (set! nhd grob)))
    ((stop-translation-timestep engraver)
     (when (and bar previous-nhd)
       ;; for debugging
       (ly:grob-set-property! previous-nhd 'color red)
       (ly:grob-set-object! bar 'element previous-nhd)
       (set! (ly:grob-property bar 'details)
             (acons 'previous-note-head
                    previous-nhd
                    (ly:grob-property bar 'details))))
       (when nhd
       ;; Move the next line out of (when ...) if you only want the
       ;; note head from the time step right before, and not the last
       ;; note head seen before the bar line.
       (set! previous-nhd nhd)
       (set! nhd #f))
     (set! bar #f)))))

moveBarLineToPrevHead = {
  \override Staff.BarLine.Y-offset =
    #(lambda (grob)
      (let* ((prev-head (ly:grob-object (ly:grob-original grob)
                                        'element
                                        #f))
             (staff-pos (and prev-head (ly:grob-property prev-head 
'staff-position))))
       (/ (or staff-pos 0) 2)))
}

\layout {
  \context {
      \Staff
      \consists \tst
      \moveBarLineToPrevHead
  }
}

\new Staff { s4 s \bar "." b s c' d' e' f' g' a' b' c'' \bar "|." }



Not sure why it didn't work when you tried?



Jean