Fixes -shift to do annotations properly

This commit is contained in:
John Whitington 2019-08-19 11:49:53 +01:00
parent 5ae2fc9635
commit 2aa8035a70
1 changed files with 1 additions and 1 deletions

View File

@ -2318,7 +2318,7 @@ let shift_page ?(fast=false) dxdylist pdf pnum page =
let page =
change_pattern_matrices_page pdf (Pdftransform.mktranslate ~-.dx ~-.dy) page
in
transform_annotations pdf (Pdftransform.mktranslate ~-.dx ~-.dy) page.Pdfpage.rest;
transform_annotations pdf (Pdftransform.mktranslate dx dy) page.Pdfpage.rest;
Pdfpage.prepend_operators pdf [transform_op] ~fast page
let shift_pdf ?(fast=false) dxdylist pdf range =