Work towards making world read/showable

2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
@@ -18,9 +18,11 @@ findBoundDists cfig w
    hw = halfWidth cfig
    hh = halfHeight cfig

-updateBounds :: Configuration -> World -> World
-updateBounds cfig w = w
-    & boundDist .~ bdists
-    & boundBox  .~ map ( (+.+ _cameraCenter w) . rotateV (_cameraRot w) ) (rectNSWE n s w' e)
+updateBounds :: Universe -> Universe
+updateBounds uv = uv
+    & uvWorld . boundDist .~ bdists
+    & uvWorld . boundBox  .~ map ( (+.+ _cameraCenter w) . rotateV (_cameraRot w) ) (rectNSWE n s w' e)
  where
+    w = _uvWorld uv
+    cfig = _uvConfig uv
    bdists@(n,s,e,w') = findBoundDists cfig w