Add explicit door position field

2022-03-09 22:14:34 +00:00
parent 4a1ca905f7
commit 027b4b7d8b
14 changed files with 53 additions and 37 deletions
@@ -1,4 +1,9 @@
-module Dodge.Placement.Instance.Door where
+module Dodge.Placement.Instance.Door 
+    ( putDoubleDoor
+    , putAutoDoor
+    , putDoubleDoorThen
+    , switchDoor -- not used 9/3/22
+    ) where
 import Dodge.Data
 import Dodge.Base
 import Color
@@ -19,8 +24,6 @@ putDoubleDoorThen pathing col cond a b speed mayp = ps0j (PutSlideDr pathing col
  where
    half = 0.5 *.* (a +.+ b)

-    
-
 putAutoDoor :: Point2 -> Point2 -> Placement
 putAutoDoor a b = PlacementUsingPos (addZ 0 a)
    $ \az -> PlacementUsingPos (addZ 0 b)