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

[David Kastrup]

Marc Hohl <address@hidden> writes:

> 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)

I stand corrected.

-- 
David Kastrup