Prop reification/splitting

src/Dodge/WdP2f.hs

@@ -0,0 +1,12 @@
+module Dodge.WdP2f
+    where
+import Geometry.Vector
+import Dodge.Data
+import Geometry.Data
+import Control.Lens
+
+doWdP2f :: WdP2f -> World -> (Point2,Float)
+doWdP2f x = case x of
+    WdP2f0 -> const (0,0)
+    WdP2fDoorPosition drid -> \w -> let Just (a,b) = w ^? doors . ix drid . drPos
+        in (b, argV (a-.-b))