This commit is contained in:
John Whitington
2021-12-21 11:12:52 +00:00
parent 6616516f77
commit a9bfd16142
7 changed files with 26 additions and 50 deletions

View File

@@ -1,3 +1,5 @@
open Pdfutil
let blank_document width height pages =
let pdf_pages =
map (fun () -> Pdfpage.blankpage (Pdfpaper.make Pdfunits.PdfPoint width height)) (many () pages)