This commit is contained in:
2021-11-28 17:07:04 +00:00
parent 618653a86e
commit 5cbe394e08
28 changed files with 21 additions and 36 deletions
-1
View File
@@ -1,6 +1,5 @@
module Dodge.ShiftPoint where
import Geometry
import Geometry.Vector3D
shiftPointBy :: (Point2,Float) -> Point2 -> Point2
shiftPointBy (pos,rot) p = pos +.+ rotateV rot p