[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Marc Hohl
Subject: Re: Issue 1320: Rewriting bar-line::print
Date: Tue, 20 Mar 2012 10:46:16 +0100
User-agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv: Gecko/20120216 Thunderbird/3.1.19

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/ 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,

\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/


reply via email to

[Prev in Thread] Current Thread [Next in Thread]