Cleanup

2024-09-30 21:32:51 +01:00
parent 74b518e10b
commit 48b8cfe7ef
9 changed files with 28 additions and 53 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 textNum
+    f (pos, col, V2 a b) = Verx pos col [a, b] BottomLayer TextShad

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