Partially working mounts on lerp doors

src/Dodge/WdP2f.hs

@@ -1,15 +1,15 @@
 {-# OPTIONS -Wno-incomplete-uni-patterns #-}
 module Dodge.WdP2f (doWdP2f) where
 
+import Dodge.ShiftPoint
 import Control.Lens
 import Dodge.Data.World
 import Geometry.Data
-import Geometry.Vector
 
 -- # OPTIONS -Wno-incomplete-uni-patterns #-}
 doWdP2f :: WdP2f -> World -> (Point2, Float)
 doWdP2f x = case x of
     WdP2f0 -> const (0, 0)
     WdP2fDoorPosition drid -> \w ->
-        let Just (a, b) = w ^? cWorld . lWorld . doors . ix drid . drPos
-         in (b, argV (a -.- b))
+        let dr =  w ^?! cWorld . lWorld . doors . ix drid
+         in lerpP2A (dr ^. drZeroPos) (dr ^. drOnePos) (dr ^. drLerp)