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.ts | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 src/arc.ts

(limited to 'src/arc.ts')

diff --git a/src/arc.ts b/src/arc.ts
new file mode 100644
index 0000000..d8e1e7d
--- /dev/null
+++ b/src/arc.ts
@@ -0,0 +1,37 @@
+function polarToCartesian(
+  centerX: number,
+  centerY: number,
+  radius: number,
+  degreesAngle: number
+): number[] {
+  const radianAngle = (degreesAngle - 90) * Math.PI / 180
+  return [
+    centerX + radius * Math.cos(radianAngle),
+    centerY + radius * Math.sin(radianAngle)
+  ]
+}
+
+export function describe(
+  x: number,
+  y: number,
+  radius: number,
+  startAngle: number,
+  endAngle: number
+): string {
+  const [startX, startY] = polarToCartesian(x, y, radius, endAngle)
+  const [endX, endY] = polarToCartesian(x, y, radius, startAngle)
+  const largeArcFlag = endAngle - startAngle <= 180 ? "0" : "1"
+  return [
+    "M",
+    startX.toString(),
+    startY,
+    "A",
+    radius.toString(),
+    radius.toString(),
+    "0",
+    largeArcFlag,
+    "0",
+    endX.toString(),
+    endY.toString(),
+  ].join(" ")
+}
-- 
cgit v1.2.3