bug-lilypond
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: whole page rotated


From: Karol Majewski
Subject: Re: whole page rotated
Date: Tue, 04 Mar 2014 21:45:18 +0100

Hi Harm,

this is nice workaround, indeed.

But how can I modify it to have different glyph for each duration-log? The 
original code was:

#(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"))))))
  (if
    (= 1
      (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.u1doThin"))))))))

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






reply via email to

[Prev in Thread] Current Thread [Next in Thread]