* scripts/lilypond-invoke-editor.scm (dissect-uri): Handle URIs

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

diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 6a41b3f666d10accd71b7bcb7cdc3a4ab505d9cf..9ce20549a806fa854af0a2f89f37727b60869e4c 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 Carl D. Sorensen <c_sorensen@byu.edu>
+;;;; (c) 2004--2005 Carl D. Sorensen <c_sorensen@byu.edu>
 
 (define (fret-parse-marking-list marking-list fret-count)
    (let* ((fret-range (list 1 fret-count))
@@ -134,16 +134,6 @@ with magnification @varr{mag} of the string @var{text}."
                  (- size th) 0))) 
                  
 
-(define (centered-stencil stencil)
- "Center stencil @var{stencil} in both the X and Y directions"
- (let* ((output-stencil stencil))
-;     (if (= (cadr (ly:version)) 3)
-        (begin
-          (ly:stencil-align-to! output-stencil Y 0)
-          (ly:stencil-align-to! output-stencil X 0)
-          output-stencil)))
-;       (ly:stencil-align-to (ly:stencil-align-to text-stencil X 0) Y 0))))
-
 (define (draw-dots layout props string-count fret-range size finger-code dot-position dot-radius dot-list)
   "Make dots for fret diagram."
   (let* ((scale-dot-radius (* size dot-radius))
@@ -383,8 +373,8 @@ part of the place-fret element is present, @var{finger-value} will be displayed
              (set! fret-diagram-stencil
                    (ly:stencil-combine-at-edge fret-diagram-stencil X label-dir
                                               (label-fret layout props string-count fret-range size) label-space 0)))
-         (ly:stencil-align-to! fret-diagram-stencil X alignment)
-         fret-diagram-stencil))
+         (ly:stencil-aligned-to fret-diagram-stencil X alignment)
+        ))
          
 (def-markup-command (fret-diagram layout props definition-string)
   (string?)