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

Fix image_resolution / image-resolution-json

This commit is contained in:
John Whitington 2024-10-10 17:38:34 +02:00
parent 5c4db2b52d
commit 06c3ee0204
3 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Changes
View File

@ -23,6 +23,10 @@ Extended features:
o Rectangle may be specified as x y x' y' rather than x y w h
Fixes:
o -image-resolution-json was listing all images
* = Supported by a grant from NLnet
2.7.1 (July 2024)

1
cpdfcommand.ml
View File

@ -4405,7 +4405,6 @@ let go () =
let images = Cpdfimage.image_resolution pdf range f in
iter
(function (pagenum, xobject, w, h, wdpi, hdpi, objnum) ->
if wdpi < f || hdpi < f then
Printf.printf "%i, %s, %i, %i, %f, %f, %i\n" pagenum xobject w h wdpi hdpi objnum)
images
| Some ListImages ->

15
cpdfimage.ml
View File

@ -193,7 +193,7 @@ type xobj =
let image_results = ref []
let rec image_resolution_page pdf page pagenum dpi images =
let rec image_resolution_page pdf page pagenum images =
try
let pageops = Pdfops.parse_operators pdf page.Pdfpage.resources page.Pdfpage.content
and transform = ref [ref Pdftransform.i_matrix] in
@ -239,7 +239,7 @@ let rec image_resolution_page pdf page pagenum dpi images =
Pdfpage.rest = Pdf.Dictionary []}
in
let newpdf = Pdfpage.change_pages false pdf [page] in
image_resolution newpdf [pagenum] dpi
image_resolution newpdf [pagenum]
| (pagenum, name, Image (w, h), objnum) ->
let lx = Pdfunits.inches (distance_between o x) Pdfunits.PdfPoint in
let ly = Pdfunits.inches (distance_between o y) Pdfunits.PdfPoint in
@ -268,7 +268,7 @@ let rec image_resolution_page pdf page pagenum dpi images =
with
e -> Printf.printf "Error %s\n" (Printexc.to_string e); flprint "\n"
and image_resolution pdf range dpi =
and image_resolution pdf range =
let images = ref [] in
Cpdfpage.iter_pages
(fun pagenum page ->
@ -322,13 +322,16 @@ and image_resolution pdf range dpi =
iter
(function (pagenum, images) ->
let page = select pagenum pages in
image_resolution_page pdf page pagenum dpi images)
image_resolution_page pdf page pagenum images)
pagesplits
let is_below_dpi dpi (_, _, _, _, wdpi, hdpi, _) =
wdpi < dpi || hdpi < dpi
let image_resolution pdf range dpi =
image_results := [];
image_resolution pdf range dpi;
rev !image_results
image_resolution pdf range;
rev (keep (is_below_dpi dpi) !image_results)
let image_resolution_json pdf range dpi =
let images = image_resolution pdf range dpi in