module type Boxlike = sig .. end
sig
end
type t
val width : t -> float
t -> float
val height : t -> float
val set_pos : Signature.point -> t -> t
Signature.point -> t -> t