Source file `point.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(* BSD-2-Clause License *)

type t =
  { x : int
  ; y : int
  }

let of_jv point =
  let x = Jv.get point "x" |> Jv.to_int in
  let y = Jv.get point "y" |> Jv.to_int in
  { x; y }

let to_jv point =
  Jv.call Global.leaflet "point" [| Jv.of_int point.x; Jv.of_int point.y |]