mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
more work on -stamp-as-xobject
This commit is contained in:
2
cpdf.ml
2
cpdf.ml
@ -2549,6 +2549,8 @@ let add_page_as_xobject pdf range page name =
|
|||||||
let xobject_objnum = Pdf.addobj pdf xobject in
|
let xobject_objnum = Pdf.addobj pdf xobject in
|
||||||
pdf
|
pdf
|
||||||
|
|
||||||
|
(* n.b the use of change_pages here ensures no inheritable resources in the
|
||||||
|
* stamp, therefore creation of xobject from page is as simple as expected. *)
|
||||||
let stamp_as_xobject pdf range over =
|
let stamp_as_xobject pdf range over =
|
||||||
let prefix = Pdfpage.shortest_unused_prefix pdf in
|
let prefix = Pdfpage.shortest_unused_prefix pdf in
|
||||||
Pdfpage.add_prefix over prefix;
|
Pdfpage.add_prefix over prefix;
|
||||||
|
Reference in New Issue
Block a user