Move towards serializing saves/loads faster

2022-08-19 11:12:43 +01:00
parent c74d3b04bf
commit 9df0fa8692
38 changed files with 542 additions and 384 deletions
@@ -32,14 +32,14 @@ doDrawing pdata u = do
    sTicks <- SDL.ticks
    let w = _uvWorld u
        cfig = _uvConfig u
-        rot = _cameraRot (_cWorld w)
-        camzoom = _cameraZoom (_cWorld w)
-        trans = _cameraCenter (_cWorld w)
+        rot = w ^. cWorld . cwCam . cwcRot
+        camzoom = w ^. cWorld . cwCam . cwcZoom
+        trans = w ^. cWorld . cwCam . cwcCenter
        wins@(V2 winx winy) = V2 (_windowX cfig) (_windowY cfig)
        resFact = resFactorNum $ cfig ^. graphics_resolution_factor
        (wallPointsCol, windowPoints, wallSPics) = wallsToDraw w
        lightPoints = lightsToRender cfig w
-        viewFroms@(V2 vfx vfy) = _cameraViewFrom (_cWorld w)
+        viewFroms@(V2 vfx vfy) = w ^. cWorld . cwCam . cwcViewFrom
        viewFrom3d = Vector3 vfx vfy 20
        shadV = _pictureShaders pdata
        lwShad = _lightingWallShadShader pdata