some update

This commit is contained in:
nek0 2022-09-14 20:10:20 +02:00
parent 66f9d07905
commit dd8556ee2b
2 changed files with 3 additions and 3 deletions

View file

@ -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)

View file

@ -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