32 lines
937 B
OCaml
32 lines
937 B
OCaml
(** Positions *)
|
|
|
|
(** Possible positions for adding text and other uses. See cpdfmanual.pdf *)
|
|
type position =
|
|
PosCentre of float * float
|
|
| PosLeft of float * float
|
|
| PosRight of float * float
|
|
| Top of float
|
|
| TopLeft of float * float
|
|
| TopRight of float * float
|
|
| Left of float
|
|
| BottomLeft of float * float
|
|
| Bottom of float
|
|
| BottomRight of float * float
|
|
| Right of float
|
|
| Diagonal
|
|
| ReverseDiagonal
|
|
| Centre
|
|
|
|
(** Produce a debug string of a [position] *)
|
|
val string_of_position : position -> string
|
|
|
|
(** [calculate_position ignore_d w (xmin, ymin, xmax, ymax) orientation pos] calculates
|
|
the absolute position of text given its width, bounding box, orientation and
|
|
position. If [ignore_d] is true, the distance from the position (e.g 10 in
|
|
TopLeft 10) is ignored (considered zero). *)
|
|
val calculate_position :
|
|
bool ->
|
|
float ->
|
|
float * float * float * float ->
|
|
position -> float * float * float
|