Tweak picture layers

src/Picture/Data.hs

@@ -4,7 +4,7 @@ module Picture.Data
     where
 import Geometry.Data
 
-import Data.Foldable
+--import Data.Foldable
 
 --import Data.Monoid
 --import Data.Traversable
@@ -82,16 +82,16 @@ flat4 (x,y,z,w) = [x,y,z,w]
 
 data Picture
     = Blank
-    | Text Int String
-    | Polygon Int [Point2]
-    | PolygonZ Int [Point2] Float
-    | BezierQuad Int [(Point2,RGBA,Point2,Point2)]
-    | PolygonCol Int [(Point2,RGBA)]
-    | Poly3D Int [(Point3,RGBA)]
-    | Circle Int RGBA RGBA Float
-    | ThickArc Int Float Float Float Float
-    | Line Int [Point2]
-    | LineCol Int [(Point2,RGBA)]
+    | Text String
+    | Polygon [Point2]
+    | PolygonZ [Point2] Float
+    | BezierQuad [(Point2,RGBA,Point2,Point2)]
+    | PolygonCol [(Point2,RGBA)]
+    | 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