[Lilypond-auto] Issue 4320 in lilypond: markLengthOn fails, if MetronomeMark/RehearsalMark-direction is DOWN

[lilypond]

Status: Accepted
Owner: ----
Labels: Type-Defect

New issue 4320 by address@hidden: markLengthOn fails, if  
MetronomeMark/RehearsalMark-direction is DOWN
https://code.google.com/p/lilypond/issues/detail?id=4320

Thomas Morley wrote :

\markLengthOn returns wrong output for MetronomeMark and
RehearsalMark, while their direction is DOWN.

\version "2.19.16"

mus = {
  \repeat unfold 8 c''8
  \mark "RehearsalMark"
  \repeat unfold 8 c''8
  \tempo "MetronomeMark"
  \repeat unfold 8 c''8
}

{
  \markLengthOn
  \mus
  \break
  \override Score.RehearsalMark.direction = #DOWN
  \override Score.MetronomeMark.direction = #DOWN
  \mus
}

The values for 'extra-spacing-height should depend on the direction of
MetronomeMark and RehearsalMark.



A workaround might be something at the lines of:


#(define extra-spacing-height-from-direction
   (lambda (grob)
     (let ((dir (ly:grob-property grob 'direction)))
       (ly:grob-set-property! grob 'extra-spacing-height
          (cons (* dir 4)  (* dir 4))))))

markLengthOn = {
  \override Score.MetronomeMark.extra-spacing-width = #'(0 . 1.0)
  \override Score.RehearsalMark.extra-spacing-width = #'(-0.5 . 0.5)
  % Raise as much as four staff-spaces before pushing notecolumns right
  \override Score.MetronomeMark.before-line-breaking =
   #extra-spacing-height-from-direction
  \override Score.RehearsalMark.before-line-breaking =
   #extra-spacing-height-from-direction
}


--
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings