1 2 3 4 5 6 7 8 9 10 11 12 13 14
type t val empty : t val (+): t -> Gg.v2 -> t val get_coord : t -> Gg.v2 val create: float -> float -> t val copy : t -> Gg.v2 -> t val get_coord' : t -> Gg.v2