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
@@ -22,7 +22,7 @@ addRoomLinkDecorations rms w = w & decorations %~
    IM.insertWithNewKeys (map roomLinkDecorations rms)

 roomLinkDecorations :: Room -> Picture
-roomLinkDecorations rm = pictures . map linkDecoration $ _rmLinks rm 
+roomLinkDecorations rm = pictures . map linkDecoration $ _rmOutLinks rm ++ _rmInLinks rm

 linkDecoration :: (Point2,Float) -> Picture
 linkDecoration (p,a) = setLayer 1 . onLayer DebugLayer . color red $ line [p, p +.+ 20 *.* unitVectorAtAngle (a - pi/2)]