* lily/ various: Introduce stream events of types Prepare,

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

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index fbf458a7a44767745599ac5f02c3b00e6cc42ce8..786a37ca177deb434518e3b5e2d650053dba97bd 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -250,6 +250,16 @@
                (map offset->point (ly:list->offsets '() coords))))
    ))
 
+;; rotate around given point
+(define (setrotation ang x y)
+  (format "<g transform=\"rotate(~a,~a,~a)\">"
+    (number->string (* -1 ang))
+    (number->string x)
+    (number->string (* -1 y))))
+
+(define (resetrotation ang x y)
+  "</g>")
+
 (define (round-filled-box breapth width depth height blot-diameter)
   (entity 'rect ""
          ;; The stroke will stick out.  To use stroke,