Change Info docs setup and clean up Documentation/user/GNUmakefile

[lilypond.git] / scm / fret-diagrams.scm

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 5f69f817de3a8c8a83358c8d7301ac1613c13663..2fe8f33605d36e3a1ca28cc0d8dedaf1eb5204de 100644 (file)
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2004--2006 Carl D. Sorensen <c_sorensen@byu.edu>
+;;;; (c) 2004--2007 Carl D. Sorensen <c_sorensen@byu.edu>
 
 (define (fret-parse-marking-list marking-list fret-count)
    (let* ((fret-range (list 1 fret-count))
@@ -397,10 +397,10 @@ Line thickness is given by @var{th}, fret & string spacing by
           (fret-count (+ (- (cadr fret-range) (car fret-range)) 1))
            (label-text 
               (cond
-              ((equal?   number-type  'roman-lower) (format #f "~(~:@r~)" base-fret))
-              ((equal?  number-type 'roman-upper) (format #f "~:@r" base-fret))
-              ((equal? 'arabic number-type)  (format #f "~d" base-fret))
-              (else (format #f  "~(~:@r~)" base-fret)))))
+              ((equal?   number-type  'roman-lower) (fancy-format #f "~(~:@r~)" base-fret))
+              ((equal?  number-type 'roman-upper) (fancy-format #f "~:@r" base-fret))
+              ((equal? 'arabic number-type)  (fancy-format #f "~d" base-fret))
+              (else (fancy-format #f  "~(~:@r~)" base-fret)))))
        (if (eq? orientation 'normal)
            (ly:stencil-translate-axis
                (sans-serif-stencil layout props (* size label-font-mag) label-text)