Reimplement floor item label cursors

2021-03-08 01:56:47 +01:00
parent 79b6a4fc32
commit b547df9547
2 changed files with 30 additions and 105 deletions
@@ -51,9 +51,7 @@ main = do
        doPreload
        cleanUpPreload
        (initializeWorld $ generateFromTree lev1 $ initWorld)
-        (-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade
-         \preData w -> --do render setparams w egFade
-                        do
+        ( \preData w -> do
                      startTicks <- SDL.ticks
                      (lightTicks,timeSpentPoking) <- renderPicture' (_renderData preData) 
                                            (_cameraRot w) (_cameraZoom w)