From: Patrick McCarty <pnorcks@gmail.com>
Date: Tue, 14 Jul 2009 04:27:59 +0000 (-0700)
Subject: Add a new stencil expression: embedded-svg
X-Git-Tag: release/2.13.4-1~350
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a5ff1c9ccdb83bd120edf2035532f47f578dc331;p=lilypond.git

Add a new stencil expression: embedded-svg

* This can only be used with the SVG backend.
---

diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 2e816ccaa2..b2b2f92d68 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -19,6 +19,7 @@
        draw-line
        ellipse
        embedded-ps
+       embedded-svg
        glyph-string
        named-glyph
        oval
diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index c08fc1a5d5..bc27ed6d7a 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -378,7 +378,8 @@
 (define (utf-8-string pango-font-description string)
   (dispatch `(fontify ,pango-font-description ,(entity 'tspan string))))
 
-
+(define (embedded-svg string)
+  string)
 
 (define (setcolor r g b)
   (format "<g color=\"rgb(~a%,~a%,~a%)\">\n"