Commit before adding more debugging control

src/Dodge/Placement/Instance/Door.hs

@@ -4,12 +4,12 @@ module Dodge.Placement.Instance.Door (
     putDoubleDoorThen,
 ) where
 
-import Dodge.Door.PutSlideDoor
 import Control.Lens
 import Dodge.Data.CreatureEffect
 import Dodge.Data.GenWorld
 import Dodge.Default.Door
 import Dodge.Default.Wall
+import Dodge.Door.PutSlideDoor
 import Dodge.LevelGen.PlacementHelper
 import Geometry
 import Linear
@@ -51,15 +51,22 @@ doorBetween ::
     (Placement -> Maybe Placement) ->
     Placement
 doorBetween wl cond soff pa pb speed g = case divideLine 40 pa pb of
-    [x, y] -> ptCont (putSlideDr adoor wl soff x y) g
-    (x : y : zs) -> divideDoorPane Nothing wl cond (soff - dist y pb) speed (zip (x : y : zs) (y : zs)) g
+--    [x, y] -> ptCont (putSlideDr adoor wl soff x y) g
+    (x : y : zs) ->
+        divideDoorPane
+            Nothing
+            wl
+            cond
+            (soff - dist y pb)
+            speed
+            (zip (x : y : zs) (y : zs))
+            g
     _ -> error "tried to create doorBetween with too few points"
-  where
-    adoor =
-        defaultDoor
-            & drTrigger .~ cond
-            & drUpdate .~ DoorLerp speed
-
+--  where
+--    adoor =
+--        defaultDoor
+--            & drTrigger .~ cond
+--            & drUpdate .~ DoorLerp speed
 
 divideDoorPane ::
     Maybe Int ->
@@ -72,12 +79,15 @@ divideDoorPane ::
     Placement
 divideDoorPane mid wl cond soff speed ppairs g = case ppairs of
     [p] -> ptCont (adoor p) g
-    (p : ps) -> ptCont (adoor p) $ \pl -> Just $ divideDoorPane (_plMID pl) wl cond soff speed ps g
+    (p : ps) -> ptCont (adoor p) $
+        \pl -> Just $ divideDoorPane (_plMID pl) wl cond soff speed ps g
     _ -> undefined
   where
     adoor (x, y) = putSlideDr thedoor wl soff x y
     thedoor =
-        defaultDoor & drUpdate . drLerpSpeed .~ speed & drTrigger .~ cond
+        defaultDoor
+            & drUpdate . drLerpSpeed .~ speed
+            & drTrigger .~ cond
             & drPushedBy .~ maybe PushesItself PushedBy mid
 
 putAutoDoor :: Point2 -> Point2 -> Placement