fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington
2021-12-14 14:19:58 +00:00
parent dcaa04affa
commit f116c0b840
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
cpdftype.ml
View File

@ -160,8 +160,11 @@ let paginate tmargin bmargin papersize i =
s.fontsize <- fs; s.fontsize <- fs;
o := Font (f, fs)::!o o := Font (f, fs)::!o
| NewPage -> | NewPage ->
s.ypos <- tmargin; s.ypos <- tmargin +. s.fontsize;
o := NewPage::!o o := NewPage::!o
| BeginDocument ->
s.ypos <- tmargin +. s.fontsize;
o := BeginDocument::!o
| x -> o := x::!o | x -> o := x::!o
in in
iter process i; iter process i;