fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Work on rectangle positioning

Browse Source
This commit is contained in:
John Whitington
2016-11-13 16:22:21 +00:00
parent 9d34594f13
commit ed9f7680ca
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfcommand.ml
View File

@@ -3106,6 +3106,12 @@ let addrectangle
let x, y, _ =
Cpdf.calculate_position false w mediabox Cpdf.Horizontal position
in
let x, y =
match position with
Cpdf.Top _ | Cpdf.TopLeft _ | Cpdf.TopRight _ -> (x, y -. h)
| Cpdf.Centre -> (x, y -. (h /. 2.))
| _ -> (x, y)
in
let ops =
[
Pdfops.Op_q;