From a6be1007a6dbaa79ce8c985de068ffad7cc40ef9 Mon Sep 17 00:00:00 2001 From: jgk Date: Thu, 19 Aug 2021 20:18:24 +0200 Subject: [PATCH] Allow for downscaled resolution --- src/Dodge/Render.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs index 5f3ed5d41..c9e05f800 100644 --- a/src/Dodge/Render.hs +++ b/src/Dodge/Render.hs @@ -65,6 +65,8 @@ doDrawing pdata w = do ] -- set the coordinate uniform ready for drawing elements using world coordinates bufferUBO $ perspectiveMatrixb rot camzoom trans wins viewFroms + viewport $= (Position 0 0 + , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins)) bindFramebuffer Framebuffer $= fst (_fboBase pdata) clearColor $= Color4 0 0 0 0 clear [ColorBuffer,DepthBuffer] @@ -104,14 +106,14 @@ doDrawing pdata w = do blend $= Disabled drawShader (_bloomBlurShader pdata) 4 replicateM_ 3 $ pingPongBetween (_fboFourth1 pdata) (_fboFourth2 pdata) (_bloomBlurShader pdata) - viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins)) +-- viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins)) blend $= Enabled bindFramebuffer Framebuffer $= fst (_fboLighting pdata) viewport $= (Position 0 0 , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins)) createLightMap pdata lightPoints nWalls nSils nsurfVs - viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins)) + --viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins)) colorMask $= Color4 Enabled Enabled Enabled Enabled clearColor $= Color4 0 0 0 0 @@ -141,6 +143,7 @@ doDrawing pdata w = do renderLayer 2 shadV layerCounts renderWindows pdata windowPoints + viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins)) depthFunc $= Just Always blendFunc $= (One,Zero) -- perform any radial distortion