scheme - 画像の幅と数値の比較に失敗しました

Question

このスクリプトは、if ステートメントで「エラー: ( : 1) >: 引数 2 でなければなりません: 数値」で失敗します。なぜですか?

(define x 1500)

(if(> x (gimp-image-width image))
(set! x (gimp-image-width image))
)

GIMP で使用されているスキームのバージョンに関する適切なリファレンスはありますか?

Answer 1

script-fu コンソールで試してみるとgimp-image-width、数値ではなくリストが返されます。

(gimp-image-width 1)
(400)

したがって、リストの要素を抽出する必要があります。

(define x 1500)
(if(> x (car (gimp-image-width 1)))
(set! x (gimp-image-width 1))
)

補足として、Gimp スクリプトの作成を開始する場合は、Python を使用すると、はるかに簡単になります。

width=min(1500,image.width)