Remove polymorphism of shader type

2021-06-11 19:41:17 +02:00
parent 0e0d8f4e99
commit 7b6521587d
6 changed files with 61 additions and 52 deletions
@@ -20,6 +20,11 @@ data RenderType
    | RenderArc  (Point3,Point4,Point4)
    | RenderLine [(Point3,Point4)]
    | RenderEllipse [(Point3,Point4)]
+    | RenderConst
+    | Render1111 {_unRender1111 :: (Float,Float,Float,Float)}
+    | Render22 {_unRender22 :: (Point2,Point2)}
+    | Render22x4 {_unRender22x4 :: ((Point2,Point2),Point4)}
+    | Render3x2 {_unRender3x2 :: (Point3,Point2)}

 type RGBA = (Float,Float,Float,Float)
 type Color = (Float,Float,Float,Float)