Re: Cross staff stem spacing with proportional notation

[David Nalesnik]

On Mon, Mar 13, 2017 at 10:19 AM, David Nalesnik
<address@hidden> wrote:
> Hi again,
>
> On Mon, Mar 13, 2017 at 10:15 AM, David Kastrup <address@hidden> wrote:
>> David Nalesnik <address@hidden> 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)))

%%%%

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.

DN