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

Progress towards fixing -list-images-used / -images-resolution

This commit is contained in:
John Whitington 2024-11-22 15:57:28 +00:00
parent a2369a946f
commit 8ad54e5dd6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cpdfimage.ml
View File

@ -195,6 +195,7 @@ type xobj =
let image_results = ref [] let image_results = ref []
let rec image_resolution_page pdf page pagenum images = let rec image_resolution_page pdf page pagenum images =
(*Printf.printf "image_resolution_page: page %i, %i images\n" pagenum (length images);*)
try try
let pageops = Pdfops.parse_operators pdf page.Pdfpage.resources page.Pdfpage.content let pageops = Pdfops.parse_operators pdf page.Pdfpage.resources page.Pdfpage.content
and transform = ref [ref Pdftransform.i_matrix] in and transform = ref [ref Pdftransform.i_matrix] in
@ -240,16 +241,14 @@ let rec image_resolution_page pdf page pagenum images =
Pdfpage.rest = Pdf.Dictionary []} Pdfpage.rest = Pdf.Dictionary []}
in in
let newpdf = Pdfpage.change_pages false pdf [page] in let newpdf = Pdfpage.change_pages false pdf [page] in
image_resolution newpdf [pagenum] image_resolution newpdf [1]
| (pagenum, name, Image (w, h), objnum) -> | (pagenum, name, Image (w, h), objnum) ->
let lx = Pdfunits.inches (distance_between o x) Pdfunits.PdfPoint in let lx = Pdfunits.inches (distance_between o x) Pdfunits.PdfPoint in
let ly = Pdfunits.inches (distance_between o y) Pdfunits.PdfPoint in let ly = Pdfunits.inches (distance_between o y) Pdfunits.PdfPoint in
let wdpi = float w /. lx let wdpi = float w /. lx
and hdpi = float h /. ly in and hdpi = float h /. ly in
image_results := (pagenum, xobject, w, h, wdpi, hdpi, objnum)::!image_results image_results := (pagenum, xobject, w, h, wdpi, hdpi, objnum)::!image_results;
(*Printf.printf "%i, %s, %i, %i, %f, %f\n" pagenum xobject w h wdpi hdpi*) (*Printf.printf "%i, %s, %i, %i, %f, %f\n" pagenum xobject w h wdpi hdpi;*)
(*i else
Printf.printf "S %i, %s, %i, %i, %f, %f\n" pagenum xobject (int_of_float w) (int_of_float h) wdpi hdpi i*)
end end
| Pdfops.Op_q -> | Pdfops.Op_q ->
begin match !transform with begin match !transform with
@ -270,12 +269,15 @@ let rec image_resolution_page pdf page pagenum images =
e -> Printf.printf "Error %s\n" (Printexc.to_string e); flprint "\n" e -> Printf.printf "Error %s\n" (Printexc.to_string e); flprint "\n"
and image_resolution pdf range = and image_resolution pdf range =
(*Printf.printf "image_resolution top\n";*)
let images = ref [] in let images = ref [] in
Cpdfpage.iter_pages Cpdfpage.iter_pages
(fun pagenum page -> (fun pagenum page ->
(*Printf.printf "Image resolution, page %i\n" pagenum;*)
(* 1. Get all image names and their native resolutions from resources as string * int * int *) (* 1. Get all image names and their native resolutions from resources as string * int * int *)
match Pdf.lookup_direct pdf "/XObject" page.Pdfpage.resources with match Pdf.lookup_direct pdf "/XObject" page.Pdfpage.resources with
| Some (Pdf.Dictionary xobjects) -> | Some (Pdf.Dictionary xobjects) ->
(*Printf.printf "Found %i Xobjects in page resources\n" (length xobjects);*)
iter iter
(function (name, xobject) -> (function (name, xobject) ->
let objnum = match xobject with Pdf.Indirect i -> i | _ -> 0 in let objnum = match xobject with Pdf.Indirect i -> i | _ -> 0 in