Allow for interpolating colors from center to edge of ellipses

2021-03-10 12:12:59 +01:00
parent 5a16086743
commit d3c8504d21
8 changed files with 128 additions and 78 deletions
@@ -68,8 +68,7 @@ data Picture
    | Text Int String
    | Polygon Int [Point2]
    | PolygonCol Int [(Point2,RGBA)]
-    | Circle Int Float
-    | Ellipse Int Point2 Point2 Float
+    | Circle Int RGBA RGBA Float
    | ThickArc Int Float Float Float Float
    | Line Int [Point2]
    | LineCol Int [(Point2,RGBA)]