* input/regression/breathing-sign.ly: tiny fixes

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

diff --git a/scm/output-sodipodi.scm b/scm/output-sodipodi.scm
index 23afde99a610b4418cc6377c21a65910a1be3275..a14102659708d4e0add46c0198bc168fe0324120 100644 (file)
--- a/scm/output-sodipodi.scm
+++ b/scm/output-sodipodi.scm
@@ -258,7 +258,7 @@
 ;  (draw-line th x1  0 x2 0))
 
 (define (filledbox breapth width depth height)
-  (roundfilledbox breapth width depth height line-thickness))
+  (round-filled-box breapth width depth height line-thickness))
 
 (define font-cruft
   "fill:black;stroke:none;text-anchor:start;writing-mode:lr;font-weight:normal;")
@@ -333,7 +333,7 @@
                        (number->string (- 0 (* output-scale y)))
                        ")"))))
 
-(define (roundfilledbox breapth width depth height blot-diameter)
+(define (round-filled-box breapth width depth height blot-diameter)
   (tagify "rect" ""
          ;;'(style . "fill:#000000;fill-opacity:1;fill-rule:evenodd;stroke:none;stroke-opacity:1;stroke-width:1pt;stroke-linejoin:miter;stroke-linecap:butt;")
            `(style . ,(format "fill:#000000;fill-opacity:1;fill-rule:evenodd;stroke:#000000;stroke-opacity:1;stroke-width:~f;stroke-linejoin:miter;stroke-linecap:butt;" line-thickness))