Module Flow

type placed_line = {
  1. line : Page.line;
  2. column : int;
  3. top : float;
}
type placed_frame = {
  1. frame : int;
  2. in_column : int;
  3. at : float;
  4. height : float;
}
type t = {
  1. lines : placed_line list;
  2. frames : placed_frame list;
  3. columns : int;
}
val flow : column_height:float -> anchors:(int * float) list -> Page.t -> t