Implement color for quadratic bezier curves

2021-03-12 19:10:14 +01:00
parent 4ed72e263b
commit 918f7d23b8
8 changed files with 38 additions and 14 deletions
@@ -22,7 +22,7 @@ import Data.Traversable

 data RenderType
    = RenderPoly [(Point3,Point4)]
-    | RenderBezQ [(Point3,Point4)]
+    | RenderBezQ [(Point3,Point4,Float)]
    | 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]
+    | BezierQuad Int [(Point2,RGBA,Float)]
    | PolygonCol Int [(Point2,RGBA)]
    | Circle Int RGBA RGBA Float
    | ThickArc Int Float Float Float Float