(* 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 }