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}

是的，它们通过内部 -format 选项。 （嘿，我没有发明这个奇怪的黑客！）