Attempt to simplify text positioning

2023-05-05 02:37:18 +01:00
parent 031af611cd
commit 03c3d34ea1
4 changed files with 16 additions and 15 deletions
@@ -201,9 +201,12 @@ stackText = mconcat . zipWith (\y s -> translate 0 y $ centerText s) [0, 100 ..]

 text :: String -> Picture
 {-# INLINE text #-}
-text = translate (-50) (-100) . drawText (-10)
+--text = translate (-50) (-100) . drawText (-10)
+text = drawText 0
+--text = drawText (-10)

 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] BottomLayer textNum