X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-svg.scm;h=57c5e733a0b63cd9e8e6b0dd0459cd925280b26b;hb=436440663fe93a8bb94776a3363376ee5c7c57af;hp=7d7a6b343717a07b987642dbe7a359fa0c19fdf7;hpb=b3f0c2f6c352a850f03dc44a947776199eb3fa0b;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 7d7a6b3437..57c5e733a0 100644
--- 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)))))