Remove tweakz shader

src/Picture/Base.hs

@@ -8,7 +8,6 @@ module Picture.Base (
     blank,
     polygon,
     polygonWire,
-    polygonZ,
     polygonCol,
     poly3,
     poly3Col,
@@ -73,12 +72,6 @@ polygon = map f . polyToTris
   where
     f (V2 x y) = Verx (V3 x y 0) black [] BottomLayer polyNum
 
-polygonZ :: [Point2] -> Float -> Picture
-{-# INLINE polygonZ #-}
-polygonZ ps z = map (f . zeroZ) $ polyToTris ps
-  where
-    f pos = Verx pos black [z] BottomLayer polyzNum
-
 polygonCol :: [(Point2, RGBA)] -> Picture
 {-# INLINE polygonCol #-}
 polygonCol = polyToTris . map f

src/Picture/Data.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
@@ -36,7 +36,6 @@ numLayers = length [minBound :: Layer .. maxBound]
 
 data ShadNum
     = PolyShad
-    | PolyzShad
     | BezShad
     | TextShad
     | ArcShad
@@ -52,19 +51,17 @@ _unShadNum = fromEnum
 toShadNum :: Int -> ShadNum
 toShadNum = toEnum
 
-polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
+polyNum, bezNum, textNum, arcNum, ellNum :: ShadNum
 {-# INLINE polyNum #-}
-{-# INLINE polyzNum #-}
 {-# INLINE bezNum #-}
 {-# INLINE textNum #-}
 {-# INLINE arcNum #-}
 {-# INLINE ellNum #-}
 polyNum = toShadNum 0
-polyzNum = toShadNum 1
-bezNum = toShadNum 2
-textNum = toShadNum 3
-arcNum = toShadNum 4
-ellNum = toShadNum 5
+bezNum = toShadNum 1
+textNum = toShadNum 2
+arcNum = toShadNum 3
+ellNum = toShadNum 4
 
 type Picture = [Verx]