Add rooms, placements and room positions

src/Dodge/Placement/Instance/LightSource.hs

@@ -107,13 +107,6 @@ mntLightLnkCond f = RandomPlacement $ do
     shp <- takeOne [vShape,iShape,lShape,jShape,liShape]
     return $ mntLSCond shp f
 
-unusedLnkToPS :: RoomPos -> Room -> Maybe (PlacementSpot,RoomPos)
-unusedLnkToPS rp _ = case rp of
-    UnusedLink p a -> Just (PS p a,UsedSpot p a)
---    UsedInLink _ p a -> Just (PS p a,UsedSpot p a)
---    UsedOutLink _ _ p a -> Just (PS p a,UsedSpot p a)
-    _ -> Nothing
-
 spanLSLightI :: LightSource -> Float -> Point2 -> Point2 -> Placement
 spanLSLightI ls h a b = ps0j (PutLS $ ls & lsParam . lsPos .~ V3 x y h)
     $ sps0 $ PutShape $ thinHighBar h a b