GIMP: Ошибка сценария скрипта

Question

Я пытаюсь выполнить пакетную обработку некоторых файлов с помощью 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 

Честно говоря, я не знаю, что эта часть делает, но я думаю, что мне это нужно. Я предполагаю, что он открывает файлы, заданные параметром script, и прецессирует их один за другим. Я просто не знаю, что там не так. Что я упустил?

Answer 1

Я думаю, что вам нужно добавить

(define files) 

в первой строке кода.