Improvements to rooms and view distances

src/Dodge/Layout.hs

@@ -201,7 +201,8 @@ gameRoomsFromRooms = fmap gameRoomFromRoom
 gameRoomFromRoom :: Room -> GameRoom
 gameRoomFromRoom rm = GameRoom
     { _grViewpoints = map doshift $ _rmViewpoints rm ++ (map fst . foldl' (flip cutWalls) [] $ _rmPolys rm)
-    , _grViewpointsEx = concatMap unpos (_rmPos rm)
+        ++ mapMaybe filterUnusedLinks (_rmPos rm)
+    , _grViewpointsEx = concatMap filterUsedLinks (_rmPos rm)
     , _grBound = map doshift $ expandPolyCorners 50 . convexHullSafe . nubBy closePoints 
         . concat $ _rmBound rm ++ _rmPolys rm
     , _grDir   = getDir $ _rmPos rm
@@ -214,9 +215,11 @@ gameRoomFromRoom rm = GameRoom
         [p +.+ 10 *.* unitVectorAtAngle a
         ,p -.- 10 *.* unitVectorAtAngle a
         ]
-    unpos (UsedOutLink _ _ p a) = doubleShift p a
-    unpos (UsedInLink  _ p a) = doubleShift p a
-    unpos _ = []
+    filterUnusedLinks (UnusedLink p _) = Just p
+    filterUnusedLinks _ = Nothing
+    filterUsedLinks (UsedOutLink _ _ p a) = doubleShift p a
+    filterUsedLinks (UsedInLink  _ p a) = doubleShift p a
+    filterUsedLinks _ = []
     undir (UsedOutLink _ _ _ a) = Just $ 0.5*pi + a + snd (_rmShift rm)
     undir (UsedInLink  _ _ a) = Just $ 0.5*pi + a + snd (_rmShift rm)
     undir _ = Nothing