Add tilemap floors to rooms

2021-06-15 14:56:32 +02:00
parent 73bd407c49
commit da631e3b37
31 changed files with 181 additions and 66 deletions
@@ -4,6 +4,7 @@ Connecting rooms designed with a pass-through technique in mind.
 module Dodge.Room.RoadBlock
    where
 import Geometry
+import Dodge.Default.Room
 import Dodge.Room.Data
 import Dodge.Room.Link
 import Dodge.Room.Placement
@@ -29,7 +30,7 @@ litCorridor90 = do
    h <- state $ randomR (500,800)
    let poly = rectNSWE h 0 0 40
        poly2 = rectNSWE (h-60) (h-100) (-60) 5
-    pure $ Room
+    pure $ defaultRoom
        { _rmPolys = [poly,poly2]
        , _rmLinks = [ ((40,h - 80), -pi/2)
                     , ((20,     0), pi)