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 16:55:22 +01:00
parent 7b1dadf776
commit 22506a6c4d
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cpdfcommand.ml
View File

@ -1797,7 +1797,7 @@ let endxobj () =
let a, b, c, d = args.xobj_bbox in let a, b, c, d = args.xobj_bbox in
addop (Cpdfdraw.FormXObject (a, b, c, d, n, rev ops)) addop (Cpdfdraw.FormXObject (a, b, c, d, n, rev ops))
| [] -> | [] ->
error "too many -endxobj or -et" error "too many -end-xobj or -et"
let addbt () = let addbt () =
drawops := ("_TEXT", [])::!drawops drawops := ("_TEXT", [])::!drawops
@ -1817,7 +1817,7 @@ let pop () =
| ("_PUSH", ops)::t -> | ("_PUSH", ops)::t ->
drawops := t; drawops := t;
addop (Cpdfdraw.Qq (rev ops)) addop (Cpdfdraw.Qq (rev ops))
| _ -> error "not in a Q section at -q" | _ -> error "not in a pushed section at -pop"
let readfloats s = map float_of_string (String.split_on_char ' ' s) let readfloats s = map float_of_string (String.split_on_char ' ' s)
@ -1849,7 +1849,7 @@ let addline s =
let addbezier s = let addbezier s =
match readfloats s with match readfloats s with
| [a; b; c; d; e; f] -> addop (Cpdfdraw.Bezier (a, b, c, d, e, f)) | [a; b; c; d; e; f] -> addop (Cpdfdraw.Bezier (a, b, c, d, e, f))
| _ -> error "-bez requires siz numbers" | _ -> error "-bez requires six numbers"
| exception _ -> error "malformed -bez" | exception _ -> error "malformed -bez"
let addcircle s = let addcircle s =
@ -1944,12 +1944,12 @@ let setmatrix s =
let setmtranslate s = let setmtranslate s =
match readfloats s with match readfloats s with
| [a; b] -> addop (Cpdfdraw.Matrix (Pdftransform.matrix_of_transform [Pdftransform.Translate (a, b)])) | [a; b] -> addop (Cpdfdraw.Matrix (Pdftransform.matrix_of_transform [Pdftransform.Translate (a, b)]))
| _ | exception _ -> error "-mtranslate takes two numbers" | _ | exception _ -> error "-mtrans takes two numbers"
let setmrotate s = let setmrotate s =
match readfloats s with match readfloats s with
| [a; b; c] -> addop (Cpdfdraw.Matrix (Pdftransform.matrix_of_transform [Pdftransform.Rotate ((a, b), c)])) | [a; b; c] -> addop (Cpdfdraw.Matrix (Pdftransform.matrix_of_transform [Pdftransform.Rotate ((a, b), c)]))
| _ | exception _ -> error "-mrotate takes three numbers" | _ | exception _ -> error "-mrot takes three numbers"
let setmscale s = let setmscale s =
match readfloats s with match readfloats s with
@ -2912,7 +2912,6 @@ and specs =
("-text-width", ("-text-width",
Arg.String settextwidth, Arg.String settextwidth,
" Find width of a line of text"); " Find width of a line of text");
(* Creating new PDF content *)
("-draw", Arg.Unit (setop Draw), " Begin drawing"); ("-draw", Arg.Unit (setop Draw), " Begin drawing");
("-rect", Arg.String addrect, " Draw rectangle"); ("-rect", Arg.String addrect, " Draw rectangle");
("-to", Arg.String addto, " Move to"); ("-to", Arg.String addto, " Move to");