Add completed circle shader, add incomplete arc shader

2021-02-19 13:54:40 +01:00
parent f6efe98181
commit defc8da088
9 changed files with 184 additions and 27 deletions
@@ -46,6 +46,7 @@ data Picture
    | Polygon [Point2]
    | PolygonCol [(Point2,RGBA)]
    | Circle Float
+    | ThickArc Float Float Float Float
    | Scale Float Float Picture
    | Translate Float Float Picture
    | Rotate Float Picture