Continue to refactor zoning to be more stream-based

2022-06-28 03:21:55 +01:00
parent f6d96ec92c
commit e06527091e
34 changed files with 214 additions and 252 deletions
@@ -35,7 +35,7 @@ litCorridor90 = do
        , _rmLinks = 
            [ outLink (V2 40 (h - 80)) (-pi/2)
            , inLink  (V2 20       0 )   pi      ]
-        , _rmPath  = concatMap doublePair 
+        , _rmPath  = foldMap doublePairSet
            [( V2  20   0     , V2 20 (h-40) )
            ,( V2   0  (h-40) , V2 20 (h-40) )
            ,( V2  40  (h-40) , V2 20 (h-40) )