[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
}
}