Tcl / tk：如何设置写入jpeg文件的质量

Question

考虑这个tcl / tk代码：它采用PPM格式的RGB数据并将其保存到JPG文件

image create photo tmpImg -data $Data -width $Width -height $Height -format ppm
tmpImg write $FName -format jpeg
image delete tmpImg

我的问题是：如何设置生成的JPEG图片的质量？ Img :: jpeg中有“-quality”选项吗？ 我在稀疏文档中找不到任何内容....

非常感谢。

Answer 1

文档相当稀疏，但在阅读和编写JPEG图像时似乎支持这些选项：-optimize，-progressive，-quality和-smooth。在编写图像时传递它们的方式有点时髦：

# Write with 90% quality
tmpImg write $FName -format {jpeg -quality 90}

是的，他们在<{em>} -format选项中传递。 （嘿，我没有发明这个奇怪的黑客！）