Fix 884.

[lilypond.git] / scm / output-svg.scm

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 7d7a6b343717a07b987642dbe7a359fa0c19fdf7..57c5e733a0b63cd9e8e6b0dd0459cd925280b26b 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -1,9 +1,20 @@
-;;;; output-svg.scm -- implement Scheme output routines for SVG
+;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;;  source file of the GNU LilyPond music typesetter
-;;;;
-;;;; (c) 2002--2009 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2002--2010 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                Patrick McCarty <pnorcks@gmail.com>
+;;;;
+;;;; LilyPond is free software: you can redistribute it and/or modify
+;;;; it under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation, either version 3 of the License, or
+;;;; (at your option) any later version.
+;;;;
+;;;; LilyPond is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (scm output-svg))
 (define this-module (current-module))
@@ -255,7 +266,7 @@
        (extract-glyph all-glyphs glyph size))))
 
 
-(define (feta-alphabet-to-path font size glyph)
+(define (music-string-to-path font size glyph)
   (let* ((name-style (font-name-style font))
         (scaled-size (/ size lily-unit-length))
         (font-file (ly:find-file (string-append name-style ".svg"))))
@@ -344,13 +355,13 @@
 (define (glyph-string font size cid glyphs)
   (define path "")
   (if (= 1 (length glyphs))
-      (set! path (feta-alphabet-to-path font size (car glyphs)))
+      (set! path (music-string-to-path font size (car glyphs)))
       (begin
        (set! path
              (string-append (eo 'g)
                             (string-join
                               (map (lambda (x)
-                                     (feta-alphabet-to-path font size x))
+                                     (music-string-to-path font size x))
                                    glyphs)
                               "\n")
                             (ec 'g)))))