Marc Hohl <m...@hohlart.de> writes: > Am 20.03.2012 10:19, schrieb David Kastrup: >> Marc Hohl<m...@hohlart.de> 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 _______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel
