Tcl proc调整透明图像的大小

Question

我想使用Tcl proc即时调整具有透明性的图像的大小。

图像（gif，png）大多很小（通常为128x128）。

我试图避免每种尺寸都有预先计算的图像。

出于平台原因，我也想避免使用外部可执行文件（例如pnmscale，convert等）。

建议表示赞赏。