From 221b6451fb4f8559a10e7fefebd13ce125ef29d0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 13 May 2021 14:50:51 +0200
Subject: Rewrite in TypeScript

BuckleScript is no longer maintained. Choose a widely used techno that
will still be maintained in the following years.
---
 src/arc.ml | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100644 src/arc.ml

(limited to 'src/arc.ml')

diff --git a/src/arc.ml b/src/arc.ml
deleted file mode 100644
index 7a3195d..0000000
--- a/src/arc.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-let polarToCartesian centerX centerY radius angleInDegrees =
-  let angleInRadians = (angleInDegrees -. 90.0) *. Js.Math._PI /. 180.0 in
-  ( centerX +. (radius *. Js.Math.cos angleInRadians),
-    centerY +. (radius *. Js.Math.sin angleInRadians) )
-
-let describe x y radius startAngle endAngle =
-  let startX, startY = polarToCartesian x y radius endAngle in
-  let endX, endY = polarToCartesian x y radius startAngle in
-  let largeArcFlag = if endAngle -. startAngle <= 180.0 then "0" else "1" in
-  [|
-    "M";
-    Js.Float.toString startX;
-    Js.Float.toString startY;
-    "A";
-    Js.Float.toString radius;
-    Js.Float.toString radius;
-    "0";
-    largeArcFlag;
-    "0";
-    Js.Float.toString endX;
-    Js.Float.toString endY;
-  |]
-  |> Js.Array.joinWith " "
-- 
cgit v1.2.3