Module Geometry

type size =
  1. | Scale of float
  2. | Pixel of int
  3. | Guess
type aspect_opts =
  1. | Keep_at_most
  2. | Keep_at_least
  3. | Dont_keep
type resize_switch =
  1. | Always
  2. | Bigger_only
  3. | Smaller_only
type from =
  1. | TopLeft
  2. | BottomRight
  3. | Center
type position =
  1. | AtPixel of from * int
  2. | AtScale of from * float
type t = {
  1. geom_width : int;
  2. geom_height : int;
  3. geom_x : int;
  4. geom_y : int;
}
type spec = {
  1. spec_width : size;
  2. spec_height : size;
  3. spec_aspect : aspect_opts;
  4. spec_switch : resize_switch;
  5. spec_x : int;
  6. spec_y : int;
}
val compute : spec -> int -> int -> t