Add-rectangle finished

2016-11-13 16:36:37 +00:00 · 2016-11-13 16:36:37 +00:00 · a973e622ae
parent ed9f7680ca
commit a973e622ae
1 changed files with 1 additions and 1 deletions
--- 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 =