Module PageLayout

module PageLayout: sig .. end

type pageMaster = {

	`paperWidth : float;`
	`paperHeight : float;`
	`marginTop : float;`
	`marginBottom : float;`
	`marginLeft : float;`
	`marginRight : float;`

}

type master = pageMaster array

val default : pageMaster

val inner_frame : pageMaster ->
       Typography.Box.frame * (int * Typography.Box.frame) list ->
       Typography.Box.frame * (int * Typography.Box.frame) list

val new_page : pageMaster ->
       Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list ->
       Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list

val lr_new_page : pageMaster ->
       Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list ->
       Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list

val default_new_page : Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list ->
       Typography.Box.frame * (Extra.IntMap.key * Typography.Box.frame) list