Work on chasm rooms

2025-10-02 16:58:38 +01:00
parent 013f50f0bc
commit 7e3614c9c8
15 changed files with 301 additions and 152 deletions
@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 module Dodge.Base.CardinalPoint where

 import Dodge.Data.Room
@@ -23,3 +24,10 @@ cardEightVec cp = case cp of
    SouthWest8 -> V2 (-1) (-1)
    West8 -> V2 (-1) 0
    NorthWest8 -> V2 (-1) 1
+
+cardinalBetweenAdj :: CardinalPointBetween -> (CardinalPoint,CardinalPoint)
+cardinalBetweenAdj = \case
+    NorthEast -> (North,East)
+    SouthEast -> (South,East)
+    SouthWest -> (South,West)
+    NorthWest -> (North,West)