From: Mike Solomon <mike@apollinemike.com>
Date: Mon, 28 Jun 2010 09:07:00 +0000 (+0200)
Subject: Kill pretty prints in output-svg
X-Git-Tag: release/2.13.27-1~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d2273911eeb10b6ffc92bcf4a8c159400fc1b4f5;p=lilypond.git

Kill pretty prints in output-svg
---

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 9004694a05..2a98529e75 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -384,8 +384,7 @@
                 (* (* x-radius x-radius)
                    (* (sin angle) (sin angle)))))))
   (let*
-    ((dummy (format #t "INFO XR ~a YR ~a SA ~a EA ~a\n" x-radius y-radius start-angle end-angle))
-     (new-start-angle (* PI-OVER-180 (angle-0-360 start-angle)))
+    ((new-start-angle (* PI-OVER-180 (angle-0-360 start-angle)))
      (start-radius (make-ellipse-radius x-radius y-radius new-start-angle))
      (new-end-angle (* PI-OVER-180 (angle-0-360 end-angle)))
      (end-radius (make-ellipse-radius x-radius y-radius new-end-angle))
@@ -393,8 +392,7 @@
      (x-end (- (* end-radius (cos new-end-angle))
                (* start-radius (cos new-start-angle))))
      (y-end (- (* end-radius (sin new-end-angle))
-               (* start-radius (sin new-start-angle))))
-     (dummy (format #t "INFO NSA ~a SR ~a NEA ~a ER ~a\n" new-start-angle start-radius new-end-angle end-radius)))
+               (* start-radius (sin new-start-angle)))))
    (if (and (< (abs x-end) epsilon) (< (abs y-end) epsilon))
     (entity
       'ellipse ""