From: Han-Wen Nienhuys Date: Wed, 20 Dec 2006 14:12:47 +0000 (+0100) Subject: remove debugging gobs. X-Git-Tag: release/2.11.4-1~1 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=763d936b0b9e93244fe34bd2a0354ea03657339f;p=lilypond.git remove debugging gobs. --- diff --git a/scm/output-lib.scm b/scm/output-lib.scm index f15fb8ca25..37f965d94f 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -422,8 +422,6 @@ centered, X==1 is at the right, X == -1 is at the left." (interval-end (ly:grob-robust-relative-extent dots common X)) -10000) ;; TODO: use real infinity constant. ))) - (x (display (grob::has-interface left-span 'note-head-interface))) - (right-x (- (interval-start (ly:grob-robust-relative-extent right-span common X)) padding)) @@ -439,10 +437,8 @@ centered, X==1 is at the right, X == -1 is at the left." 0 ,dx ,(* 0.66 delta-y) ,dx ,delta-y - )))) - ) + ))))) - (display left-span) (ly:make-stencil exp (cons (- left-x self-x) (- right-x self-x))