Add frame clock

2021-09-09 13:29:09 +01:00
parent a2288110ae
commit be7b2d2cd7
27 changed files with 176 additions and 87 deletions
@@ -22,9 +22,7 @@ createPathGrid rm = rm
    { _rmPath = linksAndPath (_rmLinks rm) filterGrid }
  where
    filterGrid = filter (\p -> pairInPolys (_rmPolys rm) p && testCrossWalls outerWalls p) grid
-    grid = case shiftedGrid <$> minx <*> maxx <*> miny <*> maxy of
-        Nothing -> []
-        Just xs -> xs
+    grid = fromMaybe [] $ shiftedGrid <$> minx <*> maxx <*> miny <*> maxy
    outerWalls = foldr cutPoly [] $ _rmPolys rm
    outerPoints = map fst outerWalls
    (minx, maxx, miny, maxy) = L.fold theFold outerPoints