Partially working ellipse shader

2021-03-10 03:29:10 +01:00
parent bfbd0b6fef
commit cddf7d1f8f
12 changed files with 229 additions and 172 deletions
@@ -61,6 +61,7 @@ data RenderType
    | RenderCirc (Point3,Point4,Float)
    | RenderArc  (Point3,Point4,Point4)
    | RenderLine [(Point3,Point4)]
+    | RenderEllipse [(Point3,Point4,Float)]

 data Picture
    = Blank
@@ -68,6 +69,7 @@ data Picture
    | Polygon Int [Point2]
    | PolygonCol Int [(Point2,RGBA)]
    | Circle Int Float
+    | Ellipse Int Point2 Point2 Float
    | ThickArc Int Float Float Float Float
    | Line Int [Point2]
    | LineCol Int [(Point2,RGBA)]