Work on connecting pathfinding grid

2022-07-09 12:36:17 +01:00
parent 9c352e4a83
commit fb66a45495
11 changed files with 16 additions and 32 deletions
@@ -114,6 +114,7 @@ clusterFunc n = C JoinClust (N n)
 clusterFormatting :: CombClust -> [GlobalAttributes]
 clusterFormatting cl = case cl of
 --    CraftClust -> [GraphAttrs [Rank SameRank]]
+    CraftClust -> []
    _ -> []

 edgeFormatting :: (Int,Int,CombEdge) -> Attributes