Gimp скрипт-фу с ошибкой недопустимой функции

Question

Gimp скрипт-фу с ошибкой недопустимой функции

Я работаю над своим первым сценарием-фу, и схема для меня все еще не очень понятна.

Мой скрипт работает нормально, но я хочу добавить другой параметр (только видимый), и у меня есть строка, вызывающая ошибку недопустимой функции в определенном месте, но не в другом месте.

Спасибо за помощь:-)

Вот моя строка:

(display " onlyvisible: ")(display onlyvisible)(newline)

Вот мой код:

(define (pitibalrog-test img filename onlyvisible)
(let*
    (
        (imgcopy (car ( gimp-image-duplicate img))) ; Copy to avoid changes on the original image
    )
    (display " onlyvisible: ")(display onlyvisible)(newline)
    (pitibalrog-export-layers imgcopy (gimp-image-get-layers imgcopy) filename onlyvisible) 
)
)


(define (pitibalrog-export-layers img listlayers filename onlyvisible)
(let*
    (
        (nblayers (car listlayers))
        (layers (cadr listlayers))
        (display "EXPORT LAYERS: LAYERS = ")(display layers)(newline)

        (display " onlyvisible: ")(display onlyvisible)(newline) ; <--- HERE IT WORKS
        (index 0)

        (basename (unbreakupstr (butlast (strbreakup filename ".")) "."))
        (extension (car (last (strbreakup filename "."))))
        (layer)
    )

    (display " onlyvisible: ")(display onlyvisible)(newline) ; <--- HERE IS THE PROBLEM


    (while (< index nblayers)
        (set! layer (aref layers index))
        (gimp-item-set-visible layer FALSE)
        (set! index (+ index 1))
    )
    (set! index 0)
    (while (< index nblayers)
        (set! layer (aref layers index))
        (set! filename (string-append basename (car(gimp-drawable-get-name layer)) "." extension))

        (pitibalrog-export-layer img layer filename onlyvisible)

        (set! index (+ index 1))
    )
)
)

(define (pitibalrog-export-layer img layer filename onlyvisible)
    (display " - export layer: ")(display layer)(newline)

    (gimp-item-set-visible layer TRUE)

    ; LAYER GROUP
    (when (= (car(gimp-item-is-group layer)) 1)
        (display "Layer ")(display layer)(display " is a group")(newline)
        (pitibalrog-export-layers img (gimp-item-get-children layer) filename onlyvisible)
    )
    ; REAL LAYER
    (when (= (car(gimp-item-is-group layer)) 0)
        (display "Layer ")(display layer)(display " is not a group")(newline)
        ; (gimp-file-save RUN-NONINTERACTIVE img layer filename filename) ; NO MASK HANDLING!!!
        (gimp-file-save RUN-WITH-LAST-VALS img layer filename filename)
    )

    (gimp-item-set-visible layer FALSE)
)

(script-fu-register "pitibalrog-test"
"<Image>/Script-Fu/Utils/pitibalrog-test..."
"Export all layers of the image in separete files" ;comment
"pitiBalrog" ;author
"pitiBalrog" ;copyright
"November 2012" ;date
"*A"
SF-IMAGE "img" 0
SF-FILENAME "destination" ""
SF-TOGGLE   "Export only visible layers" TRUE
)

0

scheme gimp script-fu

Источник

user864286 27 ноя '12 в 00:45

1 ответ

Решение

Другие вопросы по тегам scheme gimp script-fu

user628561 27 ноя '12 в 04:55 2012-11-27 04:55 · Accepted Answer · 2012-11-27 04:55

Отказ от ответственности: я никогда не работал с script-fu, поэтому я понятия не имею, что делают эти специфичные для script-fu процедуры. Схему, однако, я могу сделать.

Пожалуйста, внимательно посмотрите на синтаксис, необходимый для let специальная форма:

(let <List of forms that assign values>
   <body>)

Я думаю, что ваша главная проблема связана с тем, что в схеме вам разрешено изменять значение практически всего - очень мало зарезервированных слов, как в других языках. Итак, когда вы говорите (let ((display 3)) <body>), display больше не указывает на процедуру, которая отображает вещи для REPL. Затем в теле вашего let* когда ты сказал (display " onlyvisible") вы пытаетесь вызвать что-то как функцию, которая не является функцией - в этом случае независимо от значения layers является.

В общем, весь код, который должен сделать что-то вроде display должно быть в теле функции. Например:

(let ((foo 3)                 ; associate symbol foo with the value 3
      (bar "I'm a string!")   ; associate symbol bar with a string
      (* '(a b c)))           ; associate symbol * with a list '(a b c)
  (display foo)               ;\
  (newline)                   ; \    
  (display bar))              ;  }-- expressions that make up the body
  (newline)                   ;  /
  (display *)                 ; /
  (* 3 4))                    ;/ --- this is the same type of error you made

;;Output
3
I'm a string!
(a b c)
ERROR -- invalid function

Наконец, пожалуйста, не форматируйте код схемы как C или Java и т. Д. Вот удобная для пользователя версия вашей первой процедуры:

(define (pitibalrog-test img filename onlyvisible)
  (let ((img copy (car (gimp-image-duplicate img))))
    (display " onlyvisible: ")
    (display onlyvisible)
    (newline)
    (pitibalrog-export-layers imgcopy (gimp-image-get-layers imgcopy) filename onlyvisible)))

Хорошо отформатированный код делает счастливых интриганов, и вы, скорее всего, получите быструю помощь.