1

ネガから写真を撮ったので、バッチで色を反転したいのですが、次のようなスクリプトを「どういうわけか」コピーして貼り付けます。

(define (batch-negative pattern)
  (let* ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
           (let* ((filename (car filelist))
                  (image (car (gimp-file-load RUN-NONINTERACTIVE
                                              filename filename)))
                  (drawable (car (gimp-image-get-active-layer image))))
             (gimp-invert RUN-NONINTERACTIVE
                                   image drawable)
             (gimp-levels-stretch RUN-NONINTERACTIVE
                                   image drawable)
             (gimp-file-save RUN-NONINTERACTIVE
                             image drawable filename filename)
             (gimp-image-delete image))
           (set! filelist (cdr filelist)))))

チュートリアルに従おうとしましたが、失敗しました。 の行に何か問題があると思いますが、gimp-invertどこにあるのかわかりません。誰か助けてもらえますか?

ありがとう！

編集：参考までに、ubuntu 10.10を使用しています。ありがとうございます

4

2 に答える 2

1

gimp-levels-stretchとのパラメータを追加しすぎましたgimp-invert。変更されたコードは次のとおりです。

(define (batch-negative pattern)
  (let* ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
           (let* ((filename (car filelist))
                  (image (car (gimp-file-load RUN-NONINTERACTIVE
                                              filename filename)))
                  (drawable (car (gimp-image-get-active-layer image))))
             (gimp-invert RUN-NONINTERACTIVE
                                   image drawable)
             (gimp-levels-stretch RUN-NONINTERACTIVE
                                   image drawable)
             (gimp-file-save RUN-NONINTERACTIVE
                             image drawable filename filename)
             (gimp-image-delete image))
           (set! filelist (cdr filelist)))))
于 2010-11-10T14:17:28.883 に答える
1

私が同じ問題についてブラウジングしているときに、あなたの答えを見つけました...しかし、あなたはあなたの答えでまったく同じスクリプトを再度提供しました;）したがって、2つのパラメーターが削除された修正済みのものは次のとおりです。

(define (batch-negative pattern)
  (let* ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
           (let* ((filename (car filelist))
                  (image (car (gimp-file-load RUN-NONINTERACTIVE
                                              filename filename)))
                  (drawable (car (gimp-image-get-active-layer image))))
             (gimp-invert drawable)
             (gimp-levels-stretch drawable)
             (gimp-file-save RUN-NONINTERACTIVE
                             image drawable filename filename)
             (gimp-image-delete image))
           (set! filelist (cdr filelist)))))
于 2018-07-04T13:37:18.703 に答える