sig
  type t = { len : int; }
  val create : len:int -> Gdk.PointArray.t
  val set : Gdk.PointArray.t -> pos:int -> x:int -> y:int -> unit
end