Source file `util.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
let pi = 4. *. atan 1.
let e = 2.71828

module Angle = struct
  type t = float

  let of_degrees deg = deg *. (pi /. 180.)
  let to_degrees t = 180. *. t /. pi

  external of_radians : float -> t = "%identity"
  external to_radians : t -> float = "%identity"
end

module Point = struct
  type t = float * float

  let x = fst
  let y = snd
end