проблема о простом скрипте gimp - PullRequest
Новая
       4

проблема о простом скрипте gimp

1 голос
/ 10 ноября 2010

Я взял фотографии с негатива и хочу инвертировать цвет в пакете, я "как-то" скопировал и вставил такой скрипт: 

(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, еще раз спасибо

Ответы [ 2 ]

1 голос
/ 04 июля 2018

пока я просматривал ту же проблему, я нашел ваш ответ ... но вы снова добавили в ответ тот же сценарий;) так вот фиксированный, с удаленными 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)))))
1 голос
/ 10 ноября 2010

решить, я добавил слишком много параметров для 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)))))
...