Hi,

In the following code, I want to rotate custom note head. To my suprise, this 
code makes the whole page rotated if there is a line break. What I'm I doing 
wrong?

#(define nhg
(lambda (grob)
  (if
    (= 2
      (ly:grob-property grob 'duration-log))
    (begin
      (let*
        ((stem
            (ly:grob-object grob 'stem))
          (stem-dir
            (ly:grob-property stem 'direction))
          (rot
            (if
              (= stem-dir 1) 0 180)))
        (ly:grob-set-property! grob 'stencil
          (grob-interpret-markup grob
            (markup #:rotate rot #:musicglyph "noteheads.u2doThin"))))))))

\layout {
  \context {
    \Staff
    \override NoteHead.stencil = #nhg
  }
}

{
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
  c''4 c''4 c''4 c''4
}




_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to