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

Minor cleanup

Browse Source
This commit is contained in:
justin
2021-11-15 02:16:17 +00:00
parent e93fa10a97
commit 59dc24aff6
5 changed files with 21 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Wire.hs
+3 -8
View File
@@ -1,17 +1,12 @@
module Dodge.Wire where
import Dodge.LevelGen.Data
import Dodge.Room.Link
import Geometry
import qualified Data.IntMap.Strict as IM
import Control.Lens
putWireEndInvRmShift :: Int -> (Point2,Float) -> Room -> Room
putWireEndInvRmShift i pos rm =
rm & rmEndWires %~ IM.insert i (uncurry RoomWire $ invShiftLinkBy (_rmShift rm) pos)
putWireEnd :: Int -> (Point2,Float) -> Room -> Room
putWireEnd i pos = rmEndWires %~ IM.insert i (uncurry RoomWire pos)
putWireStart :: Int -> (Point2,Float) -> Room -> Room
putWireStart i pos rm = rm
& rmStartWires %~ IM.insert i (uncurry RoomWire pos)
putWireStart i pos = rmStartWires %~ IM.insert i (uncurry RoomWire pos)