mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
more
This commit is contained in:
@ -160,8 +160,11 @@ let paginate tmargin bmargin papersize i =
|
||||
s.fontsize <- fs;
|
||||
o := Font (f, fs)::!o
|
||||
| NewPage ->
|
||||
s.ypos <- tmargin;
|
||||
s.ypos <- tmargin +. s.fontsize;
|
||||
o := NewPage::!o
|
||||
| BeginDocument ->
|
||||
s.ypos <- tmargin +. s.fontsize;
|
||||
o := BeginDocument::!o
|
||||
| x -> o := x::!o
|
||||
in
|
||||
iter process i;
|
||||
|
Reference in New Issue
Block a user