Fix bug in detecting which room you are in

2021-09-03 01:22:46 +01:00
parent c69af7a5f4
commit 1bbeb926a5
14 changed files with 121 additions and 93 deletions
@@ -131,7 +131,9 @@ gameRoomsFromRooms = map f
    f rm = GameRoom
        { _grViewpoints = (map fst . foldl' (flip cutWalls) [] $ _rmPolys rm)
            ++ map fst (_rmLinks rm)
-        , _grBound = expandPolyByFixed 100 $ convexHullSafe $ concat $ _rmBound rm ++ _rmPolys rm
+        , _grBound = expandPolyByFixed 100 $ orderPolygon $ convexHullSafe $ concat $ _rmBound rm ++ _rmPolys rm
+        , _grDir   = snd . last $ _rmLinks rm
+        , _grName  = _rmName rm
        }

 floorsFromRooms :: [Room] -> [(Point3,Point3)]