1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
type t val empty : t val (+): t -> Gg.v2 -> t val get_coord : t -> Gg.v2 val create: angle:float -> width:float -> x:float -> y:float -> t val copy : t -> Gg.v2 -> t val set_angle : t -> float -> t val set_width: t -> float -> t val get_coord' : t -> Gg.v2