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

Fix -scale-contents position bug

This commit is contained in:
John Whitington 2021-11-22 12:20:48 -08:00
parent 6d97fd4851
commit 5fcc685d6c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdf.ml
View File

@ -2630,11 +2630,11 @@ let scale_page_contents ?(fast=false) scale position pdf pnum page =
match position with match position with
| Top t -> 0., -.t | Top t -> 0., -.t
| TopLeft t -> t, -.t | TopLeft t -> t, -.t
| TopRight t -> 0., -.t | TopRight t -> -.t, -.t
| Left t -> t, 0. | Left t -> t, 0.
| BottomLeft t -> t, t | BottomLeft t -> t, t
| Bottom t -> 0., t | Bottom t -> 0., t
| BottomRight t -> -.t, -.t | BottomRight t -> -.t, t
| Right t -> -.t, 0. | Right t -> -.t, 0.
| _ -> 0., 0. (* centre it... FIXME: We will add a center position, eventually, for text and this... *) | _ -> 0., 0. (* centre it... FIXME: We will add a center position, eventually, for text and this... *)
in in