mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-02-17 20:30:52 +01:00
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…
x
Reference in New Issue
Block a user