Move toward implementing chasms

2025-07-30 00:01:07 +01:00
parent fa377171a4
commit 210171fbc9
10 changed files with 327 additions and 317 deletions
@@ -120,8 +120,10 @@ roomPillars pillarsize w h wn hn = do
    addGirderLights $
        rm
            & cleatSide
-            & rmPmnts .~ plmnts
+            & rmPmnts .~ (testchasm : plmnts)
            & rmName .~ "rectPillars"
  where
    pilw = ((w - 40 * (fromIntegral wn + 1)) / fromIntegral wn) - pillarsize
    pilh = ((h - 40 * (fromIntegral hn + 1)) / fromIntegral hn) - pillarsize
+    testchasm = Placement 0 (PS 0 0) (PutChasm (map (+V2 100 100) (square 50))) Nothing
+        (\_ _ -> Nothing)