diff --git a/src/Main.hs b/src/Main.hs index 5534282..60823b0 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -46,7 +46,7 @@ main = do , windowConfigs = [ ( 0 , SDL.defaultWindow - { SDL.windowInitialSize = V2 1280 720 + { SDL.windowInitialSize = V2 1920 1080 , SDL.windowResizable = True , SDL.windowGraphicsContext = SDL.OpenGLContext SDL.defaultOpenGL { SDL.glProfile = SDL.Core SDL.Normal 3 3 @@ -65,7 +65,7 @@ pre ud = do threadCtx <- SDL.glCreateContext awwindow SDL.glMakeCurrent awwindow (acContext $ head $ glContext ad) let Subsystems w _ k j _ = subsystems ud - _ <- partSubscribe w (fitViewport (1280/720)) + _ <- partSubscribe w (fitViewport (1920/1080)) _ <- partSubscribe w (exitOnWindowClose ud) _ <- partSubscribe k toggleFullScreen _ <- partSubscribe k (quitGame ud) diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index 6ecae84..53daf1e 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -624,7 +624,7 @@ drawMap ud = do then T.pack (show $ clearance $ V.head room) else "0" ) - <> "\nFor answers call 6350" + -- <> "\nFor answers call 6350" ) drawTile