First implementation of quadratic bezier curve shader

src/Picture.hs

@@ -4,6 +4,7 @@ module Picture
     ( module Picture.Data
     , polygon
     , polygonCol
+    , bezierQuad
     , arc
     , arcSolid
     , thickArc
@@ -68,6 +69,9 @@ polygonCol :: [(Point2,RGBA)] -> Picture
 {-# INLINE polygonCol #-}
 polygonCol = PolygonCol 0
 
+bezierQuad :: Point2 -> Point2 -> Point2 -> Picture
+bezierQuad a b c = BezierQuad 0 [a,b,c]
+
 color :: RGBA -> Picture -> Picture
 {-# INLINE color #-}
 color c pic = OverPic id id 0 (const c) pic