Fix -scale-contents position bug

2021-11-22 12:20:48 -08:00 · 2021-11-22 12:20:48 -08:00 · 5fcc685d6c
parent 6d97fd4851
commit 5fcc685d6c
1 changed files with 2 additions and 2 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -2630,11 +2630,11 @@ let scale_page_contents ?(fast=false) scale position pdf pnum page =
        match position with
        | Top t -> 0., -.t
        | TopLeft t -> t, -.t
-        | TopRight t -> 0., -.t
+        | TopRight t -> -.t, -.t
        | Left t -> t, 0.
        | BottomLeft t -> t, t
        | Bottom t -> 0., t
-        | BottomRight t -> -.t, -.t
+        | BottomRight t -> -.t, t
        | Right t -> -.t, 0.
        | _ -> 0., 0. (* centre it... FIXME: We will add a center position, eventually, for text and this... *)
    in