Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index ab6ec5a6e206c8dab060546119995f4bd26e449a..786a37ca177deb434518e3b5e2d650053dba97bd 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -232,10 +232,9 @@
 
 (define (placebox x y expr)
   (entity 'g
-         
-         ;; FIXME -- JCN
-         ;;(dispatch expr)
          expr
+         ;; FIXME: Not using GNU coding standards [translate ()] here
+         ;; to work around a bug in Microsoft Internet Explorer 6.0
          `(transform . ,(format #f "translate(~f, ~f)"
                                 x (- y)))))
 
@@ -251,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,