On Mon, Mar 13, 2017 at 10:41 AM, David Nalesnik
<david.nales...@gmail.com> wrote:
> On Mon, Mar 13, 2017 at 10:19 AM, David Nalesnik
> <david.nales...@gmail.com> wrote:
>> Hi again,
>>
>> On Mon, Mar 13, 2017 at 10:15 AM, David Kastrup <d...@gnu.org> wrote:
>>> David Nalesnik <david.nales...@gmail.com> writes:
>>>
>>>> Oh, there's some extra code. I decided to use a flag to avoid
>>>> redundant calculations, but didn't follow through.
>
> Speaking of redundant calculations...
>
> %% Grob should be a NoteColumn object
> #(define (space-by-stems grob)
> (let* ((stem (ly:grob-object grob 'stem))
> (beam (ly:grob-object stem 'beam)))
> (if (eq? #t (ly:grob-property beam 'cross-staff))
> (let* ((stems (ly:grob-array->list (ly:grob-object beam 'stems)))
> (note-columns (map (lambda (s) (ly:grob-parent s X)) stems))
> ;; which NoteColumn am I?
> (me-nc (memq grob note-columns))
> (orig-stem-pos (ly:grob-relative-coordinate stem (car
> me-nc) X)))
> (- orig-stem-pos))
> 0.0)))
>
> %%%%
*Arghh!* Forgive me, but...
%% Grob should be a NoteColumn object
#(define (space-by-stems grob)
(let* ((stem (ly:grob-object grob 'stem))
(beam (ly:grob-object stem 'beam)))
(if (and (ly:grob? beam)
(eq? #t (ly:grob-property beam 'cross-staff)))
(let* ((stems (ly:grob-array->list (ly:grob-object beam 'stems)))
(orig-stem-pos (ly:grob-relative-coordinate stem grob X)))
(- orig-stem-pos))
0.0)))
>
> Let me know if you run into issues with a large score. Could indicate
> that I need to do some checking if objects exist -- of which there is
> currently none.
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
