[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/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
Re: Issue 1320: Rewriting bar-line::print, David Kastrup, 2012/03/20