Remove more (dead) Streaming code

2022-08-21 22:03:15 +01:00
parent cccab45650
commit c35dbf1ba8
12 changed files with 24 additions and 93 deletions
@@ -227,8 +227,8 @@ getViewpoints p w =
 gameRoomViewpoints :: Point2 -> GameRoom -> [Point2]
 {-# INLINE gameRoomViewpoints #-}
 gameRoomViewpoints p gr =
-    (_grViewpoints gr)
-        <> map extend ((_grViewpointsEx gr) <> map addDir (_grLinkDirs gr))
+    _grViewpoints gr
+        <> map extend (_grViewpointsEx gr <> map addDir (_grLinkDirs gr))
  where
    extend outp = p +.+ maxViewDistance *.* squashNormalizeV (outp -.- p)
    addDir a = p +.+ unitVectorAtAngle a