lilypond-user
[Top][All Lists]
Advanced

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

Re: Tweaking notehead direction in chords


From: David Nalesnik
Subject: Re: Tweaking notehead direction in chords
Date: Wed, 12 Dec 2012 18:37:47 -0600

Hi Harm,

On Wed, Dec 12, 2012 at 6:24 PM, Thomas Morley
<address@hidden> wrote:
> 2012/12/11 Paul Morris <address@hidden>:
>> Below is a revised version
> [...]
>
> Hi Paul,
>
> I had a look at the LSR-snippet
> http://lsr.dsi.unimi.it/LSR/Item?id=861
>
> It's no problem to make it work with 2.14.2 just adding a $-sign
> before offsets in the music-function.
>
> But you will have noticed that after applying the function an
> additional override for 'stem-attachment is necessary in many cases.
> You should show how to do this. At least for some examples.
>
> In general I'd prefer to have a more automated way for offsetting the 
> NoteHeads.
> The hardcoded value of 1.251178 will change for different NoteHeads and 
> styles.
>

I saw that hardcoded value and wrote the following code which arrives
at 1.251178 (though that value uses only half the stem's extent).
Haven't tried it with other heads/styles.

#(define ((shift offsets) grob)
 (let* ((note-heads (ly:grob-array->list (ly:grob-object grob 'note-heads)))
        (stem (ly:grob-object grob 'stem))
        (stem-ext (ly:grob-property stem 'X-extent)))
   (for-each
     (lambda (p q)
       (let ((head-ext (interval-length (ly:grob-property p 'X-extent))))
         (ly:grob-translate-axis! p (* q (- head-ext (cdr stem-ext))) X)))
     note-heads offsets)))

displaceHeads =
#(define-music-function (parser location offsets) (list?)
 #{
   \once \override NoteColumn #'before-line-breaking = #(shift offsets)
 #}
)



reply via email to

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