fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed regression in image_resolution due to Pdfunit change

Browse Source
This commit is contained in:
John Whitington
2024-01-10 13:10:39 +00:00
parent 847f498add
commit 3ca5c8bb20
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfimage.ml
View File

@@ -235,8 +235,8 @@ let rec image_resolution_page pdf page pagenum dpi images =
let newpdf = Pdfpage.change_pages false pdf [page] in let newpdf = Pdfpage.change_pages false pdf [page] in
image_resolution newpdf [pagenum] dpi image_resolution newpdf [pagenum] dpi
| (pagenum, name, Image (w, h), objnum) -> | (pagenum, name, Image (w, h), objnum) ->
let lx = Pdfunits.points (distance_between o x) Pdfunits.Inch in let lx = Pdfunits.inches (distance_between o x) Pdfunits.PdfPoint in
let ly = Pdfunits.points (distance_between o y) Pdfunits.Inch 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

BIN
cpdfmanual.pdf
View File

Binary file not shown.

2
cpdfmanual.tex
View File

@@ -279,7 +279,7 @@ These examples demonstrate just a few of the facilities provided by the Coherent
\noindent Dump attachments to file, given the directory to put them in. \noindent Dump attachments to file, given the directory to put them in.
\section*{\hyperref[chap:13]{Chapter 13: Working with Images}} \section*{\hyperref[chap:13]{Chapter 13: Images}}
\begin{framed}\noindent\texttt{cpdf -image-resolution 600 in.pdf}\end{framed} \begin{framed}\noindent\texttt{cpdf -image-resolution 600 in.pdf}\end{framed}