的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选项。 （嘿，我没有发明这个古怪的黑客攻击！）