X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-svg.scm;h=9b1b250f77857a631b525bd90fa282b796b6e178;hb=b60f26d395a56e7fbfa272c35cd2e77dccb98ee9;hp=238819552866dd420a54b5c0d1876444e87b2d8b;hpb=9158bc17904d4dd930a1f776cfe3226f1ad84092;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 2388195528..9b1b250f77 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -615,6 +615,9 @@
 (define (resetrotation ang x y)
   "</g>\n")
 
+(define (resetscale)
+  "</g>\n")
+
 (define (round-filled-box breapth width depth height blot-diameter)
   (entity
     'rect ""
@@ -642,6 +645,10 @@
   (ly:format "<g transform=\"rotate(~4f, ~4f, ~4f)\">\n"
 	     (- ang) x (- y)))
 
+(define (setscale x y)
+  (ly:format "<g transform=\"scale(~4f, ~4f)\">\n"
+	     x y))
+
 (define (text font string)
   (dispatch `(fontify ,font ,(entity 'tspan (string->entities string)))))