fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2023-05-10 18:44:45 +01:00
parent 73701b5d7d
commit 8d49306a70
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfcommand.ml
View File

@ -1786,6 +1786,7 @@ let xobjbbox s =
args.xobj_bbox <- Cpdfcoord.parse_rectangle (Pdf.empty ()) s args.xobj_bbox <- Cpdfcoord.parse_rectangle (Pdf.empty ()) s
let addop o = let addop o =
begin match args.op with Some Draw -> () | _ -> error "Need to be in drawing mode for this." end;
match !drawops with match !drawops with
| (n, ops)::t -> drawops := (n, (o::ops))::t | (n, ops)::t -> drawops := (n, (o::ops))::t
| [] -> error "no drawops" | [] -> error "no drawops"
@ -2074,12 +2075,14 @@ let addsopacity f =
addop (Cpdfdraw.SOpacity f) addop (Cpdfdraw.SOpacity f)
let addtext s = let addtext s =
begin match !drawops with _::_::_ -> () | _ -> error "-text must be in a -bt / -et section" end;
let font = match args.font with StandardFont s -> s | _ -> error "-text: not a standard font" in let font = match args.font with StandardFont s -> s | _ -> error "-text: not a standard font" in
addop (Cpdfdraw.Font (font, args.fontsize)); addop (Cpdfdraw.Font (font, args.fontsize));
addop (Cpdfdraw.Text s) addop (Cpdfdraw.Text s)
let addspecialtext s = let addspecialtext s =
let font = match args.font with StandardFont s -> s | _ -> error "-text: not a standard font" in begin match !drawops with _::_::_ -> () | _ -> error "-stext must be in a -bt / -et section" end;
let font = match args.font with StandardFont s -> s | _ -> error "-stext: not a standard font" in
addop (Cpdfdraw.Font (font, args.fontsize)); addop (Cpdfdraw.Font (font, args.fontsize));
addop (Cpdfdraw.SpecialText s) addop (Cpdfdraw.SpecialText s)
@ -4466,7 +4469,7 @@ let go () =
| Some Draw -> | Some Draw ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
let ops = match !drawops with [("_MAIN", ops)] -> rev ops | _ -> error "not enough -endxobj or -et" in let ops = match !drawops with [("_MAIN", ops)] -> rev ops | _ -> error "not enough -end-xobj or -et" in
write_pdf write_pdf
false false
(Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf ops) (Cpdfdraw.draw ~filename:args.original_filename ~bates:args.bates ~batespad:args.batespad args.fast range pdf ops)