Work on Falling carriage state

2026-04-03 10:32:54 +01:00
parent 18dc469408
commit 43a5817ef3
17 changed files with 79 additions and 68 deletions
@@ -75,7 +75,7 @@ shiftRoomShiftToLink :: (Point2, Float) -> (Point2, Float) -> Room -> Room
 shiftRoomShiftToLink l inlink r =
    shiftRoomShiftBy l
        . shiftRoomShiftBy (0, pi - a)
-        $ shiftRoomShiftBy (0 - p, 0) r
+        $ shiftRoomShiftBy (- p, 0) r
  where
    (p, a) = inlink