From fe1d64b08f28aa449f2731f3dc4313f759ff23fe Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Tue, 29 Jul 2008 21:31:21 +0100 Subject: [PATCH] Remove debug code. --- scm/define-markup-commands.scm | 2 -- 1 file changed, 2 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 1af92b3b7f..c04f8ee58b 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -2478,7 +2478,6 @@ and continue with double letters. (number->markletter-string number->mark-alphabet-vector num))) (define-public (horizontal-slash-interval num forward number-interval mag) - (ly:message "Mag step: ~a" mag) (if forward (cond ;((= num 6) (interval-widen number-interval (* mag 0.5))) ;((= num 5) (interval-widen number-interval (* mag 0.5))) @@ -2530,7 +2529,6 @@ and continue with double letters. ,(cdr num-x) ,(+ (interval-center num-y) dy)) num-x num-y) #f))) -(ly:message "Num: ~a, X-interval: ~a" num num-x) (if (ly:stencil? slash-stencil) (begin ; for some numbers we need to shift the slash/backslash up or down to make -- 2.39.2