justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Work towards making world read/showable

Browse Source
This commit is contained in:
justin
2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+3 -3
View File
@@ -33,7 +33,7 @@ doDrawing :: RenderData -> Universe -> IO Word32
doDrawing pdata u = do
sTicks <- SDL.ticks
let w = _uvWorld u
cfig = _config u
cfig = _uvConfig u
rot = _cameraRot w
camzoom = _cameraZoom w
trans = _cameraCenter w
@@ -160,7 +160,7 @@ doDrawing pdata u = do
nWalls
nSilIndices
nIndices
(_graphics_object_shadows $ _config u)
(_graphics_object_shadows $ _uvConfig u)
(snd $ snd $ _fboBase pdata)
colorMask $= Color4 Enabled Enabled Enabled Enabled
clearColor $= Color4 0 0 0 0
@@ -216,7 +216,7 @@ doDrawing pdata u = do
blend $= Enabled
bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
createLightMap pdata lightPoints nWalls nSilIndices nIndices
(_graphics_object_shadows $ _config u)
(_graphics_object_shadows $ _uvConfig u)
(snd $ snd $ _fboCloud pdata)
colorMask $= Color4 Enabled Enabled Enabled Enabled
clearColor $= Color4 0 0 0 0