On 10/04/12 06:56, Paul Morris wrote:
Thomas Morley wrote:
Am 9. April 2012 03:25 schrieb Paul Morris <address@hidden>:
Hello, Is there a way to manually move some of the notes in a chord to the
opposite side of the stem, overriding the default placement?
I have looked through the docs and did not find a simple way to do this (the
NoteColumn #'force-hshift property only works with notes in different
voices, and trying to \override NoteHead #'X-offset within a chord just
returned an error). The best thing I came up with was this snippet:
http://lsr.dsi.unimi.it/LSR/Item?id=505
Following its example I was able to get the results I needed by doing this:
shiftR = {
\once \override Stem #'X-offset = #.6
\once \override NoteHead #'X-offset = #.6
}
<c' e' g' >4
<< { <c' e'> } \\ { \voiceThree \shiftR g' } >>
<d' f' a'>
<< { d' } \\ { \voiceThree \shiftR < f' a'> } >>
See attached screenshot. But it seems like there should be a way to do this
without having to introduce another voice?
Use a tweak.
Perhaps:
\version "2.14.2"
horOff =
#(define-music-function (parser location x-off music) (number? ly:music?)
(set! (ly:music-property music 'tweaks)
(acons 'extra-offset (cons x-off 0)
(ly:music-property music 'tweaks)))
music)
%shiftR = {
% \once \override Stem #'X-offset = #.6
% \once \override NoteHead #'X-offset = #.6
%}
{
<c' e' \horOff #1.2 g' >4
%<< { <c' e'> } \\ { \voiceThree \shiftR g' } >>
<d' \horOff #1.2 f' \horOff #1.2 a'>
%<< { d' } \\ { \voiceThree \shiftR < f' a'> } >>
}
HTH,
Harm
Thank you! This works, but unfortunately (like the Hydra's heads)
it introduces two other problems, one with horizontal spacing
collisions and one with ledger lines.
1. Because the spacing engine does not take into account this
low-level tweak, the tweaked notes sometimes collide with
bar/measure lines and sometimes with other adjacent notes. Is
there a way to use Scheme to also increase the
horizontal space given to the chord? (I am still a beginner at
Scheme.)
Can't help with the second problem, but for the first you could add
additional horizontal space to either the barline or stem to
increase their separation:
\version "2.15.36"
barspace = #(define-music-function (parser location extent) (pair?)
#{
\once \override Staff.BarLine #'extra-spacing-width = #extent
#})
stemspace = #(define-music-function (parser location extent) (pair?)
#{
\once \override Staff.Stem #'X-extent = #extent
#})
\relative c'' {
c2 c c c \barspace #'(0 . 2)
c c
\stemspace #'(-2 . 0) c c
}