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
@@ -0,0 +1,11 @@
+module Dodge.RoomPos where
+import Dodge.LevelGen.Data
+import Geometry
+
+extractRoomPos :: RoomPos -> (Point2,Float)
+extractRoomPos rp = case rp of
+    OutLink _  p a -> (p,a)
+    InLink     p a -> (p,a)
+    UnusedLink p a -> (p,a)
+    PosPl      p a -> (p,a)
+    LabPos _ rp'   -> extractRoomPos rp'