Color scroll lines in inventory display

2023-05-10 18:01:14 +01:00
parent 69fbf5926a
commit 312f342e09
4 changed files with 32 additions and 16 deletions
@@ -45,6 +45,7 @@ module Picture.Base (
    mirrorxz,
    overPos,
    picMap,
+    vMirrorText,
 ) where

 import Color
@@ -205,6 +206,10 @@ text :: String -> Picture
 text = drawText 0
 --text = drawText (-10)

+vMirrorText :: String -> Picture
+{-# INLINE vMirrorText #-}
+vMirrorText = translate 0 200 . scale 1 (-1) . text
+
 drawText :: Float -> String -> [Verx]
 {-# INLINE drawText #-}
 drawText gap = map f . stringToList gap