Refactor updates

2022-10-28 23:13:36 +01:00
parent 14e2b5cf8f
commit 82e2a5a234
8 changed files with 64 additions and 63 deletions
@@ -254,10 +254,10 @@ extendedViewPoints p grs =
    extend outp = p +.+ maxViewDistance *.* squashNormalizeV (outp -.- p)
    addDir a = p +.+ unitVectorAtAngle a

-farWallPoints :: Point2 -> World -> [Point2]
+farWallPoints :: Point2 -> CWorld -> [Point2]
 farWallPoints p w = concatMap _grViewpoints grs ++ extendedViewPoints p grs
  where
-    grs = filter (pointInOrOnPolygon p . _grBound) (_cwgGameRooms $ _cwGen (_cWorld w))
+    grs = filter (pointInOrOnPolygon p . _grBound) (_cwgGameRooms $ _cwGen w)

 maxViewDistance :: Float
 maxViewDistance = 800