Hi Victor,
On Fri, Jun 5, 2015 at 11:10 AM, Víctor <[email protected]> wrote:
> Hi David,
>
> I've been using your new function to center paper column of notes,
> however, under certain circumstances a bug appears.
> Thanks again for all the help, I hope this can be fixed without much
> trouble.
>
That's a problem with my "streamlining". The dotted quarter in this
measure should not be centered. (If you _do_ want it centered, even though
there are subdivisions of the beat in the other staves, you can't use my
functions at all. The paper column which includes the dotted quarter
includes notes attacked at the same time in the other staves.)
Anyway, attached is a variant of the original function I posted. I notice
your example is 2.19.15, but this will work with 2.18 as well.
Best,
David
\version "2.19.15"
#(define center-column
(lambda (col)
(let* ((sys (ly:grob-system col))
(all-cols
(ly:grob-array->list
(ly:grob-object sys 'columns)))
(measure-no
(car (ly:grob-property col 'rhythmic-location)))
; we need to find out if there is another
; PaperColumn in the measure. If there is,
; we make no adjustments.
(in-company?
; is there a column...
(any
(lambda (c)
(and
; which is NOT our column...
(not (eq? col c))
; which is a PaperColumn...
(not (eq? #t (ly:grob-property c 'non-musical)))
; which is in the same measure
(eq?
(car (ly:grob-property c 'rhythmic-location))
measure-no)))
all-cols))
(alone? (not in-company?))) ; :)
(if alone?
(let* ((left-col (ly:grob-object col 'left-neighbor))
(right-col (ly:grob-object col 'right-neighbor))
(elts-list
(ly:grob-array->list (ly:grob-object col 'elements)))
(note-cols
(filter
(lambda (elt)
(grob::has-interface elt 'note-column-interface))
elts-list))
(all-rests
(map (lambda (c)
(ly:grob-object c 'rest))
note-cols))
(all-rests (filter ly:grob? all-rests))
(all-notes
(map
(lambda (c)
(ly:grob-object c 'note-heads))
note-cols))
(all
(map (lambda (ga)
(if (ly:grob-array? ga)
(ly:grob-array->list ga)
'()))
all-notes))
(all (flatten-list all))
(all (append all all-rests))
(same-dur?
(every (lambda (o)
(equal?
(ly:grob-property o 'duration-log)
(ly:grob-property (car all)
'duration-log)))
all)))
(if same-dur?
(let* ((col-center (interval-center
(ly:grob-extent col sys X)))
(left-right-X
(cdr (ly:grob-extent left-col sys X)))
(right-left-X
(car (ly:grob-extent right-col sys X)))
(middle-X
(- (average left-right-X right-left-X)
col-center)))
(ly:grob-translate-axis! col middle-X X))))))))
centerSolitaryPaperColumn =
\override Score.PaperColumn.after-line-breaking = #center-column
\score {
<<
\new Staff {
\time 3/8
a8 a4~
a4.~
a4.
}
\new PianoStaff <<
\new Staff {
\repeat unfold 12 a16 a4.
}
\new Staff {
\repeat unfold 6 a8 a4.
}
>>
>>
}
\layout {
\centerSolitaryPaperColumn
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
