Remove dedicated line shader

2021-07-22 14:59:06 +02:00
parent f044593c24
commit b4d89b16fa
3 changed files with 2 additions and 28 deletions
@@ -21,10 +21,8 @@ data RenderType
    | RenderBezQ  [(Point3,Point4,Point4)]
    | RenderText  [(Point3,Point4,Point2)]
    | RenderArc   [(Point3,Point4,Point3)]
-    | RenderLine  [(Point3,Point4)]
    | RenderEllipse [(Point3,Point4)]
    | Render3 [Point3]
-    | RenderConst
    | Render1111 {_unRender1111 :: (Float,Float,Float,Float)}
    | Render22 {_unRender22 :: (Point2,Point2)}
    | Render2221 {_unRender2221 :: (Point2,Point2,Point2,Float)}
@@ -99,8 +97,6 @@ data Picture
    | Poly3D [(Point3,RGBA)]
    | Circle RGBA RGBA Float
    | ThickArc Float Float Float Float
-    | Line [Point2]
-    | LineCol [(Point2,RGBA)]
    | Pictures [Picture]
    | OverPic (Point3 -> Point3) (Point4 -> Point4) Picture
    | OnLayer Int Picture