[Top][All Lists]

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

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

From: David Kastrup
Subject: Re: Issue 1320: Rewriting bar-line::print
Date: Tue, 20 Mar 2012 10:19:49 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.94 (gnu/linux)

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

reply via email to

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