From a973e622ae354485d699d6c22cf6282802de200e Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sun, 13 Nov 2016 16:36:37 +0000
Subject: [PATCH] Add-rectangle finished

---
 cpdfcommand.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index daf5a2c..27800a9 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3109,7 +3109,7 @@ let addrectangle
     let x, y =
       match position with
         Cpdf.Top _ | Cpdf.TopLeft _ | Cpdf.TopRight _ -> (x, y -. h)
-      | Cpdf.Centre -> (x, y -. (h /. 2.))
+      | Cpdf.Centre | Cpdf.PosCentre _ -> (x, y -. (h /. 2.))
       | _ -> (x, y)
     in
     let ops =