Add picture shader container datatype

src/Picture.hs

@@ -55,8 +55,8 @@ import Geometry.Vector3D
 import Geometry.Data
 import Picture.Data
 
-import Data.List
-import Data.Bifunctor
+--import Data.List
+--import Data.Bifunctor
 --import qualified Data.DList as DL
 --import Graphics.Rendering.OpenGL (lineWidth, ($=))
 import Control.Lens
@@ -64,8 +64,8 @@ import Control.Lens
 black :: RGBA
 black = (0,0,0,1)
 
-zl :: RenderType -> [(Int,RenderType)]
-zl rt = [(0,rt)]
+--zl :: RenderType -> [(Int,RenderType)]
+--zl rt = [(0,rt)]
 
 polygon :: [Point2] -> Picture
 {-# INLINE polygon #-}
@@ -175,7 +175,7 @@ addDepth d = map $ overPos (\(x,y,z) -> (x,y,z+d))
 
 setLayer :: Int -> Picture -> Picture
 {-# INLINE setLayer #-}
-setLayer i = map $ f
+setLayer i = map f
   where
     f v = v {_vxLayer = i}