diff options
| author | Joris | 2020-02-16 22:45:07 +0100 |
|---|---|---|
| committer | Joris | 2020-02-17 09:15:11 +0100 |
| commit | 25afb0bde9b8a2c064135a534231c232a461b341 (patch) | |
| tree | 5ab25640024238a2f6f2d176e5870178f18b5345 /src/arc.ml | |
| parent | 0366f8cd49d2db40ea5efc639f6a475ecd97675e (diff) | |
| download | tabata-25afb0bde9b8a2c064135a534231c232a461b341.tar.gz tabata-25afb0bde9b8a2c064135a534231c232a461b341.tar.bz2 tabata-25afb0bde9b8a2c064135a534231c232a461b341.zip | |
Set up a first version of tabata timer
Diffstat (limited to 'src/arc.ml')
| -rw-r--r-- | src/arc.ml | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/arc.ml b/src/arc.ml new file mode 100644 index 0000000..7a3195d --- /dev/null +++ b/src/arc.ml @@ -0,0 +1,23 @@ +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 " " |