From d2273911eeb10b6ffc92bcf4a8c159400fc1b4f5 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Mon, 28 Jun 2010 11:07:00 +0200 Subject: [PATCH] Kill pretty prints in output-svg --- scm/output-svg.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 "" -- 2.39.5