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-12 15:33:28 +01:00
parent 7adcd23388
commit c2f6d5779f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfcommand.ml
View File

@ -990,7 +990,7 @@ let anon_fun s =
Not_found ->
match args.inputs with
| [] ->
Pdfe.log (Printf.sprintf "Warning: range '%s' ignored\n" s)
Pdfe.log (Printf.sprintf "Warning: '%s' ignored\n" s)
| (a, _, d, e, f, g)::t ->
args.inputs <- (a, fixdashes s, d, e, f, g)::t

4
cpdfdraw.ml
View File

@ -186,7 +186,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
| CYMK (c, y, m, k) -> [Op_K (c, y, m, k)]
| NoCol -> []
end
| ClosePath
| ClosePath -> [Pdfops.Op_h]
| Fill -> [Pdfops.Op_f]
| FillEvenOdd -> [Pdfops.Op_f']
| Stroke -> [Pdfops.Op_S]
@ -194,7 +194,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
| FillStrokeEvenOdd -> [Pdfops.Op_B']
| Clip -> [Pdfops.Op_W; Pdfops.Op_n]
| ClipEvenOdd -> [Pdfops.Op_W']
| SetLineThickness t -> [Pdfops.Op_w t; Pdfops.Op_n]
| SetLineThickness t -> [Pdfops.Op_w t]
| SetLineCap c -> [Pdfops.Op_J c]
| SetLineJoin j -> [Pdfops.Op_j j]
| SetMiterLimit m -> [Pdfops.Op_M m]