Add room foregrounds

src/Dodge/Layout/Tree/Annotate.hs

@@ -16,6 +16,7 @@ import Dodge.Room.Treasure
 import Dodge.Room.Link
 import Dodge.Room.Data
 import Dodge.Room.Airlock
+import Dodge.Room.Start
 import Dodge.Room
 import Dodge.Room.Teleport
 
@@ -80,10 +81,7 @@ annoToRoomTree [FirstWeapon] = do
     blockedC <- longBlockedCorridor
     join $ takeOne $ return (appendEitherTree branchWP [blockedC]) : replicate 5 weaponRoom
 annoToRoomTree [EndRoom] = fmap (pure . Right) (telRoomLev 1)
-annoToRoomTree [StartRoom] = do
-    w <- state $ randomR (100,400)
-    h <- state $ randomR (200,400)
-    pure . Right <$> randomiseOutLinks (shiftRoomBy ((-20,-20),0) $ roomRectAutoLinks w h)
+annoToRoomTree [StartRoom] = startRoom
 annoToRoomTree (SpecificRoom rt:_) = rt
 annoToRoomTree (BossAno cr : _) = do
     br <- bossRoom cr