Module Drawing

type id = int
type t
val empty : t
val add : Figure.t -> t -> t * id
val figures : t -> (id * Figure.t) list
val get : t -> id -> Figure.t option
val at : tolerance:float -> t -> Figure.point -> id option
val within : t -> Figure.box -> id list
val update : id -> (Figure.t -> Figure.t) -> t -> t
val move : id list -> float -> float -> t -> t
val delete : id list -> t -> t
val to_front : id list -> t -> t
val to_back : id list -> t -> t
val group : id list -> t -> t * id option
val ungroup : id -> t -> t * id list
val duplicate : id list -> t -> t * id list
type side =
  1. | Lefts
  2. | Rights
  3. | Tops
  4. | Bottoms
  5. | Centers
val align : side -> id list -> t -> t
val bounds : t -> id list -> Figure.box option