Refactor text rendering

2021-06-23 01:35:38 +02:00
parent 39218ed3b5
commit 899c1c5f6e
13 changed files with 48 additions and 56 deletions
@@ -16,7 +16,7 @@ import Geometry.Data
 data RenderType
    = RenderPoly [(Point3,Point4)]
    | RenderBezQ [(Point3,Point4,Point4)]
-    | RenderText [(Point3,Point4,Point3)]
+    | RenderText [(Point3,Point4,Point2)]
    | RenderArc  (Point3,Point4,Point4)
    | RenderLine [(Point3,Point4)]
    | RenderEllipse [(Point3,Point4)]