From a136f2d05873165c327d32ccf064a08432aba6f7 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Thu, 11 Mar 2010 20:56:08 +0000
Subject: SVG arc patch

---
diff --git a/tacanvas.py b/tacanvas.py
index 3225491..7398008 100644
--- a/tacanvas.py
+++ b/tacanvas.py
@@ -176,6 +176,9 @@ class TurtleGraphics:
         if r < 0:
             r = -r
             a = -a
+            s = 0
+        else:
+            s = 1
         oldx, oldy = self.xcor, self.ycor
         cx = self.xcor + r*cos(self.heading*DEGTOR)
         cy = self.ycor - r*sin(self.heading*DEGTOR)
@@ -197,7 +200,7 @@ class TurtleGraphics:
             self.tw.svg_string += self.svg.new_path(oldx, self.height/2-oldy)
             self.tw.svg_string += self.svg.arc_to(self.xcor,
                                                   self.height/2-self.ycor, r, a,
-                                                  0, 1)
+                                                  0, s)
             self.tw.svg_string += "\"\n"
             self.tw.svg_string += self.svg.style()
 
@@ -205,6 +208,9 @@ class TurtleGraphics:
         if r < 0:
             r = -r
             a = -a
+            s = 1
+        else:
+            s = 0
         oldx, oldy = self.xcor, self.ycor
         cx = self.xcor - r*cos(self.heading*DEGTOR)
         cy = self.ycor + r*sin(self.heading*DEGTOR)
@@ -226,7 +232,7 @@ class TurtleGraphics:
             self.tw.svg_string += self.svg.new_path(oldx, self.height/2-oldy)
             self.tw.svg_string += self.svg.arc_to(self.xcor,
                                                   self.height/2-self.ycor, r, a,
-                                                  0, 0)
+                                                  0, s)
             self.tw.svg_string += "\"\n"
             self.tw.svg_string += self.svg.style()
 
--
cgit v0.9.1