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

Add indicator light to switch doors

Browse Source
This commit is contained in:
justin
2021-11-16 12:57:13 +00:00
parent a7f2b5f3ea
commit f530952612
9 changed files with 117 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Wire.hs
+1 -1
View File
@@ -9,4 +9,4 @@ 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 = rmStartWires %~ IM.insert i (uncurry RoomWire pos)
putWireStart i pos = rmStartWires %~ IM.insert i (uncurry WallWire pos 10)