Cleanup

2021-11-23 21:48:01 +00:00
parent b7d6eeaa84
commit 86f363c2f9
19 changed files with 93 additions and 122 deletions
@@ -33,10 +33,10 @@ twinSlowDoorRoom
    -> Room
 twinSlowDoorRoom w h x = defaultRoom
    { _rmPolys  = ps
-    , _rmOutLinks  = map (uncurry outLink)
+    , _rmLinks  = map (uncurry outLink)
        [ (V2 w (h/2) , negate $ pi/2)
        , (V2 (-w) (h/2) , pi/2) ]
-    , _rmInLinks = [uncurry inLink (V2 0 (-h), pi) ]
+        ++ [uncurry inLink (V2 0 (-h), pi) ]
    , _rmPath   = []
    , _rmPmnts     = 
        [ pContID (PS (V2 0 (h-5)) pi) ( PutButton $ makeButton col id)