justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move towards unifying RoomPos constructors

Browse Source
This commit is contained in:
justin
2022-03-10 16:21:44 +00:00
parent 907cca0ef0
commit 7b1ac2b682
7 changed files with 94 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Layout.hs
+6 -6
View File
@@ -215,16 +215,16 @@ gameRoomFromRoom rm = GameRoom
[p +.+ 10 *.* unitVectorAtAngle a
,p -.- 10 *.* unitVectorAtAngle a
]
filterUnusedLinks (UnusedLink p _ _) = Just p
filterUnusedLinks (UnusedLink p _ _ _) = Just p
filterUnusedLinks _ = Nothing
filterUsedLinks (UsedOutLink _ _ p a _) = doubleShift p a
filterUsedLinks (UsedInLink _ p a _) = doubleShift p a
filterUsedLinks (UsedOutLink _ _ p a _ _) = doubleShift p a
filterUsedLinks (UsedInLink _ p a _ _) = doubleShift p a
filterUsedLinks _ = []
undir (UsedOutLink _ _ _ a _) = Just $ 0.5*pi + a + snd (_rmShift rm)
undir (UsedInLink _ _ a _) = Just $ 0.5*pi + a + snd (_rmShift rm)
undir (UsedOutLink _ _ _ a _ _) = Just $ 0.5*pi + a + snd (_rmShift rm)
undir (UsedInLink _ _ a _ _) = Just $ 0.5*pi + a + snd (_rmShift rm)
undir _ = Nothing
closePoints x y = roundPoint2 x == roundPoint2 y
getDir (UsedInLink _ _ a _:_) = a + snd (_rmShift rm)
getDir (UsedInLink _ _ a _ _:_) = a + snd (_rmShift rm)
getDir (_:xs) = getDir xs
getDir _ = 0 -- fallback