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

Add rooms, placements and room positions

Browse Source
This commit is contained in:
justin
2022-03-08 22:57:58 +00:00
parent 2e1c7f2687
commit ff6064a3b6
14 changed files with 315 additions and 138 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