Improve pulse laser/ball hit detection

2026-03-26 15:07:33 +00:00
parent 40f5d22d88
commit c53e60b956
13 changed files with 193 additions and 185 deletions
@@ -15,8 +15,7 @@ import Geometry
 import Linear

 putDoubleDoor :: Wall -> Point2 -> Point2 -> Door -> Placement
-putDoubleDoor wl a b dr =
-    putDoubleDoorThen wl 1 a b dr (const $ const Nothing)
+putDoubleDoor wl a b dr = putDoubleDoorThen wl 1 a b dr (const $ const Nothing)

 putDoubleDoorThen ::
    Wall ->