On Dec 20, 2011, at 12:21 AM, Keith OHara wrote: > Caio Barros <caio.barros <at> gmail.com> writes: >>> We have a snippet http://lsr.dsi.unimi.it/LSR/Item?id=505 >> Thanks. It is close indeed. > > You might want to omit the extra splayed stem. The chord is > still ugly, but draws less attention to its ugliness. > > \relative g''' { < ges! g! \tweak #'X-offset #1.2 a>4 e d c } >
w00t ! #(define note-head-shift 2) #(define (positioning-done grob) (let ((nh (ly:grob-array->list (ly:grob-object grob 'note-heads)))) (for-each (lambda (x y) (ly:grob-translate-axis! x (* note-head-shift y) X)) nh (iota (length nh)))) 0.0) #(define (stencil grob) (let* ((pc (ly:grob-parent (ly:grob-parent grob X) X)) (dir (ly:grob-property grob 'direction)) (half-space (* 0.5 (ly:staff-symbol-staff-space grob))) (y1 (* half-space (ly:stem::calc-stem-begin-position grob))) (y2 (* half-space (ly:stem::calc-stem-end-position grob))) (nh (ly:grob-array->list (ly:grob-object grob 'note-heads))) (x (ly:grob-relative-coordinate (car nh) pc X)) (thick (* (ly:grob-property grob 'thickness) (ly:staff-symbol-line-thickness grob)))) (apply ly:stencil-add (map (lambda (nh) (let ((my-x (car (ly:grob-extent nh pc X)))) (make-line-stencil thick x y2 my-x y1))) nh)))) \relative c' { \override Stem #'positioning-done = #positioning-done \override Stem #'stencil = #stencil <d d d> <d d d d d> <d d d> <d d d d d d d> } \relative c'' { \override Stem #'positioning-done = #positioning-done \override Stem #'stencil = #stencil <d d d> <d d d d d> <d d d> <d d d d d d d> } Cheers, MS _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user