Module Figures

type point = {
  1. x : float;
  2. y : float;
}
type rectangle = {
  1. p : point;
  2. q : point;
}
val s_of_rectangle : rectangle -> string
val rect_width : rectangle -> float
val rect_height : rectangle -> float
val rect_area : rectangle -> float
val valid_rect : rectangle -> bool
val point_is_in_rectangle : point -> rectangle -> bool
val intersection_rectangles : rectangle -> rectangle -> rectangle option
type point_pixel = {
  1. xpix : int;
  2. ypix : int;
}
type rect_pixel = {
  1. lower_left : point_pixel;
  2. upper_right : point_pixel;
}
val rect_pixel_width : rect_pixel -> int
val rect_pixel_height : rect_pixel -> int
val random_point_in_rect_pixel : rect_pixel -> point_pixel