Partial fix of inventory rendering

2021-07-23 12:48:40 +02:00
parent b4d89b16fa
commit e453065afe
7 changed files with 79 additions and 14 deletions
@@ -46,9 +46,9 @@ fixedCoordPictures w = case _menuLayers w of

 customMouseCursor :: World -> Picture
 customMouseCursor w = 
-    setDepth (-1)
-    . scale (2 /getWindowX w) (2/ getWindowY w) 
+    scale (2 /getWindowX w) (2/ getWindowY w) 
    . uncurry translate (_mousePos w)
+    . color white
    $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]

 testPic :: World -> [Picture]