Cleanup

2021-11-23 22:33:23 +00:00
parent ddd120dee1
commit 5f6d81bd05
10 changed files with 65 additions and 53 deletions
@@ -30,7 +30,7 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
        [rectNSWE x (-x) (-x) x
        ,rectNSWE 0 (-(x + 40)) (-20) 20
        ]
-    , _rmLinks = (map (uncurry outLink) $ init lnks) ++ [uncurry inLink $ last lnks]
+    , _rmLinks = map (uncurry outLink) (init lnks) ++ [uncurry inLink $ last lnks]
    , _rmPath  = linksAndPath lnks  
        [ ( V2 0 x        , V2 0 (-(x+40)))
        , ( V2 0 (-(x+40)), V2 0 x)
@@ -94,7 +94,7 @@ roomCross x y = defaultRoom
        ,(V2 (-x) (20-y),pi/2)
        ,(V2 (20-y) (-x),pi)
        ] ++
-        [uncurry inLink $ (V2 (y-20) (-x),pi)
+        [uncurry inLink (V2 (y-20) (-x),pi)
        ]
    , _rmPath  = []
    , _rmPmnts =