On 10/04/12 06:56, Paul Morris wrote:
Thomas Morley wrote:Am 9. April 2012 03:25 schrieb Paul Morris<p...@paulwmorris.com>: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, HarmThank 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 }
<<attachment: test.png>>
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user