Commit before attempting to remove bottom and mid picture layers

2024-10-01 00:16:46 +01:00
parent c2214dae60
commit c3d112e52e
8 changed files with 28 additions and 14 deletions
@@ -6,7 +6,7 @@ textGrad :: Color -> Color -> String -> Picture
 {-# INLINE textGrad #-}
 textGrad topc botc = map f . stringToListGrad topc botc
  where
-    f (pos, col, V2 a b) = Verx pos col [a, b] BottomLayer TextShad
+    f (pos, col, V2 a b) = Verx pos col [a, b] minBound TextShad

 -- no premature optimisation, consider changing to use texture arrays
 stringToListGrad :: Color -> Color -> String -> [(Point3, Point4, Point2)]