Fix up -bottomright for stamps

This commit is contained in:
John Whitington 2015-05-13 11:34:26 +01:00
parent 373f0e9c3d
commit 9ed0b208b1
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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