module Geometry:sig
..end
type
size =
| |
Scale of |
| |
Pixel of |
| |
Guess |
type
aspect_opts =
| |
Keep_at_most |
| |
Keep_at_least |
| |
Dont_keep |
type
resize_switch =
| |
Always |
| |
Bigger_only |
| |
Smaller_only |
type
from =
| |
TopLeft |
| |
BottomRight |
| |
Center |
type
position =
| |
AtPixel of |
| |
AtScale of |
type
t = {
|
geom_width : |
|
geom_height : |
|
geom_x : |
|
geom_y : |
type
spec = {
|
spec_width : |
|
spec_height : |
|
spec_aspect : |
|
spec_switch : |
|
spec_x : |
|
spec_y : |
val compute : spec -> int -> int -> t