Commit before door refactor

2022-06-23 09:30:46 +01:00
parent ee47ee8e95
commit 8e3f03637d
11 changed files with 76 additions and 17 deletions
@@ -30,6 +30,13 @@ putDoubleDoorThen pathing col cond soff a b speed cont
    doorbetween pa pb = pt0 $ PutSlideDr pathing col cond soff pa pb speed
    half = 0.5 *.* (a +.+ b)

+--doorBetween pathing col cond soff pa pb speed g = case divideLine 80 pa pb of
+--    [x,y] -> \_ -> Just (pt0 (PutSlideDr pathing col cond soff x y speed) g)
+--    (x:y:zs) -> foldr f g (zip (x:y:zs) (y:zs))
+--      where
+--        f :: (Point2,Point2) -> (Placement -> Maybe Placement) -> (Placement -> Maybe Placement)
+--        f (a,b) h = \pl -> Just (pt0 (PutSlideDr pathing col cond (soff - dist y pb) a b speed) h)
+
 putAutoDoor :: Point2 -> Point2 -> Placement
 putAutoDoor a b = PlacementUsingPos (addZ 0 a)
    $ \az -> PlacementUsingPos (addZ 0 b)