scripting - GIMP - 编写 Canvas 大小调整脚本

Question

今天刚开始使用 GIMP。当我在 GIMP 中手动调整 Canvas 大小(使其小于图像大小)时，它可以让我移动图像，以便我可以“更改”可视区域。如何在脚本中复制此内容？换句话说，我希望脚本在 Canvas 调整大小步骤中暂停，让我正确定位图像。

我问的原因是:我编写了一个小脚本，可以创建图像的方形缩略图。我这样做的方法是调整 Canvas 大小，使高度和宽度相同。如果高度和宽度不同，我会更改两者中较高的一个，使其与较低的相同(例如 600x500 变为 500x500)。然后，我将图像展平并将其缩放到我需要的任何大小。

(if (>= width height)
    (begin
        (gimp-image-resize image height height 0 0)
    )
    (begin
        (gimp-image-resize image width width 0 0)
    )
)

上面是我用来调整 Canvas 大小的代码。我知道 gimp-image-resize 命令中的最后两个值指的是偏移量。这就是我要在脚本到达这一步时手动修改的内容。任何帮助将不胜感激。谢谢!

Answer 1

你的代码可以工作吗？如果是这样，下面是相同代码的更好看的版本:

(let ((smaller-edge (min width height)))
  (gimp-image-resize image smaller-edge smaller-edge 0 0))