more
This commit is contained in:
parent
847f878fa1
commit
c0d5180fe9
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue