Commit AFTER playing around with poking/vector sizing a little

src/Picture/Data.hs

@@ -29,6 +29,7 @@ data Layer
     deriving (Eq, Ord, Enum, Bounded, Show, Read) --Generic, Flat)
 
 numLayers :: Int
+{-# INLINE numLayers #-}
 numLayers = length [minBound :: Layer .. maxBound]
 
 data ShadNum
@@ -39,6 +40,7 @@ data ShadNum
     deriving (Eq, Ord, Enum, Bounded, Show, Read) --Generic, Flat)
 
 numShads :: Int
+{-# INLINE numShads #-}
 numShads = length [minBound :: ShadNum .. maxBound]
 
 type Picture = [Verx]