1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(* Type for paper sizes --- unit, width, height. *)
type t = Paper of (Pdfunits.t * float * float)
let make u w h = Paper (u, w, h)
let unit (Paper (u, _, _)) = u
let width (Paper (_, w, _)) = w
let height (Paper (_, _, h)) = h
(* Make a paper size landscape *)
let landscape (Paper (u, w, h)) = Paper (u, h, w)
(* European `A' sizes. *)
let a0 = Paper (Pdfunits.Millimetre, 841., 1189.)
let a1 = Paper (Pdfunits.Millimetre, 594., 841.)
let a2 = Paper (Pdfunits.Millimetre, 420., 594.)
let a3 = Paper (Pdfunits.Millimetre, 297., 420.)
let a4 = Paper (Pdfunits.Millimetre, 210., 297.)
let a5 = Paper (Pdfunits.Millimetre, 148., 210.)
let a6 = Paper (Pdfunits.Millimetre, 105., 148.)
let a7 = Paper (Pdfunits.Millimetre, 74., 105.)
let a8 = Paper (Pdfunits.Millimetre, 52., 74.)
let a9 = Paper (Pdfunits.Millimetre, 37., 52.)
let a10 = Paper (Pdfunits.Millimetre, 26., 37.)
(* US Imperial sizes. *)
let usletter = Paper (Pdfunits.Inch, 8.5, 11.)
let uslegal = Paper (Pdfunits.Inch, 8.5, 14.)
|
