Cleanup and various bugfixes

2021-11-16 21:31:53 +00:00
parent ebe9ad6b90
commit 5d0b48829c
12 changed files with 103 additions and 39 deletions
@@ -176,9 +176,12 @@ farWallPoints :: Point2 -> World -> [Point2]
 farWallPoints p w = concatMap _grViewpoints grs ++ linkvps
  where
    grs = filter (pointInOrOnPolygon p . _grBound) (_gameRooms w)
-    linkvps = map extend (concatMap _grViewpointsEx grs)
+    linkvps = map extend (concatMap _grViewpointsEx grs
+        ++ map addDir (concatMap _grLinkDirs grs)
+        )
    extend :: Point2 -> Point2
    extend outp = p +.+ maxViewDistance *.* safeNormalizeV (outp -.- p)
+    addDir a = p +.+ unitVectorAtAngle a

 maxViewDistance :: Float
 maxViewDistance = 800