[Lilypond-auto] Issue 2841 in lilypond: Augmentation dot Y position on merged note heads

[lilypond]

Status: Accepted
Owner: ----
Labels: Type-Ugly

New issue 2841 by address@hidden: Augmentation dot Y position on  
merged note heads
http://code.google.com/p/lilypond/issues/detail?id=2841

Arnold Wendl reported here
http://lists.gnu.org/archive/html/bug-lilypond/2012-09/msg00100.html

as follows:

> Old bug, no existing issue found.
> Output is not the standard (e.g. compared with Beethoven score 'Musik zu  
> einem
> Ritterballett', WoO 1, Henle Verlag)

Error description:
The augmentation dot for merged note heads on a staff line
should be above the staff line by default,
but in all tested version 2.12.3, 2.14.2, 2.16.0 it is below.

Example:
{ << { d''2. } \\ { d''2. } >> }


As workaround I could define the following override - but I may run into
problems with ties (old issue 590 ?):

#(define (dots-staff-std-pos grob)
  (let*
   ((head (ly:grob-parent grob Y))
    ; (log (ly:grob-property head 'duration-log))
    (ypos (+ 0.75 (ly:grob-property head 'Y-offset)))
    (erg (* 2 (- ypos 0.25 (floor ypos))))
   )
   ; (for-each display (list "\n Y-offset = " ypos " --> erg = " erg " "))
   erg))

D = \once \override Dots #'staff-position = #dots-staff-std-pos

{
  << d''2. \\ \D d''2. >> r4                       % good
  << { d''4. ~ d'' } \\ { \D d''4. ~ \D d'' } >>   % collision of
                                 % augmentation dot and upper tie
}



ArnoldTheresius