From 46d8a4a682be60f88f8422693ad7cf868460ba98 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Sun, 7 Mar 2010 12:04:16 -0800 Subject: [PATCH] SVG backend: rename "feta-alphabet-to-path" procedure. --- scm/output-svg.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scm/output-svg.scm b/scm/output-svg.scm index a5a108a964..57c5e733a0 100644 --- a/scm/output-svg.scm +++ b/scm/output-svg.scm @@ -266,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")))) @@ -355,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))))) -- 2.39.2