First implementation of quadratic bezier curve shader

src/Picture/Data.hs

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