Fix up -bottomright for stamps
This commit is contained in:
parent
373f0e9c3d
commit
9ed0b208b1
2
cpdf.ml
2
cpdf.ml
|
@ -2057,7 +2057,7 @@ let stamp_shift_of_position topline midline sw sh w h p =
|
||||||
| Left o -> o, half h -. half sh -. dy
|
| Left o -> o, half h -. half sh -. dy
|
||||||
| BottomLeft o -> o, o -. dy
|
| BottomLeft o -> o, o -. dy
|
||||||
| Bottom o -> half w -. half sw, o -. dy
|
| Bottom o -> half w -. half sw, o -. dy
|
||||||
| BottomRight o -> w -. sw, o -. dy
|
| BottomRight o -> w -. sw -. o, o -. dy
|
||||||
| Right o -> w -. sw -. o, half h -. half sh -. dy
|
| Right o -> w -. sw -. o, half h -. half sh -. dy
|
||||||
| Diagonal | ReverseDiagonal | Centre ->
|
| Diagonal | ReverseDiagonal | Centre ->
|
||||||
half w -. half sw, half h -. half sh -. dy
|
half w -. half sw, half h -. half sh -. dy
|
||||||
|
|
|
@ -3,7 +3,7 @@ let demo = false
|
||||||
let noncomp = false
|
let noncomp = false
|
||||||
let major_version = 2
|
let major_version = 2
|
||||||
let minor_version = 2
|
let minor_version = 2
|
||||||
let version_date = "(build of 12th March 2015)"
|
let version_date = "(build of 13th May 2015)"
|
||||||
|
|
||||||
open Pdfutil
|
open Pdfutil
|
||||||
open Pdfio
|
open Pdfio
|
||||||
|
|
Loading…
Reference in New Issue