diff options
Diffstat (limited to 'src/Geometry.elm')
-rw-r--r-- | src/Geometry.elm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/Geometry.elm b/src/Geometry.elm deleted file mode 100644 index 73e8d1f..0000000 --- a/src/Geometry.elm +++ /dev/null @@ -1,23 +0,0 @@ -module Geometry where - -import Vec2 (..) -import Board (boardSize) - -polarToCartesian : Float -> Float -> Vec2 -polarToCartesian angle dist = - { x = dist * (cos angle) - , y = dist * (sin angle) - } - -distance : Vec2 -> Vec2 -> Float -distance v1 v2 = sqrt((v2.x - v1.x)^2 + (v2.y - v1.y)^2) - -inBoard : Float -> Vec2 -> Vec2 -inBoard size pos = - let leftX = -boardSize.x / 2 + size - rightX = boardSize.x / 2 - size - bottomY = -boardSize.y / 2 + size - topY = boardSize.y / 2 - size - in { x = clamp leftX rightX pos.x - , y = clamp bottomY topY pos.y - } |