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

move gl call after context creation

Browse source
This commit is contained in:
nek0 2020-10-16 06:06:39 +02:00
parent bca6fd69e1
commit cd662da0b7
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Affection.hs
View file

@ -57,8 +57,6 @@ withAffection AffectionConfig{..} = do
SDL.initialize is SDL.initialize is
-- give SDL render quality -- give SDL render quality
SDL.HintRenderScaleQuality SDL.$= SDL.ScaleLinear SDL.HintRenderScaleQuality SDL.$= SDL.ScaleLinear
-- sync updates with monitor
SDL.swapInterval $= SDL.SynchronizedUpdates
-- just checking… -- just checking…
do do
renderQuality <- SDL.get SDL.HintRenderScaleQuality renderQuality <- SDL.get SDL.HintRenderScaleQuality
@ -77,6 +75,7 @@ withAffection AffectionConfig{..} = do
contexts <- zip (map (\(x,_,_) -> x) windows) <$> contexts <- zip (map (\(x,_,_) -> x) windows) <$>
mapM (SDL.glCreateContext . (\(_,y,_) -> y)) windows mapM (SDL.glCreateContext . (\(_,y,_) -> y)) windows
mapM_ (\w -> flip SDL.setWindowMode ((\(_,_,z) -> z) w) ((\(_,y,_) -> y) w)) windows mapM_ (\w -> flip SDL.setWindowMode ((\(_,_,z) -> z) w) ((\(_,y,_) -> y) w)) windows
-- sync updates with monitor
-- SDL.swapInterval $= SDL.SynchronizedUpdates -- <- causes Problems with windows -- SDL.swapInterval $= SDL.SynchronizedUpdates -- <- causes Problems with windows
liftIO $ logIO Debug "Getting Time" liftIO $ logIO Debug "Getting Time"
-- print current used GL Version -- print current used GL Version