This commit is contained in:
John Whitington 2023-03-24 22:42:02 +00:00
parent 847f878fa1
commit c0d5180fe9
1 changed files with 1 additions and 0 deletions

View File

@ -103,6 +103,7 @@ let xobject_of_page ~fast pdf page =
let shift_page ?(fast=false) dxdylist pdf pnum page = let shift_page ?(fast=false) dxdylist pdf pnum page =
let xobj = xobject_of_page ~fast pdf page in let xobj = xobject_of_page ~fast pdf page in
let xobjnum = Pdf.addobj pdf xobj in
let dx, dy = List.nth dxdylist (pnum - 1) in let dx, dy = List.nth dxdylist (pnum - 1) in
let transform_op = let transform_op =
Pdfops.Op_cm (Pdftransform.matrix_of_op (Pdftransform.Translate (dx, dy))) Pdfops.Op_cm (Pdftransform.matrix_of_op (Pdftransform.Translate (dx, dy)))