fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

sturcture info

This commit is contained in:
John Whitington 2024-09-30 16:11:16 +01:00
parent 94d119196d
commit 8a9eeb6933
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfimage.ml
View File

@ -516,9 +516,11 @@ let image_of_input ?subformat ?title fobj i =
let page = let page =
{Pdfpage.content = {Pdfpage.content =
[Pdfops.stream_of_ops [Pdfops.stream_of_ops
[Pdfops.Op_cm (Pdftransform.matrix_of_transform [Pdftransform.Translate (0., 0.); [Pdfops.Op_BDC ("/Figure", Pdf.Dictionary [("/MCID", Pdf.Integer 0)]);
Pdfops.Op_cm (Pdftransform.matrix_of_transform [Pdftransform.Translate (0., 0.);
Pdftransform.Scale ((0., 0.), w, h)]); Pdftransform.Scale ((0., 0.), w, h)]);
Pdfops.Op_Do "/I0"]]; Pdfops.Op_Do "/I0";
Pdfops.Op_EMC]];
Pdfpage.mediabox = Pdf.Array [Pdf.Real 0.; Pdf.Real 0.; Pdf.Real w; Pdf.Real h]; Pdfpage.mediabox = Pdf.Array [Pdf.Real 0.; Pdf.Real 0.; Pdf.Real w; Pdf.Real h];
Pdfpage.resources = Pdfpage.resources =
Pdf.Dictionary Pdf.Dictionary