From 763d936b0b9e93244fe34bd2a0354ea03657339f Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 20 Dec 2006 15:12:47 +0100 Subject: [PATCH] remove debugging gobs. --- scm/output-lib.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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)) -- 2.39.2