General cleanup

src/Picture/Base.hs

@@ -221,7 +221,7 @@ drawText :: Float -> String -> [Verx]
 {-# INLINE drawText #-}
 drawText gap = map f . stringToList gap
   where
-    f (pos, col, V3 a b c) = Verx pos col [a, b, c, 1] minBound TextShad
+    f (pos, col, V3 a b c) = Verx pos col [a, b, c] minBound TextShad
 
 line :: [Point2] -> Picture
 {-# INLINE line #-}

src/Picture/Data.hs

@@ -18,8 +18,6 @@ data Verx = Verx
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Layer
---    = BottomLayer
---    | MidLayer
     = BloomLayer
     | BloomNoZWrite
     | DebugLayer