Add support for group placements

2021-05-14 19:46:52 +02:00
parent 0b26761be5
commit 2b09bf2072
18 changed files with 307 additions and 266 deletions
@@ -20,7 +20,7 @@ data Room = Room
    { _rmPolys  :: [ [Point2] ]
    , _rmLinks  :: [(Point2,Float)]
    , _rmPath :: [(Point2, Point2)]
-    , _rmPS :: [PlacementSpot]
+    , _rmPS :: [Placement]
    , _rmBound :: [ [Point2] ]
    }
 makeLenses ''Room