From 5fcc685d6c99fadb83269aad53256592eb8907d0 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 22 Nov 2021 12:20:48 -0800
Subject: [PATCH] Fix -scale-contents position bug

---
 cpdf.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdf.ml b/cpdf.ml
index 8b81787..cc66cb1 100644
--- 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