Working with multiple text objects, multiple pages

This commit is contained in:
John Whitington 2024-09-10 17:03:58 +01:00
parent 0a7f6c1f97
commit 56a68c57cb
1 changed files with 1 additions and 1 deletions

View File

@ -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 ();