Remove tweakz shader

This commit is contained in:
2023-03-23 00:27:09 +00:00
parent 6860d2c8bf
commit db53a1ffb2
4 changed files with 12 additions and 26 deletions
-7
View File
@@ -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