Re: Issue 1320: Rewriting bar-line::print

[Marc Hohl]

Am 20.03.2012 10:19, schrieb David Kastrup:
> Marc Hohl<address@hidden>  writes:
>
> > Hello list,
> >
> > I want to rewrite most if not all definitions currently settled in
> > lily/bar-line.cc in scheme.  Please see the attached file for my
> > progress so far; I don't get any error messages, but no bar lines either :-(
> >
> > Is this a feasible approach? What am I currently doing wrong?
> >
> > Thanks for any pointers,
> >
> > Marc
> > \version "2.15.34"
> >
> > #(define (bar-line::calc-bar-extent grob)
> >    (let ((staff-symbol (ly:grob-object grob 'staff-symbol))
> >           (staff-extent (cons 0 0)))
> >
> >         (if (ly:grob? staff-symbol)
> >             (let* ((bar-line-color (ly:grob-property grob 'color))
> >                    (staff-color (ly:grob-property staff-symbol 'color))
> >                    (radius (ly:staff-symbol-staff-radius grob))
> >                    (line-thickness (ly:staff-symbol-line-thickness grob)))
> >
> >                   (set! staff-extent (ly:staff-symbol::height staff-symbol))
> Shouldn't staff-extent be a cons/interval?
IIUC, ly:staff-symbol::height returns an interval
(according to the definition in lily/staff-symbol.cc)

Marc