我做了一个小补丁来epstopdf
强制将 PDF 转换为黑白。我有一个文档有一些颜色,我需要将其转换为黑白 PDF 以避免触发分色。有没有地方可以发布补丁epstopdf
?我已将补丁粘贴在下面。问候,威廉[电子邮件保护]
--- epstopdf-2015 2016-01-18 03:23:20.428744975 +0100 +++epstopdf-2015-wb 2016-01-18 03:39:10.653914869 +0100 @@ -203,6 +203,7 @@ $::opt_embed = 1; $::opt_exact = 0; $::opt_filter = 0; +$::选择灰色=0; $::opt_gs = 1; $::opt_gscmd = ""; @::opt_gsopt = (); @@ -363,6 +364,7 @@ --(no)debug 输出调试信息(默认:$bool[$::opt_debug]) --(否)精确扫描 ExactBoundingBox(默认值:$bool[$::opt_exact]) --(否)过滤器读取标准输入(默认值:$bool[$::opt_filter]) + --(no)gray 强制灰色 (默认: $bool[$::opt_gray]) --(no)gs 运行 ghostscript (默认:$bool[$::opt_gs]) --(否)hires 扫描 HiResBoundingBox(默认值:$bool[$::opt_hires]) @@ -431,6 +433,7 @@ “设备=s”, “嵌入!”, “精确的!”, +“灰色!”, “筛选!”, “谢谢!” “gscmd=s”,# \ref{val_gscmd} @@ -585,6 +588,8 @@ 推送@GS,'-dUseFlateCompression=false',除非$::opt_compress; +推@GS,qw(-sColorConversionStrategy=Gray -dProcessColorModel=/DeviceGray)如果$::opt_gray; + 如果 ($::opt_res 和 不是 $::opt_res =~ /^(\d+(x\d+)?)$/) { warnerr "无效的分辨率:$opt_res";