[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: whole page rotated
From: |
Thomas Morley |
Subject: |
Re: whole page rotated |
Date: |
Tue, 4 Mar 2014 20:52:37 +0100 |
2014-03-04 20:05 GMT+01:00 Thomas Morley <address@hidden>:
> 2014-03-04 19:19 GMT+01:00 Karol Majewski <address@hidden>:
>> 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?
[...]
As a workaround you could use:
\version "2.18.2"
#(define nhg
(lambda (grob)
(let* ((stil (ly:note-head::print grob))
(dur-log (ly:grob-property grob 'duration-log))
(stem (ly:grob-object grob 'stem))
(stem-dir (ly:grob-property stem 'direction))
(new-note-head-stil
(grob-interpret-markup grob
(markup #:musicglyph "noteheads.u2doThin"))))
(if (= 2 dur-log)
(ly:stencil-scale new-note-head-stil 1 stem-dir)
stil))))
\layout {
\context {
\Voice
\override NoteHead.stencil = #nhg
}
}
{
\repeat unfold 64 c''4
}
Cheers,
Harm