Add Tabletop.positionFromAngle

mwunsch · Nov 15, 2016 · e45beea · e45beea
1 parent 136001a
commit e45beea
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Tabletop.elm b/src/Tabletop.elm
@@ -108,6 +108,17 @@ positionFromDirection start end len =
         )
 
 
+positionFromAngle : Position -> Float -> Inch -> Position
+positionFromAngle ( x, y ) angle len =
+    let
+        rad =
+            degrees angle
+    in
+        ( x + (cos rad * len)
+        , y + (sin rad * len)
+        )
+
+
 angle : Position -> Position -> Float
 angle ( startX, startY ) ( endX, endY ) =
     let