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 drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | _ -> drawops in
|
||||||
let chunks = ref (split_around (eq NewPage) drawops) in
|
let chunks = ref (split_around (eq NewPage) drawops) in
|
||||||
dryrun ~filename ~bates ~batespad !range !pdf !chunks;
|
dryrun ~filename ~bates ~batespad !range !pdf !chunks;
|
||||||
mcidr := -1;
|
|
||||||
mcpage := 0;
|
mcpage := 0;
|
||||||
while !chunks <> [] do
|
while !chunks <> [] do
|
||||||
|
mcidr := -1;
|
||||||
mcpage += 1;
|
mcpage += 1;
|
||||||
structdata =| StDataPage !mcpage;
|
structdata =| StDataPage !mcpage;
|
||||||
reset_state ();
|
reset_state ();
|
||||||
|
|
Loading…
Reference in New Issue