nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

some update

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -46,7 +46,7 @@ main = do
, windowConfigs = , windowConfigs =
[ ( 0 [ ( 0
, SDL.defaultWindow , SDL.defaultWindow
{ SDL.windowInitialSize = V2 1280 720 { SDL.windowInitialSize = V2 1920 1080
, SDL.windowResizable = True , SDL.windowResizable = True
, SDL.windowGraphicsContext = SDL.OpenGLContext SDL.defaultOpenGL , SDL.windowGraphicsContext = SDL.OpenGLContext SDL.defaultOpenGL
{ SDL.glProfile = SDL.Core SDL.Normal 3 3 { SDL.glProfile = SDL.Core SDL.Normal 3 3
@ -65,7 +65,7 @@ pre ud = do
threadCtx <- SDL.glCreateContext awwindow threadCtx <- SDL.glCreateContext awwindow
SDL.glMakeCurrent awwindow (acContext $ head $ glContext ad) SDL.glMakeCurrent awwindow (acContext $ head $ glContext ad)
let Subsystems w _ k j _ = subsystems ud let Subsystems w _ k j _ = subsystems ud
_ <- partSubscribe w (fitViewport (1280/720)) _ <- partSubscribe w (fitViewport (1920/1080))
_ <- partSubscribe w (exitOnWindowClose ud) _ <- partSubscribe w (exitOnWindowClose ud)
_ <- partSubscribe k toggleFullScreen _ <- partSubscribe k toggleFullScreen
_ <- partSubscribe k (quitGame ud) _ <- partSubscribe k (quitGame ud)

2
src/MainGame/WorldMap.hs
View file

@ -624,7 +624,7 @@ drawMap ud = do
then T.pack (show $ clearance $ V.head room) then T.pack (show $ clearance $ V.head room)
else "0" else "0"
) )
<> "\nFor answers call 6350" -- <> "\nFor answers call 6350"
) )
drawTile drawTile