Render bezier curves using distance fields

2021-03-14 00:13:29 +01:00
parent 3aefb8319d
commit b0c8c10658
6 changed files with 51 additions and 37 deletions
@@ -22,7 +22,7 @@ import Data.Traversable

 data RenderType
    = RenderPoly [(Point3,Point4)]
-    | RenderBezQ [(Point3,Point4,Point3)]
+    | RenderBezQ [(Point3,Point4,Point4)]
    | RenderText [(Point3,Point4,Point3)]
    | RenderArc  (Point3,Point4,Point4)
    | RenderLine [(Point3,Point4)]
@@ -75,7 +75,7 @@ data Picture
    = Blank
    | Text Int String
    | Polygon Int [Point2]
-    | BezierQuad Int [(Point2,RGBA,Point2,Float)]
+    | BezierQuad Int [(Point2,RGBA,Point2,Point2)]
    | PolygonCol Int [(Point2,RGBA)]
    | Circle Int RGBA RGBA Float
    | ThickArc Int Float Float Float Float