Add-rectangle finished
This commit is contained in:
parent
ed9f7680ca
commit
a973e622ae
|
@ -3109,7 +3109,7 @@ let addrectangle
|
||||||
let x, y =
|
let x, y =
|
||||||
match position with
|
match position with
|
||||||
Cpdf.Top _ | Cpdf.TopLeft _ | Cpdf.TopRight _ -> (x, y -. h)
|
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)
|
| _ -> (x, y)
|
||||||
in
|
in
|
||||||
let ops =
|
let ops =
|
||||||
|
|
Loading…
Reference in New Issue