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

-midline and -topline for stamps

Browse Source
This commit is contained in:
John Whitington
2015-02-17 15:48:00 +00:00
parent 95b7258e30
commit 0f375d2573
4 changed files with 40 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@@ -3531,7 +3531,9 @@ let go () =
let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
Cpdf.stamp args.position args.fast args.scale_stamp_to_fit true range overpdf pdf
Cpdf.stamp
args.position args.topline args.midline args.fast
args.scale_stamp_to_fit true range overpdf pdf
in
write_pdf false pdf
| Some (StampUnder under) ->
@@ -3543,7 +3545,9 @@ let go () =
let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
Cpdf.stamp args.position args.fast args.scale_stamp_to_fit false range underpdf pdf
Cpdf.stamp
args.position args.topline args.midline args.fast
args.scale_stamp_to_fit false range underpdf pdf
in
write_pdf false pdf
| Some (CombinePages over) ->