Cleanup: broken pathfinding

2021-11-16 18:05:47 +00:00
parent cb8cbe03a4
commit ebe9ad6b90
42 changed files with 491 additions and 301 deletions
@@ -0,0 +1,12 @@
+module Dodge.ShiftPoint where
+import Geometry
+import Geometry.Vector3D
+
+shiftPointBy :: (Point2,Float) -> Point2 -> Point2
+shiftPointBy (pos,rot) p = pos +.+ rotateV rot p
+
+invShiftPointBy :: (Point2,Float) -> Point2 -> Point2
+invShiftPointBy (p1,r) p2 = rotateV (-r) $ p2 -.- p1
+
+shiftPoint3By :: (Point2,Float) -> Point3 -> Point3
+shiftPoint3By (pos,rot) (V3 x y z) = addZ z $ pos +.+ rotateV rot (V2 x y)