Working with multiple text objects, multiple pages
This commit is contained in:
parent
0a7f6c1f97
commit
56a68c57cb
|
@ -522,9 +522,9 @@ let draw ~struct_tree ~fast ~underneath ~filename ~bates ~batespad range pdf dra
|
|||
let drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | _ -> drawops in
|
||||
let chunks = ref (split_around (eq NewPage) drawops) in
|
||||
dryrun ~filename ~bates ~batespad !range !pdf !chunks;
|
||||
mcidr := -1;
|
||||
mcpage := 0;
|
||||
while !chunks <> [] do
|
||||
mcidr := -1;
|
||||
mcpage += 1;
|
||||
structdata =| StDataPage !mcpage;
|
||||
reset_state ();
|
||||
|
|
Loading…
Reference in New Issue