我尝试使用 GIMP 批处理一些文件。
这是脚本：
(define (script-fu-batch-sofu globexp)
(define (sofu-trans-img n f)
(let* ((fname (car f))
(img (car (gimp-file-load 1 fname fname))))
(gimp-image-undo-disable img)
(gimp-fuzzy-select (car (gimp-image-get-active-drawable img)) 0 0 10 2 FALSE FALSE 0 FALSE)
(gimp-selection-grow img 1)
(gimp-edit-clear (car (gimp-image-get-active-drawable img)))
(file-png-save-defaults non-interactive img (car (gimp-image-get-active-drawable img)) fname fname)
(gimp-image-delete img)
)
(if (= n 1) 1 (sofu-trans-img (- n 1) (cdr f)))
)
(set! files (file-glob globexp 0))
(sofu-trans-img (car files) (car (cdr files)))
)
; Im GIMP und im Menü registrieren
(script-fu-register "script-fu-batch-sofu"
_"_Mehrere Bilder transparentieren…"
_"Mehrere Bilder auf einmal transparent machen"
"Martin Weber"
"2012, Martin Weber"
"Sep 5, 2012"
""
SF-STRING "Zu transparentierende Dateien" "/pfad/zu/bildern/*.bmp")
(script-fu-menu-register "script-fu-batch-sofu" "<Image>/Xtns/Misc")
我基本上从教程中复制了一个脚本并修改了处理图像的行。如果我运行脚本，我会收到以下错误消息：
Error: set!: unbound variable: files
老实说，我真的不知道那部分是做什么的，但我认为我需要它。我猜它会打开脚本参数给出的文件并一个接一个地处理它们。我只是不知道那里出了什么问题。我错过了什么？