Transition to new room datatypes, first separate out/inlinks

2021-11-23 17:27:33 +00:00
parent 67b0d694af
commit 0f4040807a
19 changed files with 119 additions and 87 deletions
@@ -32,11 +32,10 @@ twinSlowDoorRoom
    -> Room
 twinSlowDoorRoom w h x = defaultRoom
    { _rmPolys  = ps
-    , _rmLinks  =
+    , _rmOutLinks  =
        [ (V2 w (h/2) , negate $ pi/2)
-        , (V2 (-w) (h/2) , pi/2)
-        , (V2 0 (-h), pi)
-        ]
+        , (V2 (-w) (h/2) , pi/2) ]
+    , _rmInLinks = [ (V2 0 (-h), pi) ]
    , _rmPath   = []
    , _rmPmnts     = 
        [ pContID (PS (V2 0 (h-5)) pi) ( PutButton $ makeButton col id)