Module GeometrySource

Sourcetype size =
  1. | Scale of float
  2. | Pixel of int
  3. | Guess
Sourcetype aspect_opts =
  1. | Keep_at_most
  2. | Keep_at_least
  3. | Dont_keep
Sourcetype resize_switch =
  1. | Always
  2. | Bigger_only
  3. | Smaller_only
Sourcetype from =
  1. | TopLeft
  2. | BottomRight
  3. | Center
Sourcetype position =
  1. | AtPixel of from * int
  2. | AtScale of from * float
Sourcetype t = {
  1. geom_width : int;
  2. geom_height : int;
  3. geom_x : int;
  4. geom_y : int;
}
Sourcetype 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;
}
Sourceval compute : spec -> int -> int -> t