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

[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?

-- 
David Kastrup