Add-rectangle finished

This commit is contained in:
John Whitington 2016-11-13 16:36:37 +00:00
parent ed9f7680ca
commit a973e622ae
1 changed files with 1 additions and 1 deletions

View File

@ -3109,7 +3109,7 @@ let addrectangle
let x, y = let x, y =
match position with match position with
Cpdf.Top _ | Cpdf.TopLeft _ | Cpdf.TopRight _ -> (x, y -. h) Cpdf.Top _ | Cpdf.TopLeft _ | Cpdf.TopRight _ -> (x, y -. h)
| Cpdf.Centre -> (x, y -. (h /. 2.)) | Cpdf.Centre | Cpdf.PosCentre _ -> (x, y -. (h /. 2.))
| _ -> (x, y) | _ -> (x, y)
in in
let ops = let ops =