Refactor arc drawing

2021-06-24 13:34:11 +02:00
parent 9f1b501388
commit 45194273e5
6 changed files with 36 additions and 24 deletions
@@ -17,7 +17,7 @@ data RenderType
    = RenderPoly [(Point3,Point4)]
    | RenderBezQ [(Point3,Point4,Point4)]
    | RenderText [(Point3,Point4,Point2)]
-    | RenderArc  (Point3,Point4,Point4)
+    | RenderArc  [(Point3,Point4,Point3)]
    | RenderLine [(Point3,Point4)]
    | RenderEllipse [(Point3,Point4)]
    | RenderConst